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RAUSHOLEN, WAS DRINSTECKT. 

MIT DER ORIGINAL-PERIPHERIE 

FUR DEN COMMODORE 64. 




Computer sind wie Anziige. 

Es muft einfach alles passen, damit man sich wohl fijhlt. 

Original Commodore-Gerate sind optimal auf Ihren 

64er abgestimmt. 

Da pa6t alles - sofort! 

Commodore - Marlctfuhrer bei Mikrocomputern. 




Commodore 
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Das Ktifer-Syndrom 



Wer kennt es nicht, dieses rund- 
liche Auto fur jedermann. Man 
taufte es schlicht »Kafer« und 
es lief und lief und lief - ahnlich wie 
unser C64. Was waren die Grunde fur 
den Erfolg dieses Autos? Das 
perfekteste Fahrzeug war es ja nicht. 
Aber man konnte nahezu alles preis- 
wert bekommen. Und den Kafer- 
Freaks fiel immer wieder etwas Neues 
ein. Von der Selbstbauvariante fur 
den Strand, dem Buggy, bis zum 
spurverbreiterten Superkafer mit 
Porsche-Motor war alles dabei. 
Betrachten wir einmal den C64 im 
Vergleich. Als den perfektesten Computer kann man 
auch ihn nicht bezeichnen. Aber das ist es vielleicht ge- 
rade, was ihn so beliebt und interessant macht. Etlichen 
fallt ein Tip oder Trick ein, urn diesen Computer besser 
zu beherrschen. Immer wieder entwickeln C64-Fans ei- 
ne neue Softwarehilfe, die den Umgang mit dem Com- 
puter vereinfacht und eine Bereicherung darstellt. Wir 
wollen Ihnen diese Tips, Tricks und Tools, die jedem 
C64-Besitzer das Leben erleichtern, mit diesem Son- 
derheft zur Verfugung stellen. 
Grafiken konnen Sie jetzt einblenden wie im Film. 
In Dia-Shows lassen sich Bilder weich uberblenden. Die 
Basic-Erweiterung »Alan« macht das Erstellen von inter- 
essanten Grafiken zum Kinderspiel und verfugt iiber ei- 
nen erheblich verbesserten Basic-Editor, mit dem Sie 
sogar Listings aufwarts und abwarts scrollen konnen. 
Textverarbeitung ist eine der verbreitetsten Anwen- 
dungen. Trotz Computer sind Tippfehler noch an der 
Tagesordnung. Das konnen wir andern fur Master-Text 
und Vizawrite. Deutsche Spell-Checker uberprufen die 
Rechtschreibung, und der Wortschatz laBt sich schnell 
erganzen. Fur beide Spell-Checker kann man ubrigens 
die gleiche Worterdatei benutzen. 
In Basic lassen sich zwar recht einfach Programme 
entwickeln, aber oft stoBt man an Grenzen. Besonders, 
wenn es urn zeitkritische Ablaufe geht, ist haufig »guter 
Rat teuer«. Zwei Artikel warten auf Sie. Wir zeigen Ih- 
nen, wie Sie auch in Basic erstaunlich schnelle Pro- 
gramme erzeugen konnen, und bieten Ihnen einen 
Basic-Compiler zum Abtippen, der den Vergleich mit 
kommerziellen Produkten nicht zu scheuen braucht. 
Jeder Programmierer kennt es. Bei der Entwicklung ei- 
nes Programms fallt einem immer wieder etwas Neues 




ein. Nach und nach legt die Software 
enorm an Umfang zu. Jetzt kommt 
die radikale Abmagerungskur. Der 
»Super-Packer« stutzt Ihre Software 
radikal - egal ob es Programme 
oder Grafiken sind, alles wird klein- 
gemacht und laBt sich in neuer Kiirze 
wieder auf der Diskette unterbringen. 
Zudem werden Sie mit den Grundla- 
gen des Packens und Komprimierens 
vertraut gemacht. Zwei Kurse bieten 
alle wichtigen Informationen, fur Ein- 
steiger und Profis. Fundamentierte 
Grundlagen sind in der Computerei 
iiberhaupt ein wesentlicher Punkt. 
Eine interessante Hilfe fur Basic-Programmierer ist, 
Maschinensprache-Routinen des Betriebssystems direkt 
zu nutzen. Basic-Programme werden dadurch wesent- 
lich schneller und kurzer. 

Auch der Umgang mit der RS232-Schnittstelle ist vie- 
len ein Buch mit sieben Siegeln. Wir knacken 
diese und bringen Licht in diese Angelegenheit. Interes- 
sant ist dies besonders, da wir Ihnen ein Programm 
vorstellen, das mit einer Ubertragungsrate von 4800 
Bit/s arbeiten kann. 

Naturlich gehoren zu einem »Tips & Tricks«- 
Sonderheft auch viele dieser kurzen Hilfen. Wir haben 
die Tips & Tricks ebenso wie PEEKs & POKEs fur Sie 
gesammelt und ubersichtlich geordnet. Egal, ob es sich 
urn Grafik, Scrolling, Cursorsteuerung, Floppy, Program- 
mierschutz oder andere Effekte handelt, nach Themen- 
bereichen alphabetisch sortiert, laBt sich der richtige 
Trick schnell finden. 

Etliche Neuigkeiten gibt es ebenfalls aus der Trickki- 
ste. Vielleicht haben Sie sich auch schon einmal kraftig 
geargert, als Sie stundenlang in die Programmierung 
einer neuen Software vertieft waren — und plotzlich fiel 
der Strom aus. »Timesave« ruckt diesem Problem zu 
Leibe und speichert in regelmaBigen Abstanden auto- 
matisch. Das ist aber langst nicht alles. Lassen Sie sich 
uberraschen. 

Ihr Gottfried Knechtel 
(Leitender Redakteur) 
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S. Vilsmeier 

3D-Konstruktion mil Glga-CAD Plus aut dem C64/C 128 

1986. 183 Seilen. inkl.2 Disketten 

Das verbesserte 3D-CAD-Programm aus dem Grafik-Son- 

derhefl des 64'er-Magazins. Das GIGA-CAD-Plus-Pro- 

grammpaket (C64IC 128) mil neuen Features: bis zu Wmal 

schneller, emteiterterBefehlssatz, komfortablerzubedienen. 

Beslell-Nr. 90409 

ISBN 349090-409-2 

DM 49,-/sFr 45, 10/6S 382,20 
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H.Haberl 

Mini-CAD mil Hi-Eddl plus aut dem C64/C128 

1986, 230 Seilen, inki. Diskette 

Das Zeichenprogramm -Hi-Eddi- aus der Zeitschhft 64'er. Mil 

ausfuhriicher Dokumentalion, vielen Anwendungsbeispielen 

und neuen Features. 

Beslell-Nr. 90136/ISBN 3-89090-136-0 

DM 48,-lsFr 44.20/6S 374,40 
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Programmierpraxi 



Prol.F.Nestle/D.Pohlmann 

C64/CI28 Comal 80 Programmlerpraxis 

1987, ca. 160 Seilen, inkl. Diskette 

Eine Einfuhrung in das moderns Prozedurkonzept 

von Comal. Grundlagen, strukturiertes Program- 

mieren, Menutechnik und Gratik. Mil alien Beispiel- 

programmen aul Diskette. 

Beslell-Nr. 90511 

ISBN 3-89090-511-0 

DM 49,-lsFr 45, 10/6S 382,20 






B. Bornemann-Jeske 
| Das Vizawrite-Buch fur den C64/C12S 

1987. 228 Seilen 
I Das umlassende Handbuch lur die Textver- 

arbeilung mil Vizamite 64. Mil zahlreichen 

Tips aus der Praxis, urn den Leislungsumlang 

volt auszuschopfen. Fur Einsteiger und Prolis. 

Beslell-Nr. 90231 

ISBN 3-89090-231-6 

DM 49,-1 sFr 45, I0/6S 382,20 
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Geriach 
Hardware-Baslelelen zum CB4IC128 
1987, 310 Seilen, inkl.Diskette 
Eine leichlverslandliche Einfuhrung in die 
digilale Schalttechnik. Mil vielen Plalinen- 
layouts und ausluhrtichen Selbslbauan- 
leilungen fur einen Sprachausgabebaustein, 
Radioaklivitalsme8gerat. 128-Kbyte-EPROM- 
Karte, etc. Mil Treibersoltware zu alien 
Hardware-ZusStzen. 
Beslell-Nr. 90389 
ISBN 349090-389-4 
DM 49,-/sFr 45. 10/6S 382,20 
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O.Hartwig 

Experiments zur Kunst lichen 

Intelllgenz mil C64/C128 

1987, 245 Seiten 

Eine praxisbezogene Einfuhrung in 

die Kl-Programmierung in BASIC. 

Verarbeilen naturlicher Sprache, 

Wissensreprasenlation, Computer- 

Kreativitat, Robotics und Experten- 

systeme. 

Beslell-Nr. 90472 

ISBN 349090^72-6 

DM 49,-/sFr 45. 10/6S 382,20 
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F.Mallhes 

Pascal mit dem C64 

1986, 215 Seiten. 

inkl. Diskette 

I Buch und Compiler ermog- 
I lichen jedem Besitzer eines 
I C64 den Einstieg in die 
I moderns Programmier- 
I sprache Pascal. Aul der 
I Diskette isl ein prolessic- 
I neller Pascal-Compiler 

enlhalten. 

Beslell-Nr. 90222 

ISBN 349090-222-7 
\DM52,-/ 
\sFr 47S0/6S 405,60 



Markt&Technik-Produkte erhalten Sie bei Ihrem 
Buchhandler, in Computer-Fachgeschaften Oder in de 
Fachabteiiungen der Warenhauser. 




Irrtumer und Anderungen vorbehalten. 

Martfl&Technik 

Zeitschriften ■ Bucher 
Software ■ Schulung 

Markt&Technik VerlagAG, Buchverlag, Hans-Pinsel-StraBe 2, 
8013 Haar bei Munchen, Telefon (089) 4613-0. 
SCHWEIZ: Markt&Technik Vertriebs AG, Kollerstrasse 3, CH-6300 Zug, Telefon (042) 415656, 
OSTERREICH: Rudolf Lechner&Sohn, HeizwerkstraBe 10, A-1232 Wien, Telefon (0222) 677526, Ueberreuler 
Media Handels- und Veriagsges. mbH (GroBhandel), Laudongasse 29, A-1082 Wien, Telefon (0222) 48 1543-0 




Fragen Sie bei Ihrem 
Buchhandler nach unserem 
kostenlosen Gesamtverzeichn 
mil uber 300 aktuellen 
Computerbuchern und Software. 
Oder fordern Sie es direkt 
beim Verlag an! 
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Tools: Grafik 


17 Super-Utilities fiir den C 64 

Haufig benbtigte Programmierhilfen sind auf 
Knopfdruck parat 
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Einblenden wie im Film 

Vielseitige Routine zum Einblenden von Bildern 

Grafik spielend leicht 

Hohe Geschwindigkeit und leichte Bedienung 
kennzeichnen die Grafik-Erweiterung »Alan« 
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' Arte Texte im neuen Kleid 

Konvertierprogramme fiir den Printfox 

| Die Super-Diat fur Ihre Programme 

Der »64'er-Packer« kurzt Programme radikal 


B 90 
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Zeichen flink ersteilt 

Ein leistungsfahiger Zeichensatz-Editor 
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I Grundlagen 






Tools: Drucker 


Von Packern und Kompressoren (1) 

Die Kunst des »Packens« von Anfang an 

Von Packern und Kompressoren (2) 

I Trickreiche Pack-Algorithmen verstandlich erklart 

Genau betrachtet: RS232/V.24-Schnittstelle 

Wie funktioniert die RS232-Schnittstelle des C 64: 
Pinbelegung, Signale 
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Fantastische Hardcopies 
Ihr Drucker kann mehr als Sie glauben: 
Super-Hardcopies von Giga-CAD und sogar Farbe 
auf SchwarzweiB-Druckern 


B2S 


109 




Auf der Suche nach der Grafik 
Unentbehrlich fur Drucker-Fans: 
Egal, wo im Speicher eine Grafik liegt — 
der »Hardmaker« findet und druckt sie. 
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Geschwindigkeit in Basic 

Auch Basic-Programme konnen sehr schnell sein 

»Maschinen-Power« in Basic 

So verwenden Sie Betriebssystem-Routinen in 
Ihren Basic-Programmen 


B 116 
B125 






Super-Hardcopies fur Epson-Drucker und 

Kompatible 

Das ultimate Hardcopy-Programm fur 

Epson-Drucker 


B44 






Hi-Eddi-Druckerroutinen 

Auch »Problemkinder« unter den Druckern arbei- 

ten nun mit Hi-Eddi zusammen 
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I Tips & Tricks 






PEEKs und POKEs mit Effekt 

Nutzliche Speicheradressen fiir Probleme, bei 

denen das C 64-Basic nicht mehr ausreicht 


127 






Tools: Textverarbeitung 




Basic-Start-Generator 

Ein Traum geht in Erfullung: Alle Maschinen- 
programme mit RUN starten 

Die Tips & Tricks-Kiste 

Eine wahre Fundgrube: Die besten Tips & Tricks 

aus dem 64'er-Magazin 

Sicher ist sicher 

•Timesave- speichert Ihre Programme automatisch 

Fiir alle Programmierer: vier Utilities mit Pfiff 

Vier kleine Programme, die es in sich haben 








••Master-Spell.. — Das Ende alter Tippfehler 

Die optimale Erganzung zu Master-Text 

Master-Text und MPS 801/803: Verbesserte 

Druckroutine 

Unterstreichen, reverse Schrift und Unterlangen 

nun auch mit Commodore-Druckern 


B56 
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Werkzeugkasten — drei neue Erweiterungen zu 

Vizawrite 64 

Drei hervorragende Zusatzprogramme zu Viza- 
write 64. Darunter ein komfortabler deutscher 
Spell-Checker. 
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Tools: Floppy 


Die Speicherzellen von bis 1024, nach 
Funktionen geordnet 

Alles uber die Zeropage des C 64 
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Disk-Fuller: Retter in der Not 

Bis zu 17 zusatzliche Blocke schafft der 
»Disk-Fuller« 
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I Eingabehilfen 






Tools: DFU 


Checksummer V3 und MSE 

Diesen Artikel sollten Sie unbedingt lesen, wenn 
Sie ein Programm aus diesem Sonderheft abtip- 
pen mochten 


B159 






Schnelle RS232 ohne Hardware 

Power fur die serielle Schnittstelle: Bis zu 4800 
BiWs ermoglicht unser kleines Programm 


B71 






Tools gemischt 


| Sonstiges 






Assembler-Listings iibersichtlich ausgedruckt 

Listings sechsspaltig auf dem Drucker ausgeben 

Hypra-Comp bringt neuen Schwung 

Der Basic-Compiler macht aus langsamen Basic- 
Programmen schnellen Maschinencode 


B73 
B76 


Editorial 3 

Impressum 162 

Alle Programme aus Artikeln mil dem H-Symbol 'inden Sie auch 
auf der Programmservice-Diskette zu diesem Sonderheft 

















333P 



H-KI'HiliHii 



TOOLS: GRAFIK 



C64 



Einblenden wie im Film 



Hires-Bildschirme weich uberblenden Oder Spri- 
tes punktweise auf dem Spielfeld erscheinen las- 
sen, machen eine einfache Verschieberoutine zu 
einem kompletten Grafik-Utility. Hinter »Super- 
Dump« verbirgt sich eine komfortable Routine fur 
telle Effekte. 



D 



ie Routine (Listing 1) wird mit 
| LOAD "SUPER-DUMP , OBJ " , 8 , 1 

(,1,1 fur Datasette) geladen. Der Aufruf kann sowohl 
von Basic, als auch von Assembler aus erfolgen. Zunachst 
aber die Syntax fur Basic: 

SYS 49152, Quellblock, Lange, Zielblock, Muster, Tempo, 
Art 

Die Parameter haben dabei folgende Bedeutung: 
Quellblock 

Anfangsblock des Quellbereichs, der kopiert werden 
soil. Man erhalt ihn, wenn man die Anfangsadresse durch 
256 teilt, zum Beispiel 8192 durch 256 (H ires-Graf ik) ergibt 
die Blocknummer 32. 
Zulassige Werte: bis 255. 




Bild 2. . . . und kurz vor dem Ende der Bilderzeugung 

Lange: 

Wird ebenfalls in Blocken angegeben. 

Zulassige Werte: bis 255. 
Zielblock: 

Anfangsblock des Bereichs, in den hi neinkopiert werden 
soil. 

Zulassig sind Werte von 4 bis 255 (0 bis 4: Zeropage). 
Muster: 

Bestimmt das effektvolle Kopierverfahren, auf das noch 
genauer eingegangen wird. 

Moglich sind Werte von bis 255, wobei allerdings bei 
Werten groBer als 127 der Wert 127 gilt. 
Tempo: 

Hier kann man durch Werte von bis 255 bestimmen, wie 
schnell die Routine ablauft. 
Art: 

Setzt man ein, wird byte-weise kopiert, bei alien ande- 
ren Werten wird bit-weise kopiert. 

Alle benotigten Parameter sind von Basic aus durch ge- 
ringen Rechenaufwand zu erhalten und zu ubergeben. 
Mogliche Fehleingaben fuhren nicht zum Systemabsturz, 
sondern zur korrekten Fehlermeldung, wenn etwa Werte 




Bild 1. Die Bilder 1 bis 3 zeigen verschiedene Phasen der 
Einblendung. Am Anfang. . . 

groBer als 255 eingegeben werden Oder die Lange des 
zu kopierenden Bereichs samtliche Speichergrenzen 
sprengt. 

Tips fur Assembler-Proqrammierer 



Fur Benutzer der Maschinensprache verkiirzt sich das Pro- 

gramm urn den Teil, der die Parameter aus dem Basic-Text 

einliest. Da dieser Teil auch die Prufung auf Zulassigkeit 

enthalt, durfen nur korrekte Werte ubergeben werden, be- 

vor die Hauptroutine angesprungen wird. Im folgenden die 

Speicherstellen, in die die Parameter geschrieben werden 

mussen: 

$02a7 - Anfangsblock des Quellbereichs 

$02a8 - Lange des Bereichs 

$02a9 - Anfangsblock des Zielbereichs 

$02aa - Parameter fur Kopiermuster 

$02ab - Geschwindigkeit 

$02ac - Byte- Oder Bitweise 

Sind diese Parameter korrekt ubergeben, kann die 
Hauptroutine durch »JSR $c070« aufgerufen werden. Be- 
notigt wird allerdings der Bereich von $c065 bis daO! 
Beschreibung der Funktionen: 

Nachdem die Bedienung geklart ist, nun zu den Funktio- 
nen und Fahigkeiten von Super-Dump. 




Bild 3. Das Bild ist fertig eingeblendet 
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TOOLS: GRAFIK 



Es werden schnell viele Anwendungen deutlich: Ein-, 
Aus- und Uberblenden von Hires-Grafik, Bildschirm- 
Masken Oder Sprite-Grafik. So kann man zum Beispiel 
Spielfiguren effektvoll »zerbroseln« oder ins Spielfeld 
»beamen«! In Bild 1 bis 3 sehen Sie drei verschiedene 
Stadien eines solchen Oberblendvorgangs. 

Ferner kann man Super-Dump als schnelle Kopierrouti- 
ne benutzen, um zum Beispiel durch 
SYS 49152, 160, 32, 160, 0, 0, 

das Basic-ROM ins RAM zu kopieren und dort zu veran- 
dern. Durch 
POKE56334.0:POKE1,51 
SYS -49152, 208, 16, xxx, 0,0,0 
P0KE1,55:P0KE56334,1 

wird der Zeichensatz aus dem Character-ROM ab xxx ins 
RAM kopiert. Bei solchen Anwendungen sollte man natur- 
lich byteweise kopieren und als Geschwindigkeit wahlen. 

Eine weitere Moglichkeit besteht darin, durch Super- 
Dump groBere Speicherbereiche als den Hires-Grafikspei- 
cher zu loschen oder mit einem bestimmten Byte zu ftillen. 



Man loscht einen Block und kopiert ihn beliebig oft in einer 
Schleife in den Bereich, den man loschen mochte! 

In der Erklarung der Parameter wurde die Kopiermuster- 
zahl erwahnt, die das Kopierverfahren beeinfluBt. Diese 
Zahl von bis 127 wird zuerst verdoppelt und dann um 1 er- 
hoht. So erhalt man eine ungerade Zahl von 1 bis 255. 
(Wichtig fur Assembler-Programmierer: Nur ungerade 
Werte in $02aa ubergeben, da die Routine sonst nicht kor- 
rekt arbeitet!) Nachdem die Routine diese Zahl erhalten 
hat, wird ein Zahler angelegt, der 256mal um diese ungera- 
de Zahl erhoht wird. Wird der Zahler groBer als 255, subtra- 
hiert der Prozessor automatisch 256, so daB man alle Zah- 
len von bis 255 in scheinbar wahlloser Reihenfolge erhalt. 
Mit diesen Zahlen werden alle Bytes eines Blocks kopiert, 
das heiBt nicht nacheinander, sondern scheinbar wahllos. 

Eine Diashow laBt sich somit leicht erstellen, indem die 
Bilder in einen unsichtbaren Bereich geladen und zum Bei- 
spiel auf Tastendruck in den sichtbaren Bereich kopiert 
werden. 

(Holger Schemel/sk) 
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super-duap . ob J 


cOOO clOf 


oOOO 


20 fd ae 20 9e 


b7 8e a 7 


00 


cOOQ 


02 20 fd ae 20 


9e b7 8a 


Sa 


cOlO 


8d a7 02 cd a7 


02 bO 01 


da 


o018 


60 8e a8 02 20 


fd ae 20 


17 


cO20 


9e b7 eO 04 bO 


01 60 8a 


fc 


c028 


6d a8 02 cd a8 


02 bO 01 


83 


o030 


60 8c a9 02 20 


f d ae 20 


6f 


c038 


9o b7 eO 80 90 


02 a2 7f 


9d 


c040 


Be u 02 16 n 


ea ea 8a 


6e 


c048 


6d aa 02 69 01 


8d aa 02 


e3 


cOSO 


20 f d ae 20 9e 


b7 8e ab 


56 


o058 


02 20 fd ae 20 


9e b7 8e 


b2 



c060 
o066 
c070 
c078 
c080 
c088 
c090 
c098 
cOaO 
c0a8 
cObO 
c0b8 
cOoO 
o0c8 



ac 02 
dO fd 
ae a8 
8d af 
a9 fe 
00 85 
85 fc 
a8 02 
fb 91 
2d ae 
ad 02 
fc e6 
02 85 
68 aa 



4c 70 
c6 02 
02 dO 
02 a9 
8d ae 
fb 85 
ad a9 
ad ac 
f d 4c 
02 91 
11 fd 
f e co 
02 fO 
dO ce 



cO a2 
dO f7 
01 60 

01 8d 

02 aO 
fd ad 
02 85 

02 dO 
b6 cO 
fd bl 
91 fd 
6a 48 

03 20 
ad ad 



01 ca 
60 ea 
a9 08 
ad 02 
00 a9 
a7 02 
f e ae 
07 bl 
bl fd 
fb 2d 
ea e6 
ad ab 
65 cO 

02 18 



e9 
4d 
d7 

ca 
5a 
ea 
d9 
68 
•1 
97 
o5 
39 
6c 
14 



cOdO : 2a 

cOdS : 02 

cOeO : aa 

cOoB : fO 

cOfO : af 

cOfB : ea 

clOO I 02 

C108 : cO 



2a 2a 2a 
49 ff 8d 

02 a6 dO 
If ce af 
02 ad ad 
bO fb ca 
49 f f Bd 
60 00 00 



bO fa 8d ad 
ae 02 98 6d 
a8 ad ac 02 
02 fO la ae 
02 18 2a 2a 
dO f 8 8d ad 
ae 02 4c 8d 
00 00 00 00 



Listing 1. »SUPER-DUMP.OBJ«, 
eine einfache Routine fur tolle 
Grafikeffekte 
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COHPUTERZEIT 

Das Buch zur ARD-Fernsehserie 



Was macht den Computer so interessant fur 

junge Leute und fur Erwachsene? Wieso ist 

einComputerfaszinierenderundreizvoller 

als ein Taschenrechner, ein Musik- 

instrument oder ein Spiel? C 

Antwort ist recht einfach un 

wird Ihnen in diesem Buch au 

interessante Weise vermittelt: 

Der Computer kann vieles 

gleichzeitig sein! Er ist sc 

wohl ein Arbeitsmittel al: 

auch eine Freizeitbeschaf- 

tigung. Der Computer 

verbindet Nutzen, Fas- 

zination und Spa5 

auf ideale Weise. 

Diese drei Elemente 

des »computerns« enf- 

decken Sie in diesem Buch : 




Im Buch sind auBerdem ausfiihrliche Infor- 
mationen zu den einzelnen Folgen der 
ARD-Fernsehserie Computerzeit und Inter- 
essantes aus verwandten Themenkreisen 

alten, die im Fernsehen nicht in der 
Ausfuhrlichkeit abgehandelt wer- 
den konnen, wie z.B. Kauf- 
hilfen fur Hardware, Periphe- 
rie und Software, kunstliche 
Intelligenz und vieles mehr. 




Markt&Technik 

Zeitschriften - Bucher 
Software - Schulung 



Das Buch ist so geschrieben, dab es auch 
fur alle verstandlich und lesenswert ist, die 
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Graf ik spielend leicht 




Alan: eine komfbrtable Grafik-Erweiterung mit 
enormer Geschwindigkeit. Kurze Programme 
erzeugen die schonsten Graf i ken . Zusatzlich wird 
die Programmierung von Windows, Scrolling und 
ein verbesserter Basic-Editor geboten. 



D 



ie Basic-Erweiterung »Alan« stellt viele neue Grafik- 
| befehle zur Verfiigung, ohne den Basic-Speicher we- 
sentlich einzuschranken. Immerhin verbleiben Ihnen 
noch 34 KByte fur die Basic-Programmierung. 





* 
1 ■ 

-X.- - 






■ J 









Bild 1. Grafik-Beispiel mit dem REC- und CIRCLE-Befehl 

Neben den neuen Grafikbefehlen stehen Ihnen auch 
noch Editier-, Disketten-, Cursor-, Zeichensatz-, Scroll- und 
Windowbefehle zur Verfiigung. AuBerdem bietet »Alan« ei- 



ne erstaunliche Geschwindigkeit. In den Bildern 1 bis8zei- 
gen Ihnen einige Beispiele, was Alan zu bieten hat. 

Geben Sie »Lader Alan V7.2« (Listing 1) bitte mit dem 
Checksummer (Seite 159) ein. »Alan V7.2« (Listing 2) und 
»Alan ll« (Listing 3) miissen mit dem MSE (Seite 159) einge- 
geben werden. Laden Sie »Lader Alan V7.2« und starten 
Sie das Programm mit RUN. »Alan V7.2« und die anderen 
Unterprogramme werden selbstandig nachgeladen und 
aktiviert. Wenn das Einschaltbild und der Cursor erscheint, 
konnen Sie die neuen Befehle benutzen. »Alan« hat einen 
Reset-Schutz, das heiBt, nach einem Druck auf einen 
Reset-Knopf wird »Alan« wieder gestartet. 

Listing 4 ist ein Demoprogramm zu Alan. Es erzeugt die 
Bilder 1 bis 5 (und ein zusatzliches) in erstaunlicher Ge- 
schwindigkeit. Lassen Sie sich faszinieren davon. Auf der 
Programmservice-Diskette werden Sie noch weitere scho- 
ne Demos finden. 

Diskettenbefehle 



CAT 

CAT zeigt das Directory der eingelegten Diskette des 
Laufwerks Nummer 8 an. Durch Drucken von (SPACE) wird 
der List-Vorgang unterbrochen, danach wieder fortgesetzt. 
(RUN/STOP) beendet die Ausgaben. CAT fuhrt zu keinem 
Programmverlust und kann selbstverstandlich in eigene 
Programme eingebaut werden. 

STATUS 

STATUS liest den Diskettenstatus ein und gibt ihn auf 
dem Bildschirm aus. 

DISK Befehl 

Man sendet den entsprechenden Disketten- " Befehl " 
zum Floppy-Laufwerk. Dadurch erspart man sich die An- 
weisung -OPEN 1,8,15, "Befehl" : CLOSE 1«. Der Disket- 
tenbefehl muB in Anfuhrungszeichen eingeschlossen sein. 
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BLOAD "Filename" 

Dieser Befehl ladt ein Programm von Diskette nach, ohne 
irgendwelche Zeiger zu verandern. So kann man beispiels- 
weise ein Maschinenprogramm nachladen, ohne daB das 
Basic-Programm wieder gestartet wird. 

Editorbefehle 



HELP 

Alle neuen Befehle werden am Bildschirm angezeigt. 

OLD 

Ein mittels »NEW« geloschtes Programm kann durch 
OLD wieder zuriickgeholt werden. Nach einem erweiterten 
Reset bei modifizierten Betriebssystemen wird »Alan« mit 
SYS 49152 reinitialisiert; man kann dann mit OLD das alte 
Programm wieder zuruckholen. 

AUTO Anfangswert, Schrittweite 

Der AUTO-Befehl gibt die Zeilennummern automatisch 
aus. Die automatische Ausgabe wird durch Drucken von 
(RETURN) direkt nach der Zeilennummer aufgehoben. 

REN Anfangswert, Schrittweite 

Der RENUMBER-Befehl gibt dem gesamten Listing 
neue Zeilennummern. Nach (RETURN) wird dies ausge- 
fuhrt. Zu beachten ist, daB Sprungbefehle nicht mit einer 
neuen Zieladresse versehen werden. Mit dem FIND-Befehl 
lassen sich die Sprungbefehle aber leicht finden. 




Bild 2. Eine Kombination des REC- und BLOCK-Befehls 

DEL Anfangszeile — Endzeile 

Es werden die Basic-Zeilen von der Anfangs- bis zur End- 
zeile geloscht. Zwischen beiden Parametern muB ein »-« 
stehen. Ferner miissen die angegebenen Zeilennummern 
tatsachlich existieren. 

LLIST Anfangszeile — Endzeile 

LLIST gibt das Listing auf dem Drucker mit Gerateadres- 
se 4 aus. Mit der gleichen Syntax wie beim DEL-Befehl kon- 
nen Listing-Teile gedruckt werden. LaBt man die Zeilen- 
nummern weg, wird das gesamte Listing ausgegeben. 

LSCROLL A 

Mit LSCROLL kann ein Listing gescrollt werden. (F1) 
scrollt nach oben, (F3) nach unten. Gibt man fur die Varia- 
ble »A« den Wert »1« ein, wird der Befehl aktiviert, bei »0« 
wieder deaktiviert. Mit (F5) kann der Cursor bei aktiviertem 
Befehl in die untere linke Ecke positioniert werden. 

FIND Ausdruck 

FIND durchsucht das Basic-Listing nach dem angegebe- 
nen Ausdruck und listet diese Zeile auf. Die so ausgegebe- 



nen Zeilen konnen Sie dann sofort bearbeiten. Der Aus- 
druck muB direkt hinter dem Befehl stehen; es darf kein 
(SPACE) dazwischen sein. »FINDSIN(X)« sucht uberall 
nach dem Ausdruck »SIN(X)« im Basic-Listing. »FIND 
SIN(X)« dagegen sucht im Programm den Ausdruck 




Bild 3. Die Befehle LINE und CIRCLE in Varianten 

»(SPACE) SIN(X)«. Geben Sie also bei der Benutzung die- 
ses Befehls auf Leerzeichen besonders acht. Die Ausgabe 
der gefundenen Zeile wird durch (RUN/STOP) , nicht aber 
durch (RUN/STOP RESTORE), unterbrochen. 

CEN 

Es wird eine am 
Schnittstelle aktiviert. 



User-Port simulierte Centronics- 



DMODE 

Wenn DMODE aktiviert wurde, werden alle Basic-Zeilen 
geloscht, die man mit dem Cursor »uberfahrt«. 

DOFF 

Durch diesen Befehl wird DMODE deaktiviert. 

Cursorbefehle 



HOME A 

A nimmt den Wert Oder 1 an. Bei HOME wird der Bild- 
schirm geloscht und der Cursor nach 0/0 (linke obere Ecke) 
gesetzt. HOME 1 loscht den Bildschirm, setzt aber den Cur- 
sor auf 0/22. Bei dieser Position beginnt im gesplitteten 
Bildschirm (siehe Grafikmodus 1) dasTextwindow; so kann 
man mittels »PRINT« direkt in das Text-Window schreiben. 

VTABA 

Mit diesem Befehl wird der Cursor auf die A-te Zeile posi- 
tioniert. Fur A sind nur Werte zwischen und 24 erlaubt. 
Beispiel: VTAB 5 setzt den Cursor in die 5. Zeile. 



Zeichensatzbefehle 



CCOPY 

CCOPY kopiert den Zeichensatz von $D000 nach $3000. 
Dort kann er dann nach Belieben bearbeitet werden. 

CNEU 

Es wird der Zeichensatz ab $3000 eingeschaltet. 

CALT 

Der Zeichensatz ab $3000 wird abgeschaltet und der ori- 
ginal Commodore-Zeichensatz wird aktiviert. 
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Scroll- und Window-Befehle 



WGET D$ 

WGET Nest einen String A$ ein. Das geschieht eigentlich 
genauso wie bei dem Befehl INPUT. Der Unterschied ist 




Bild 4. Der LINE-Befehl verkniipft mit einer Sinus-Funktion 

der, daB man Sonderzeichen wie »,;> Oder ahnliches einge- 
ben kann. Dereingegebene String wird im Kassettenpuffer 
ab Adresse 828 zwischengespeichert. So kann dieser 
String von dem SCROLL Befehl weiterbenutzt werden. Je- 
doch muB der String, den man einliest, immer wieder neu 
geschrieben werden, da die Get-Routine des Betriebssy- 
stems benutzt wird. 

TRANSFER A$ 

Mit TRANSFER A$ wird der String A$ direkt in den Kas- 
settenpuffer gespeichert. Ein eventuell nachfolgender 
SCROLL-Befehl kann diesen String nun weiter verwenden. 
Dies ist dann sinnvoll, wenn man eine Laufschrift erzeugen 
will, ohne daB der Text von der Tastatur eingelesen wird. 

SCROLL A 

Der Wert A gibt die Anzahl der Zeichen an, die am unte- 
ren Bildschirmrand gescrollt werden. Er kann Werte von 1 




Bild 5. Der CIRCLE-Befehl in Sinus-Kombination 

bis 255 annehmen. Der Text steht dabei im Kassettenpuffer, 
wo er mittels TRANSFER Oder WGET abgelegt wurde. Es 
empfiehlt sich, am Anfang der Zeichenkette zwei Leerzei- 



chen einzugeben. Das Scrollen wird durch den Befehl 
TEXT beendet. 

WINON X, Y, Lange, Breite. Nummer 

Mit WINON wird ein beliebiges Window definiert. X und 
Y geben die Anfangskoordinaten (linke obere Ecke) an. 
Lange und Breite bestimmen die GroBe des Windows. Die 
Nummer gibt an, welches Window eingeschalten wurde. Es 
konnen nur zwei Windows definiert werden, da siesehrviel 
Speicherplatz benotigen. Nach der Windowdefinition wird 
der definierte Bereich vorerst mit Shift-Space aufgefullt. 
Die Farbe legt man mittels »POKE 39169,Farbe« fest. Der 
Cursor wird im Window positioniert und durch eine pro- 
gramminterne Abfrage daran gehindert, es wieder zu 
verlassen. 

WINOFF 

WINOFF schaltet das zuvor definierte Window wieder 
aus. Deswegen werden die »alten« Werte zuriickgeholt. Au- 
Berdem schaltet das Programm den Interrupt wieder auf 
normale Konf iguration, und der Cursor ist wieder frei zu be- 
wegen. 

COL Rahmen-, Hintergrund-, Zeichenfarbe 

Mit COL wird die Rahmen-, Hintergrund- und Zeichenfar- 
be gesetzt. 

Grafikbefehle 



HGRA 

A nimmt den Wert oder 1 an. HGR 1 schaltet die Grafik 
auf den ganzen Bildschirm an. Man hat nun eine Auflosung 
von 320 x 200 Punkten zur Verfugung. Die Bitmap erstreckt 
sich von $6000 bis $7F40. 

Bei HGR wird der obere Bereich des Bildschirms als 
Grafikfenster verwendet; die unteren fiinf Zeilen sind fur 
Textgedacht. Mit HOME 1 wird derTextbildschirm geloscht 
und der Cursor nach 0/20 positioniert. Diese Betriebsart 
kann man gut in Adventures nutzen (oben Grafik, unten 
Text). Auch diese Grafikbitmap beginnt bei $6000; man hat 
aber nur eine Auflosung von 320 x 168 Punkten zur Verfii- 
gung. Bei HGR konnen weder Windows definiert werden 
noch die Laufschrift (SCROLL) eingeschalten werden, da 
alle drei Routinen den Interrupt verwenden. 

TEXT 

Mit TEXT wird die Grafik ausgeschaltet und derTextbild- 
schirm wieder aktiviert. AuBerdem stoppt dieser Befehl die 
Laufschrift. 

GCLR 

GCLR loscht den Grafikbildschirm. 

SET Zeichen-, Hintergrundfarbe 

Mit SET werden die Farben der Grafik festgelegt. 

MODE A 

MODE stellt den Zeichenmodus ein, wobei A den Wert 
Oder 1 haben kann. MODE gibt an, daB alle Grafikpunkte 
gesetzt werden. MODE 1 bewirktgenau das Gegenteil, alle 
Grafikpunkte werden geloscht. 

INV 

Derganze Grafikbildschirm wird invertiert, das heiBt, ein 
gesetzter Punkt wird geloscht und ein geloschter Punkt 
wird gesetzt. 

PLOT X, Y 

PLOT setzt Punkte an der X- und Y-Position des Grafik- 
bildschirms. Die X-Koordinate darf dabei den Wert 319, die 
Y-Koordinate den Wert 199 nicht iiberschreiten, da sonst ei- 
ne Fehlermeldung ausgegeben wird. 
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Ein Beispielprogramm fiir eine Sinuskurve: 
10 HGR : REM Grafik ein (gesplittet) 
20 GCLR : REM Grafik loschen 
30 SET 3,0 : REM Farbe setzen 
40 HOME 1 : REM Textbildschirm loschen 
50 PRINT " Sinuskurve " 

60 FOR X = TO 319 
70 PLOT X,SIN(X/5)*20+100 
80 NEXT 

90 GET A$ : IF A$ = " " THEN 90 
100 HOME : REM Bildschirra loschen 
110 TEXT : REM Auf Textbildschirm umschalten 
120 END 

LINE X1,Y1,X2,Y2 

LINE zeichnet eine Linie im Grafikbildschirm. Die Koordi- 
naten X1 und Y1 geben den Anfangspunkt und die Koordi- 
naten X2 und Y2 geben den Endpunkt der Linie an. Wie 
beim PLOT Befehl gelten auch hier die Einschrankungen 
der Koordinaten: 
^ X ^ 319 
^ Y ^ 199 

HLINE X, Y, Lange 

HLINE gehort mit zu den Befehlen, die noch nie in einer 
Grafikerweiterungvorhandenwaren. Dieser Befehl zieht ei- 
ne horizontale Linie in einer unvorstellbaren Geschwindig- 
keit. Wenn man sich uberlegt, da8 viele Linien gerade ver- 
laufen, kann man es sich zunutze machen, daB die Bitmap 
so angelegt ist, daB ein gesetztes Byte einer horizontalen 
Linie von 8 Punkten entspricht. Es wird der Anfangspunkt 
berechnet und die Lange der Linie durch acht geteilt. Jetzt 
wird zur Anfangsadresse acht addiert und dieses Byte ganz 
gesetzt. Dieser Vorgang wird so oft wiederholt, bis die An- 
zahl der Schleifendurchlaufe genau INT(Lange/8) betragt. 
Die restlichen Punkte, das vordere und hintere Stuck, wer- 
den mit der normalen LINE-Routine gesetzt. Dieser Algo- 
rithmus hat den Vorteil, daB nicht jeder Punkt berechnet 
und gesetzt werden muB, wie es bei den ublichen Erweite- 
rungen der Fall ist. Die Parameter X und Y geben den An- 
fangspunkt an; die Lange ist natiirlich die Lange der Linien 
in Punkten gezahlt. Man sollte aber auf jeden Fall folgende 
Bedingung einhalten: 
X + Lange ^ 319 

VLINE X, Y, Lange 

VLINE ist auch ein ganz neuer Befehl, der HLINE sehr 
ahnlich ist. VLINE zieht aber im Gegensatz zu HLINE verti- 
kale Linien, und das mit derselben Geschwindigkeit wie 
HLINE. Es wird auch hier der Anfangspunkt ausX und Y be- 
rechnet. Danach wird die Position in Byte errechnet und 
der Punkt gesetzt. Addiert man nun den Wert 1, so erhalt 
man den nachsten Punkt, den man setzen muB. Wenn ein 
8-Byte-Block zu Ende ist, addiert man 312, urn zum nach- 
sten 8-Byte-Block zu gelangen. Fur diesen Befehl muB die 
Bedingung Y + Lange ^ 199 eingehalten werden. 

BLOCK X, Y, Lange, Breite 

Es wird ein ausgefiilltes Rechteck gezeichnet. X und Y 
geben die linke obere Ecke an, gefolgt von der Lange und 
Breite, die die GroBe des Blocks bestimmen. Da dieser Be- 
fehl auch die Routine HLINE benutzt, sollte man die Para- 
meter mit Sorgfalt behandeln. Dies ist iibrigens einer der 
schnellsten Block-Befehle fur den Commodore 64, denn er 
setzt zirka 128000 (!) Punkte pro Sekunde; 64000 Punkte 
(ein Bildschirm voll) setzt die Routine in ^/m (= 9 ho) Sekun- 
den. Sie konnen es ja einmal ausprobieren mit BLOCK 
0,0,319,199. 

REC X, Y, Lange, Breite 

Der REC-Befehl ist mit BLOCK gleichzusetzen; er hat die 



gleiche Syntax, zeichnet aber nur Verbindungslinien des 
Rechtecks. 

CIRCLE X, Y, X-Ausdehnung, Y-Ausdehnung 

Es werden beliebige Ellipsen gezeichnet. X und Y sind 
die Koordinaten des Mittelpunkts; die Y-Ausdehnung ist 




Bild 6. Farbige Balken-Grafiken mit dem BLOCK-Befehl 

der Radius in der Y-Achse. Genauso verhalt es sich bei der 
X-Ausdehnung; sie entspricht dem Radius in der X- 
Richtung. 

INK alte Farbe, neue Farbe 

Mit dem INK-Befehl kann man aus dem sonst einfarbigen 
Grafikbildschirm einen farbigen gestalten. Die Auflosung 




Bild 7. Eine Kreation nur mit dem REC-Befehl 



von 320 x 200 Punkten bleibt dennoch erhalten. Es wird in 
jedem 8-Byte-Block gepruft, ob ein Punkt gesetzt ist. Wenn 
nein, dann wird der Wert, der im Video-RAM steht, gean- 
dert. Ist jedoch ein Punkt gesetzt, bleibt der alte Farbwert 
erhalten. 



333? 



SONDERHEFT 24 



13 



TOOLS: GRAFIK 



C64 




Bild 8. Auch Hardcopies lassen sich erzeugen 



10 REM »*»»*»•*»*•»*»»»•»■»»»»» <004> 

12 REM » * <061> 

14 REM » ALAN » <087> 

16 REM « * <065> 

IB REM » VON » <151> 

20 REM * * <069> 

22 REM * ALEXANDER GASS * <132> 

24 REM * « <073> 

26 REM » ANDREAS FUSTELNY * <106> 

28 REM * * <077> 

30 REM * <W> 1986/87 " <232> 

32 REM * » <024> 

34 REM *»»«»#»»*»»»»»«»*»»« <028> 

36 : <012> 

38 PRINT CHR*(147) <067> 

40 : <016> 
42 PRINT" JDOWN, RIGHT, RVSON,SPACE>ALAN V7.2 



COPY 

Es wird eine Hardcopy des Grafikbildschirms 
($6000-$7FFF)aufdenDruckerausgegeben.FurdieBesit- 
zer eines Userport-Centronic-lnterface ist ein Treiber vor- 
handen, der mit »CEN« aktiviert wird. Bei der Verwendung 
des COPY-Befehls ist darauf zu achten, daB der Grafikbild- 
schirm ausgeschaltet ist, da sonst eine Fehlfunktion auf- 
tritt. 

CHANGE A 

Wenn A den Wert enthalt, dann wird der Grafikbereich 
von $6000 bis $7FFF mit dem Bereich von $A000 bis $BFFF 
vertauscht. Bei A = 1 wird der Bereich ab $6000 mit dem 
ab $A000 ODER verkniipft und danach bei $6000 abgelegt. 

GSAVE "Filename" 

GSAVE speichert den Bereich von $5C00 bis $8000 auf 
Diskette unter dem Namen Filename. Es wird so das Video- 
ram ($5C00 bis $5FFF) und die Bitmap ($6000 bis $7FFF) 
gespeichert. 

Dies waren alle neuen Befehle, die nicht nur jenem 
Basic-Programmierer zugute kommen, der sich mit der 
zeitkritischen hochauflosenden Grafik auseinandersetzt. 

Sie konnen auch Adventures, Kalkulationsprogramme 
und vieles mehr mit »Alan V7.2« programmieren. 

(A. Pustelny/A. GaB/Th. Lipp) 



WIRD GELADEN 



44 : 

46 IF A=0 THEN A=l : LOAD "ALAN V7.2",8,l 

48 IF A=l THEN A=2: LOAD "ALAN II", 8,1 

50 : 

52 SYS 50672 : REM * ALAN AKTIVIEREN * 

54 : 

Listing 1. »Lader Alan V7.2«, bitte mit dem Check- 
summer (Seite 159) elngeben. 
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LnB' Dich in eine tibenteuer- 
liche Spielewelt entf uhren: 

alles, was Du dazu brauchst, ist ein C64 oder ein 
C 128, die Spieledisketten - und schon kann die 
Reise losgehen! 
Nutze Deine Joystick-Kiinste, indem Du sicher einen 
Weg aus dem Labyrinth findest. Bewahre Deinen kiihlen 
Kopf in aufregenden Aktionszenen und Kampfduellen! 
Zeige Deine Fdhigkeiten als Bdrsenmakler in lebensnahen 
Wirtschaf rssimularionen! Beweise Deine Fdhigkeiten als 
Prdsident, Manager und Trainer eines Bundesligaciubs 
und und und... 



. \ 
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Spiele- 
sammlung 



JSS ftben^eu ersp-.^e, 

jftfae- 

drel OisUetten 



Mil den 15 sponnenden Spinisn. der auv- 
ruhrlknen Anleitung wwie den farbigen 
Sildichlrmfoto* id Dir tin rontoiriichei 
Spiolrtrgnuoi-n gewift: 

•olllardt EinfaTliwinkel - AmfalhwinM 
Vror doi nidtf befolgt, hot el ichwer bti 
dleur Miidwng am Tennis und Bilkjrd . The W« l Zu vonchrunge- 
iwi Pfodon geiffllon lidl Goldiocke und bto Geioer. die « iu 
bokamplen gill. Vogor 3. JowIioVprora mil ungetrubfom Vnier- 
Wick und Wnirinsmkl kSnnen Sir Punktekoato ichwer mil AbtchuS- 
pramien beladen. Firebug: Hoffenllich rongl Dein Joytficfc nicht 
•bentalli Feuer, went «i hefty, die wectvoflen Kofler oui dem 
brennenden Hovi dot Prohuion iu •rwadnn. »lrot: Walk, 
Timing und gule NovigglipiiiktimmiiH ilnd Vorou tutumg fOr tin 
bii iu 23 John lonqoi Pirolenlebon. WlrtKhaftunonogor: 
Simulation out don nochoon Etogen dor Wirhchart, nioSl 1000 
Stuck, londent game Firmon gohen Obor den eUdenfieche. View 
flenvinnt: Einrocb, abor gerodo deihalb (in Spiel, doi fdinoll ru 
Erfblgiertebniuen fohrt. Brahutecm: Maaermind Band Poo for 
dioios vieliem'ge Denkipiel HnHO-OwU: Spiol' Scboch gogon 
einen CM Moioi Wit dio Ubonknt behoh und mchl kopfioi 
K»fumtpringi, wind doi Sol errelchen. ScMfre eoji Willi am 
Endlidt tint rdire Venion dleue weitwbraiMm Spielei. ml 
zusarzlichen Spitlvarianron. Handbell Hint konnd Du deinen 
Geidiah'winn und Doino Riiikoboroihchah unter Bewvii itollen. 
ohoo wirklidl ipaler am Hungortuch nogen zu motion, tore*: 
Diou Spiol bioMI wirklkh einen herwrragenden Einrfiog ini 
Sonenkormsell. AuBerdem tind nodi dio Spiele View In view und 
Maglc-Cubi enihalten 
Hardwaro-Anfordorungen: 
C64 odor C 128 biw. C 1280 (64of-ModuiL 
Hoppy 1541, 1570 odor 1571 und JoyOidr. 

Beitoll-Nr 90429, IS8N 3-89090-429-7 







Spiele- 

sommlung 



Robox: Fesselndet Grahli-Sdence-Fich' 

Adventure. Der Herrscher eines fremden 
Planeten lieB sein Gehirn nach seinem Tod kunsttich weiterleben - in 
einem Korper ohne Seele. Aus dieser Kombination, halb Roboter 
und halb Mensch, halb leband und halb lot, die Robox genonnt 
wurde, enitand der Ha8 auf alles Lebende. Er befahl daher seiner 
Roboler-Armee, samtliches Leben des Univefsums zu vernichten. 
Deine Aufgobe isl es, zu Robox zu gelangen und ihn unschadlich zu 
machen, urn die Erde vor ihrem sonst sicheren Tod zu bewohren. Wie 
Du das tust, bleibt Dir uberlossen. Scotland Yard: Sponnendes 
Kriminal-Adventure. Begib Dich auf ipannende VBrbrecherjagd in 
das London des I°Jahrhunderts, und lasse Dich engagieren bei 
ScoHand Yard. >A»rhdre Tatverdachtige, prufe deren Alibis und ver- 
hjlqo die 5puren zuruck zum Talw. All Belohnung fur die Losung der 
zenn ungeitiorten Falle wartet Deine Beforderung zumOberinipek- 
lor. Mit dem mitgelteferten Foil-Editor konttruierst Du weitere 
Varbrechen und gibst domit Deinen Freunden hone Nusse zu 
Icnacken. 

3 Diskette (beidseitig besptelt) fur den C64/C 128 
Bestell-Nr. 38704 

DM29,90* (sFr24 / 90«/6S299,-*) 

AuBerdem gibl 01 in der Software-Reihe >64V Extra, nodi fol- 
gende Programme: Bed of Grafik Vol.1, 3D-Grafikftjr C64,Grafik- 
Deiign, Tipi&Tridu, Beilell-Nr. 38701, DM 49,90" («Fr 44,90*/ 
65 499,-") • Bod of Grofik Vol. 2, Scrolling (ur Spiele, Fraaal- 
Landidiamn, Bulineu-Grofik, Grofik-Erweiterungen, Supor- 
Drucker-Sofrware. Beitell-Nr. 38702, DM 39,90" |iFr 34,90"/ 
6S399,-") • Ben ol Grofik \fel. 3, Ervwilerungen (Or Grofik und 
Spiele, 3D-Trickfilm, Apfelmdnnchen, Super-Hardcopiei, Beiteli- 
r4r. 38703, DM 39,90" (tfr 34,90'toS 399,-") 



DM39, 



(sfr35,90*feS 304^0*) 



' Unverbindliche Preisempfehlung 




UVIarkt&Technikl 



Audi der zweite Bond der Spielesommlung 
mil 14 sponnenden Spielen enrfuhrl Dich in 
eine fonlostischa Adion-WBll: 
tlllard: Banden- oder Lochbillard, allein 
oder zu zweit, dos ist hier die eine Froge. 
Wie Du die Kugeln dann eintochst, eine ganz 
andere. Tontf: Ein schnelles Auge und geschickle Hande am Joy- 
stick werden verlangt, urn auch einmal eine Tonlaube zu treffen. 
Frclhelt: Du bist out einer I nsel, gefangen im untersten Verlies. Wie 
Ruchtest Du zur Nochbarinsel? Der Weg wind schwierig, denn bis zu 
hundert Raume sind zu meistem. Ein Textadvonture besonderer 
Klasse. Apokalypse Now: Ein Hubschrauber-Klauilcer, ein 
Spiel mit todlichem Ausgong - nicht unbedingl fur Dich - aber nur, 
wenn Du am Joystick Prof iqualitaten vorweisen kannit Block out: 
Ein Spiolhallenhit fur den C64. Reaktionsvwmogen, eine ruhige 
Hand und etn biBchen Gliick qehoren schon dazu, urn alle Blocke 
abzuschieBen. Aquantor: Wasser, Wauer, Wauer, so weit der 
Bildschtrm reicht. Nur schnell einen Damm errichten und HetBig 
punkten, wenn man imTrodcenen sitzt. Todiiches Dloxiri: Du hast 
v'ter hochmodeme Hubsdvaubet und bist selbst ein wagemutiger, 
unersdirockenef Pilot. Der Haken an der Soche ist die FroaSl - toaSi- 
ches Dioxin. libra: Du fliegst fur die intefgaloktische Foderotion der 
Raumritter und rettest ein unabhangiqes Sonnensyslem. Dash*r: 
Poc-Man stand Pate fur dieses Spiel. Zu den bekannlen Funktionen, 
wie Punkte fnsssen und Gegener vernichten. erhohst Du die Moglidv 
keit, eigene Spielfelder zu entwerfen und aufzubauen. BundosJtaa 
Manager: Einer der 18 8undesligadubs wortel auf Dem Muhitalent 
und Du hast wirklich machrtge Mitwl zur Hand, urn erfolgreich zv 
agieren. AuBerdem sind noch die Spiele Golf, Zauberschlofi, 
Steal Slab und Space Invader enthahen. 
Hardwore-Anfordorungen fur Band 1 und Band 2: 
C64 oder C 128 bzw. C128D (64'er Modus}, Hoppy 1541, 1570 
oder 1571 und Joystkk. 
Betfe-H-Nr. 90428, ISBN 3^9090-428-9 

(sfr 35,90*A5S 304 / 20*l 



rholten S.e 



DM39, 






Zeitschriften • Biicher 



Softwore ■ Sch ulung 

Morkl&Technik Verlog AG, 8uchverlag, Hans-Pinsel-SlraBe 2. 8013 Hoar bei Munchen. Telefon (089) 4613-0 
Beslellungen im Auslond bille an: SCHWEIZ Morkl&Technik Vertriebs AG, Kollersitosie 3. CH-6300 Zug. Telefon (042) 415656 OSTERREICH Rudoll Lechner & Sohn 
HetzwerkslraBe 10, A-1232 Wien. Telelon (02 22) 677526 Ueberreuler Medio Verlogsges mbH (GroBhondel). Loudongosse 29, A-1082 Wien. Telelon (0222) 48 1543-0' 
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g 3. (SchluB) 












9640 


02 eO 3a fO 03 4c 39 96 


04 


























9648 


a5 7b c9 07 dO d6 a5 7a 


4d 


























9650 
9658 


■ c9 cO fO 03 4c 24 96 a9 
00 8d bl 97 a9 01 85 b7 


as 


























a6 f 




























9660 
9668 


: 4c 31 ea 99 f 8 96 c8 bl 
7a eO 05 dO f6 a9 96 aO 


fd 

f6 






















































9670 


: 7d 8d ff 01 8c fe 01 a2 


de 




























9678 


f9 9a 4c 31 ea a9 00 85 


ff 




























9680 
9688 


: d3 85 dfi 20 10 e5 a2 f7 
: aO 96 86 7a 84 7b 20 73 


7a 
fO 


10 


HGR 


1:GCLR:SET 1,0: 


CCOPY 


Listinc 


1 4. Dieses Demopro- 






9690 


: 00 20 6b a9 20 13 afi a5 


31 


20 


FOR 


1=1 TO 90 STEP 


5 




gramrr 


l erzeugt die Bilder 1 bis 5. 


9698 
96a0 


: 5f 85 fb a5 60 85 fc a5 
: 5f 38 e9 04 85 5f a5 60 


df 

cl 


30 
40 


REC 160-1,100-1.1.1 
NEXT I 




• 


Bitteg 


eben Sie es nur 


bei 






96a8 


: e9 00 85 60 a5 5f 38 e9 


09 


50 


FOR 


1=1 TO 90 STEP 


5 




aktive 


m »Alan« ein. 












96b0 


: 01 85 5f 8d b4 97 a5 60 


5d 


60 


REC 


160,100,1,1 
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C64 



70 NEXT I 


290 NEXT I 


80 FOR 1 = 1 TO 50 STEP 5 


300 FOR 1=1 TO 50 STEP 7 


90 CIRCLE 160+1,100-1,1,1 


310 LINE 160,100,190+ABS(INT(COS(I)*40)),I 


100 NEXT I 


320 NEXT I 


110 FOR 1=1 TO 50 STEP 5 


330 FOR 1=1 TO 50 STEP 7 


120 CIRCLE 160-1,100+1,1,1 


340 LINE 160, 100, ABS( INT(COS( I )*40) ) , 130+1 


130 NEXT I 


350 NEXT I 


155 WAIT 198,255 


360 POKE 198,0: WAIT 198,255 


156 GCLR 


370 GCLR 


157 FOR 1=10 TO 90 STEP 10 


380 FOR 1=0 TO 319 


158 REC 160-1,100-1,2*1,2*1 


390 VLINE I,0,100+75*SIN(<t*4*I/278) 


159 NEXT I 


400 NEXT I 


160 FOR 1=0 TO 100 STEP 5 


405 POKE198,0:WAIT198,255 


170 REC 269-1,159-1,50,40 


410 HGR1: GCLR: GCLR: R=50 


180 NEXT I .-BLOCK 269-1,159-1,50,40 


420 FOR X=l TO 319 STEP 3 


190 FOR 1=0 TO 100 STEP 5 


430 LINEX, 40 , 50*SIN(X/30 )+100 , X/l . 6 


200 REC 0+1,0+1,50,40 


440 NEXT X 


210 NEXT I: BLOCK 0+1,0+1,50,40 


450 POKE198,0:WAIT198,255:GCLR 


220 POKE 198,0:WAIT 198,255 


455 FOR X=l TO 162 STEP 3 


230 GCLR 


460 CIRCLE160 , 100 . 30*SIN(X/10 ) +100 , X/l . 6 


240 FOR 1=1 TO 50 STEP 4 


470 NEXT X 


250 CIRCLE 160-I,100-I,ABS(INT(SIN(I)*40)),I 


1000 POKE198,0:WAIT 198,255 


260 NEXT I 


1010 TEXT : HOME1 : VTAB6 : HELP: END 


270 FOR 1=1 TO 50 STEP 4 




280 CIRCLE 160+I,100+I,ABS(INT(SIN(I)*40)),I 


Listing 4. (SchluB) 



Zeidien f link erstellt 



Mit diesem Programm konnen Sie einfach und 
schnell Ihren eigenen, ganz personlichen Zei- 
chensatz entwerfen. Als Bonbon enthalt das Pro- 
gramm eine Routine, mit der sich Zeichensatze 
auf Diskette generieren lassen, die wie ganz nor- 
male Basic-Programme geladen und gestartet 
werden. 

Der »Character-Editor ll« (Listing 1) ist ein Programm, 
mit dem sich leicht und komfortabel eigene Zeichen- 
satze erstellen lassen. Nach dem Laden mit »LOAD 
"CHR-EDITOR II " ,8« wird das Programm durch den Befehl 
RUN gestartet. AnschlieBend stehen dem Benutzer die bei- 
den Zeichensatze des C 64 zur Bearbeitung zur Verfugung. 
Der Editor verfugt uber 21 Routinen, die das Erstellen eines 
neuen Zeichensatzes in sehr komfortabler Weise unterstiit- 
zen. Die Routinen sind in einer Menutafel innerhalb des Ar- 
beitsbereiches durch die Cursortasten frei anwahlbar. Der 
Character-Editor ist dabei sehr ubersichtlich gehalten. Es 
wird immer das gerade zu bearbeitende Zeichen, dessen 
Code, die entsprechende 8x8-Matrix und der aktuelle Zei- 
chensatz verarbeitet (Bild 1). Das Hin- und Herspringen 
zwischen verschiedenen Menus entfallt. Alle Ein- und Aus- 
gaben werden in einer speziellen Zeile im unteren Bereich 
des Bildschirms verarbeitet. Die Steuerung innerhalb der 
Routinen wird ebenfalls mit den Cursortasten erledigt, so 
daB der Editor mit wenigen Tasten schnell und einfach zu 
bedienen ist. Weiterhin verfugt der Zeichensatz-Editor uber 
einen Testmodus, in welchem der Zeichensatz in der obe- 
ren Bildschirmhalfte eingeblendet ist, und so die gesamte 
Tastaturbelegung ausprobiert werden kann. 

Die bearbeiteten Zeichensatze lassen sich auf Diskette 
speichern. Der fertig generierte Zeichensatz kann aber 
auch als eigenstandiges Programm mit Basic-Start ge- 
speichert werden. Das bedeutet, daB ein geanderter Zei- 
chensatz mit "LOAD "ZEICHENSATZ" ,8« geladen und mit 
RUN gestartet wird. 
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Bild 1. Das Arbeitsfeld des Zeichensatz-Editors 

Alles in allem steht Ihnen ein sehr leistungsfahiges Werk- 
zeug zur Verfugung, mit dem ein den individuellen Bediirf- 
nissen und Wiinschen angepaBter Zeichensatz erstellt 
werden kann. 

Das Zeichen, welches editiert werden soil, kann jederzeit 
direkt uber die Tastatur eingegeben werden (normal Oder in 
Kombination mit der SHIFT- oder CBM-Taste). Das Setzen 
oder Loschen eines Punktes erfolgt mit der CBM-Taste. 

Es stehen aber noch weitere, uber die Tastatur zu errei- 
chende Funktionen zur Verfugung. Diese sind: 

< INS > - Anwahl des zu bearbeitenden Zeichens durch 
Erhohen des Character-Codes urn den Wert 1. 

< DEL> -Anwahl des zu bearbeitenden Zeichens durch 
Erniedrigen des Character-Codes urn den Wert 1. 

<HOME> - Anwahl des zu bearbeitenden Zeichens 
durch Erhohen beziehungsweise Erniedrigen des 
Character-Codes urn den Wert 128. 

< F1 > - Austauschen der beiden zu bearbeitenden Zei- 
chensatze. 
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< F2> - Kopiert die Zeichen der Character-Codes bis 
127 als die Zeichen der Character-Codes 128 bis 255 und 
invertiert diese. 

<F3> - Invertieren des aktuellen Zeichens. 

<F4> - Loscht das aktuelle Zeichen. 

<F5> - Sprung in den Testmodus und zuruck mit 
< RETURN >. 

<F6> - Schaltet den editierten Zeichensatz ein bezie- 
hungsweise aus. Die Meldung »Zeichensatz nicht aktiviert« 
wird entsprechend ein- Oder ausgeblendet. 

<F7> - Speichert das aktuelle Zeichen. 

< F8> - Obernimmt das gespeicherte Zeichen anstelle 
des aktuellen Zeichens. 

Diese Funktionen sind in jeder Bearbeitungsroutine je- 
derzeit erreichbar. 

Anwahl der Bearbeitungsroutinen 

Die Abkurzungen der Bearbeitungsroutinen befinden 
sich in einer kleinen Menutafel innerhalb des Bildschirms. 
Mit den Cursortasten kann ein Pfeil gesteuert werden, der 
immer auf die momentan angewahlte Routine zeigt. 
Gleichzeitig wird der voile Text der angewahlten Funktion in 
einer speziellen Zeile im unteren Teil des Bildschirms aus- 
gegeben. Ein Druck auf die RETURN-Taste aktiviert die ge- 
wunschte Funktion. Ein weiterer Druck auf < RETURN > 
verlaBt die Funktion wieder. Der Pfeil erscheint dann wieder 
und die reverse Darstellung der aktiven Funktion erlischt. 
Doch nun die Routinen im einzelnen: 
EDC (Edit Character) 

Editieren eines Zeichens. Es erscheint der Cursor inner- 
halb der 8x8-Matrix des aktuellen Zeichens. Mit den Cur- 
sortasten kann nun jedes Bit des Zeichens angefahren wer- 
den. Ein Druck auf die CBM-Taste loscht Oder setzt den be- 
treffenden Punkt. 
CHC (Change Characters) 

Vertauschen zweier Zeichen. Mit den Cursortasten kann 
das erste zu vertauschende Zeichen angewahlt werden. 1st 
dies erledigt, ist die Aufforderung "Select 1. Character mit 
< RETURN > zu bestatigen. Ebenso ist mit der Anwahl des 
zweiten Zeichens zu verfahren. Wurde die Aufforderung 
"Select 2. Character" mit < RETURN > quittiert, erscheint 
die Sicherheitsabfrage »Are you sure (Y/N)?«. Bestatigen 
Sie diese Frage mit < Y>, tauscht das Programm die bei- 
den Zeichen miteinander aus. Es lassen sich Zeichen aus 
dem.ersten Zeichensatz mit Zeichen aus dem zweiten Zei- 
chensatz austauschen, wenn mit <F1 > der Zeichensatz 
umgeschaltet wird. 
MVC (Move Character) 

Verschieben (Kopieren) eines Zeichens beziehungswei- 
se Auswahl dieses Zeichens. Wie sich ein Zeichen ver- 
schieben laBt, wurde bereits bei der Routine »CHC« be- 
schrieben. 
LDC (Load Character-Set) 

Laden eines zuvor mit der SVC-Routine gespeicherten 
Zeichensatzes. Der Name des zu ladenden Zeichensatzes 
wird in der untersten Zeile eingegeben. 
SVC (Save Character-Set) 

Speichem der beiden in Bearbeitung befindlichen Zei- 
chensatze. Eingabe des Namens wie bei der LDC-Routine. 
LS1 (Load Set 1) 

Laden des ersten C64-Zeichensatzes. Wird die Sicher- 
heitsabfrage mit < Y> bestatigt, wird der erste der beiden 
originalen Zeichensatze als aktueiler Zeichensatz uber- 
nommen. Der gerade bearbeitete Zeichensatz geht dabei 
verloren. 
LS2 (Load Set 2) 

Laden des zweiten C64-Zeichensatzes. Wie LSI-Rou- 
tine, nur wird der zweite Zeichensatz geladen. 
TCH (Turn Character) 

Drehen eines Zeichens. Mit den Cursortasten kann das 



aktuelle Zeichen nach rechts und links gedreht werden. 
TCS (Turn Character-Set) 

Drehen samtlicher Zeichen des aktuellen Zeichensatzes 
mit Hilfe der Cursortasten. 
RBH (Rotate Byte Horizontal) 

Horizontales Rotieren eines Bytes innerhalb eines Zei- 
chens. Mit den Tasten <CURSOR-abwarts/-aufwarts> 
wird ein Pfeil innerhalb der 8x8-Matrix gesteuert, der das zu 
rotierende Byte bestimmt. Mit den Tasten <CURSOR- 
rechts/-links> wird das selektierte Byte entsprechend ro- 
tiert. 
RBV (Rotate Byte Vertikal) 

Vertikales Rotieren eines Bytes innerhalb eines Zei- 
chens. Mit den Tasten < CURSOR rechts/-links> wird ein 
Pfeil innerhalb der 8x8-Matrix gesteuert, der das zu rotie- 
rende Byte bestimmt. Die Tasten < CURSOR aufwarts/ 
-abwarts> lassen das angegebene Byte entsprechend ro- 
tieren. 
RCH (Rotate Character) 

Rotieren eines Zeichens. Mit den Cursortasten kann das 
aktuelle Zeichen in jedeRichtungbyteweiserotiert werden. 
RCS (Rotate Character-Set) 

Rotieren samtlicher Zeichen des in Bearbeitung stehen- 
den Zeichensatzes mit Hilfe der Cursortasten. 
MBH (Mirror Byte Horizontal) 

Horizontales Spiegeln eines Bytes innerhalb eines Zei- 
chens. Die Steuerung erfolgt wie bei der RBH-Routine. 
MBV (Mirror Byte Vertikal) 

Vertikales Spiegeln eines Bytes innerhalb eines Zei- 
chens. Die Steuerung erfolgt wie bei der RBH-Routine. 
MCH (Mirror Character) 

Spiegeln eines Zeichens. Mit den Cursortasten kann das 
aktuelle Zeichen horizontal und vertikal gespiegelt werden. 
MCS (Mirror Character-Set) 

Spiegeln des aktuellen Zeichensatzes. Mit den Cursorta- 
sten kann der aktuelle Zeichensatz horizontal und vertikal 
gespiegelt werden. 
DIR (Directory) 

Anzeigen des Directory der eingelegten Diskette. 
SDC (Send Disk-Command) 

Senden von Diskettenbefehlen. In der Eingabezeile im 
unteren Teil des Bildschirms kann jeder Befehl an die Dis- 
kettenstation eingegeben werden (etwa SCRATCH, VALI- 
DATE). Nach beendeter Diskettenoperation wird der Status 
des Laufwerks angezeigt. 
CCP (Create Character-Program) 

Erzeugen eines Zeichensatz-Programms. Diese Funk- 
tion generiert einen Zeichensatz mit Basic-Start. Der mo- 
mentan bearbeitete Zeichensatz wird zusammen mit einer 
Aktivierungsroutine auf Diskette gespeichert. Die Eingabe 
des Namens erfolgt in der untersten Bildschirmzeile. Vor 
den Namen wird automatisch »C/« als Kennung fur ein 
Zeichensatz-Programm gestellt. 
LCE (Leave Character-Editor) 

Verlassen des Character-Editors. Nach Bestatigen der 
Sicherheitsabfrage mit < Y> befinden Sie sich wieder im 
Direktmodus des C 64. Soil der zuletzt bearbeitete Zeichen- 
satz weitereditiert werden, so ist derZeichensatz-Editor mit 
»PRINT USR(0)« zu starten. Ansonsten kann mit RUN ganz 
neu begonnen werden. 

Allgemeine Hinweise 

- Der Zeichensatz-Editor ist vollstandig in Maschinen- 
sprache geschrieben und befindet sich im Speicher von 
$0801 bis$1D82. 

- Es wird immer nur ein Zeichensatz editiert (256 Zeichen). 
Man kann aber zwischen den Zeichensatzen frei umschal- 
ten. 
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Software der Extra-Klasse 



Ab sofort kommen a lie Besitzer eines C64 und C 128 in den GenuB 

unschlagbarer Software. Mit unserer neuen Produkt-Reihe 64'er-EXTRA 

erhalten Sie brandaktuelle Top-Programme zu den beliebtesten 

Themen: Super-Spiele, Tools, Anwendungen sowie Best-of-Pakete. 

Mit jedem Software-Paket wird ein Bedienungshandbuch fur alle 

Programme mitgeliefert. Sie erhalten so das beste und interessanteste 

Werkzeug fur Ihren Computer und kdnnen es sofort einsetzen. 
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Best of Graf ik Vol. 1 Best of Graf ik Vol. 2 Best of Graf ik Vol. 3 



Gigo-CAD Unschlogbare 3D-Konstruktion out dem C 64 Hi-Eddi 

Dos Super-Zeichen- und Malprogromm • Title Wizard Giga-CAD- 

Filme fur eigene Vsrspdnne - Pic-Loader ^Aarwenden Se Hi-Eddi- 

Grafiken fur eigene Programme ■ Hi-Maus Maus-Treiber fur 

Hi-Eddi • Hi-Spiegel Spiegeln Sie beliebige Ausschnitte einer Grafik • 

frVmconverterGiga-Cad-nlme kdnnen mil diesem Progromm in das 

Hi-Eddi-Formot umgewandelt warden ■ Druckeronpassungen fur 

Hi-Eddi: Prinrer/Piotter VC 1520, MPS-8 01/802/803. Seikosho GP 

700VC. Star Nl-lO.Comrrwdore-PtonerVC 1520, Cltoh-8510, 

C.I'ohRiiemanC* 

I ProgrammdlsleHe(0rC64/C 128 

1 Demonstrationsdiskette fur Gigo-CAD -*■■ ■«« am* 

Bestell-Nr 38701 sFr 44,90 VoS 499.-' DM 49,90 



GraRk 2000 43 «eue Grafikbefehle fur Ihren C 64 . Provic 64 
32 Sprites gleichzeitig auf dem Bildschirm - Grafic-Ca/cProfessionelle 
Business-Grafik - vom Saulen- zum Kuchendiagromm ■ 3D-Grafik- 
Master Drehen dreidimensionoler Korper in Echrzeit > MPS-Support 
Pro'i-Auftosung lurMPS-Drucker • Epson-Support G'ofik-Befehls- 
erweiterung fur Ihren Drucker • Scroll-Machine Ruckfreie Scroll- 
Routine zum Einbinden in eigene Spiele • Pseudo-Scroll Eine Routine, 
mil der Sie Bewegung ins Spiel bringen • Froctol-Berge Bizarre land- 
schaften ous dem Gompuler • Grafik-Wandler Rechnet Hires- 
Grofiken in lores-Biider urn Lores zu Hires Transportiert Te*fbi!d- 
schitme in hochauft&sende Graf Ik ■ Pic-loader Groiikdieb fur Prints- 
hop und Printmaster . Hardmaker Raubt und druckl Zeichensalze und 
Hires-Grafiken aus professtonellen Progrommen ■ Hardcopy- 
Routinen Super-Tre.ber fur MPS 801, Epson, VC 1520 undCP-80X 
1 Diskette fur C 64/ C 128 _-- *» #**»* 

Beslell-Nr. 38702 sFr 34.90*/dS399,-' DM 39,90 



Hires-Matter Die wohl schnells'e Grofikerweiterung • Sprite + 
Grafik-Basic Mehr ols 100 neue Befehlo fur Ihren C 64 3D-Schaeh- 
Grafik Tolle Befehle zur Schachprogrommierung - IRQ-Basic Grolik 
und Musik im Interrupt ■ Game-Basic Neue Befehle zur Proqrammie- 
rung von Spielen ■ Kudi64 Mathematische Funktionen graftsch dor- 

Sestellt ' Shapes 64 Bringen Sie Bewegung ins Bild • ApfelmSnnchen 
ilder aus einer anderen Dimension ■ 3D-Movie-Maker Trtckfilme in 
der vierlen Dimension • Chartset-Motter Zeichensatzgenerator mil 
uber 100 Befehlen ■ Graphic-Art Editor ais Antwort auf das Sprite- 
Problem . Super -Hardcopy Unschlogbare Druckquatitat fCrr Epson- 
Drucker • Epson-Plotter Matrixdrucker simullert Plotter ■ Hardcopy- 
Programme fur Epson -Drucker. Star SG-10, MPS 801/802/803 
1 Diskette fur C 64/ C 128 «.-. «— #w% * 

Bestell-Nr, 38703 sfr 34.90V6S 399,-' DM 39,90 



Jetzt lieferbar: 

Adventure-Pack Vol. 1 

Robox 

fesselndesGrofik-Sclence-ftction-Ad venture 

Der Herrscher eines fremden Planeten lieG sein Gehim noch seinem 

Tod kunsttich weiterleben - in einem KSrper ohne Seele. Aus dieser 

(Combination, holb Roboter und halb Mensch, halb lebend und halb 

tot, die Robox genannt wurde, enstand der Ha5 auf alios labende. Er 

befohl daher seiner Roboter-Armee, samtilches leben des Unrversums 

zu vernlehten. Ihre Aufgobe ist es, zu Robox zu gelangen und ihn 

unschadlich zu mochen, urn die Erde vor threm sons! sicheren Tod zu 

bewahren. Wie Sie dies tun, bleibt Ihnen Oberlassen. 

ScoHand Yard 

Sponnendes Kriminal-Adventure 

Begeben Sie slch ouf spannende Verbrecherjogd in das london des 

19. Johrhunderts, und lassen Sie sich engogieren bei Scotland Yord. 

Verhdren Sie Tatverdachtige, prufen Se deren Alibis und verfolgen Sie 

die Spuren zuruck zum T6ter. Als Belohnung fur die losunq der zehn 

ungeklorten Falle wartet Ihre Beforderung zum Oberinspektor. 

Mit dem mitgelieferten Fall-Editor konstruieren Sie weitere Verbrechen 

und geben damit Ihren Freunden harte Niisse zu knacken, 

3 Disketten (beidseitig bespielt) fur den C 64/ C 128 

Bestell-Nr. 38704 sFr 24,90*/oS 299,-' DM 29,90 * 

"Unverbindliche Preisempfehlung 



The Best of Floppy Tools Volume 1 

Lieferumfana; Anleitunqsheft • 5% -Diskette (l54!-formal| 
Disc-Wizard Directory-Sort, Diskmonitor, Text-Search u.v.m, • Copy •*■ 
Parallel-Backup- Kopierprogra mm - Super-Copy Komtortables File- 
Kopierprogromm • Thirty Seconds Bli'zschnelles Bockup- 
Kopierprogromm lur C 128 • FMON 154 1 leistungsidhiger Floppy- 
Monitor • Piiik-Alonrforkurzer Disk-Monitor fur C 64 ■ Ultraload/- 
boot Plus Software-Speeder und Autostart-Generator fur Schnelloder ■ 
E X-SMON-DOS brennfdhiqe EPPOM-Vfersion des Betriebssystems • 
Datawork Basic Komfortable Befehlserweiterunq fur Floppy- und 
Doteizugriffe • Disk-Manager Verwaltet bis zu 6500 Programme • 
CPIM <-> CSMEinfacherDotenaustouschzwischenCP/M-und 
1541-Format - sowie weitere Super-Utilities 

Hardwar^brouwarxung: C64/C 1 28, Floppy 1 54 1 / 1 570/ 1571 
Bestell-Nr. 38706 sFr 44,-VfiS 490,-' DM 49,—* 




The Best of Floppy Tools Volume 2 

Lieferumfano: Anleitungshefl • S'V- Diskette (1541-Format) 
ProDisc Komfortoble Diskettenverwaliung in Assembler ■ Master-Copy 
Backup-Kopterproqrarnm ■ Dual-FHecopy File-Kopierprogramm fur 
zwei Loufwerke • Trackcopy Einfaches Kopieren und Formatieren von 
einzelnen Tracks • Tornaao-Copy Schnelles Backup-Programm fur ein- 
seitig bespielte Disketten ■ Disk Mon 64 Professioneller Floppy- und 
Diskettenmonilor • Hypra-load/Save Software -Speeder fur C64 - 
Hypra-Perfekt Hypra-IOAD/SAVE eingebunden ins Betnebssystem • 
EXOS V3 Ifiistungsfahiges Betriebssystem fur den C 64 - Disk- 
Searcher Fmdet sehr scnnell beliebige Zeichenketten auf Diskette - 
File-Manager Befehlserweiterung zur Verwaltung von Disketten ■ 
Super-Autostart Autostart-Generator mit Verse htusselungs-Routine - 
sowie weitere Super-Utilities 

Hardwars-torausMtxung: C64/C 128. Floppy 1541 / 1570/ 1571 
Bestell-Nr. 38707 sFr 44.--/6S 490,-" DM 49/-* 
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TOOLS: GRAFIK 



- Wenn Sie den Character-Code 255 um 1 erhohen, wird er 
zum Character-Code 0. Ebenso hat ein Erniedrigen des Co- 
des um 1 einen Code von 255 zur Folge. 

- 1st der momentan bearbeitete Zeichensatz nicht aktiviert, 
wird dies durch eine entsprechende Meldung im oberen 
Teil des Bildschirms angezeigt. 

- Sind Eingaben erforderlich, erscheint in der untersten 
Bildschirmzeile » > « und ein blauer Stern als Cursor. Diese 
Eingabezeile faBt maximal 35 Zeichen. Steuerzeichen (au- 
Ber DELETE) und Grafikzeichen werden nicht beachtet. Ei- 
ne leere Eingabe bewirkt einen Sprung zuruck in den Me- 
niimodus. 

- Fehler bei Zugriffen auf das Diskettenlaufwerk werden ab- 
gefangen und angezeigt. Es wird iiberpruft, ob das Gerat 
mit der Laufwerksadresse #8 zur Verfugung steht. Wenn 
nicht, erfolgt eine entsprechende Fehlermeldung. Nach 
Beendigung einer Diskettenoperation wird der Fehlerkanal 
ausgelesen und angezeigt. 

- Wenn man in Maschinensprache einen dieser neuen Zei- 
chensatze verwenden will, kann man die vom Editor mit der 
SVC-Routine gespeicherten Zeichensatze laden und mit 
der Befehlsfolge »LDA #$1C, STA $D018« einschalten und 
mit der Befehlsfolge »LDA #$15, STA $D018« ausschalten. 
Es muB nur darauf geachtet werden, daB der Bereich von 
$3000 bis $3FFF nicht verwendet wird. 

Hinweise zum erzeugten Zeichensatz 
der CCP-Routine 

- Sie verf ugen uber zwei Zeichensatze, die Sie wie gewohnt 
mit < SHIFT CBM> umschalten konnen. 

- Das Blockieren beziehungsweise Freigeben der Kombi- 
nation <SHIFTCBM> zum Umschalten der Zeichensatze 
ist durch die Befehle PRINT CHR$(8) und PRINT CHR$(9) 
moglich. 



- Das Umschalten der Zeichensatze durch die Befehle 
PRINT CHR$(14) und PRINT CHR$(142) ist nicht moglich! 

- Nach einem Reset kann der Zeichensatz mit SYS 51200 
erneut aktiviert werden. 

- Durch den Befehl SYS 51307 laBtsich der Zeichensatz von 
Basic aus umschalten. 

- Der Bildschirm liegt bei $CC00 bis $CFF7 (52224 bis 
53239). 

- Die Sprite-Pointer befinden sich bei $CFF8 bis $CFFF 
(53240 bis 53247). 

- Die Aktivierungsroutine liegt bei $C800 bis $C89D (51200 
bis 51357). 

- Der Bereich von $C000 bis $CFFF (49152 bis 53239) ist 
nicht mehr verwendbar. 

- Der aktive Zeichensatz liegt im Bereich von $C000 bis 
$C7FF (49152 bis 51199). 

- Der inaktive Zeichensatz liegt - vor Basic-Programmen 
geschutzt - am Basic-RAM-Ende. (Dieses wird beim Star- 
ten des Zeichensatzprogramms selbstandig ermittelt.) 

- Der NMI-Vektor $0318/$0319 (792/793) wird verandert und 
zeigt auf $C800 (51200) 

- Wird eine Basic-Erweiterung zusammen mit dem 
Character-Program m benutzt, muB zuerst diese Erweite- 
rung aktiviert werden und dann das Zeichensatzpro- 
gramm! Die benutzte Erweiterung darf den Bereich von 
$C000 bis $CFFF (49152 bis 53239) nicht verwenden! 

Ein Tip zum AbschluB: Sollte irgendein verwendetes Pro- 
gramm (meist Programmierhilfen und Basic-Erweiterun- 
gen) den Vektor $028F/$0290 (dezimal 655/656), der den 
Zeiger auf die Tastaturtabelle setzt, verandern, so ist eine 
Umschaltung der Zeichensatze durch < SHIFT CBM> 
nicht moglich. Es erscheint ein undefinierbares Zeichenge- 
wirr auf dem Bildschirm, da der VIC durch das »regulare 
Umschalten« einen Speicherbereich als Zeichensatz 
adressiert, der (meist) keine sinnvollen Informationen ent- 
halt. (Reinhard Bartel/sk) 
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Diskette 



ACHTUNG! Computer-Freaks aufgepaftt: 

32 Spitzen-Musikprogramme aus dem 64'er-Musik- 
Programmierwettbewerb auf einer Diskette mit kom- 
foitablem Lademenu. Von Pop bis Klassik ist fur jeden 
Musikgeschmack etwas dabei: Shades, This is not 
America, Invention Nr. 13, Mondscheinsonate, You 
can win if you want, Der Clou, Fur Elise, The pink Pan- 
ther und viele mehr. 
Hardware-Anforderun q: 

Commodore 64 oder Commodore 128 im C-64- 
Modus, Floppy-Station 1541, 1570 oder 1571 

Ein »Muft« fur jeden 64'er-Fan! 
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MarWiQechnik 

Zeitschriften • Bucher 
Sohwore • Schulung 



Einmalig in der Computergesdiidrte: 

• Alle Musikstucke werden in Stereoqualitat auf einer 
hochwertigen Kassette mit Rauschunterdruckung 
mitgeliefert! 

• Eineinhalb Stunden erstklassige Computermusik! 

• Klang umwerfend! 

Lieferumfan q: 

1 Diskette beidseitig bespielt mit 32 Musikstucken 

1 Kassette mit alien Musikstucken in Stereoqualitat filr 

handelsubliche Kassettenrecorder oder Stereo- 

anlagen 

Bestell-Nr. 39630 DM 39,90* fr* 34.90-/6S399,-') 

• Unverbindliche Proisempfohlung. 



wm^* 



■^ Markt&Technik Verlag AG, Buchverlag, Hans-Pinsel-StraBe 2, 8013 Hoor bei Munchen, Telefon (089) 46 13-0 

Bestellungen im Auslond bine on: SCHWEIZ: Markt&Technik Vertriebs AG, Kolleretrasse 3, CH-6300 Zug, Telefon (042) 41 5656 • OSTERREICH: Rudolf lechner & Sohn, 
HeizwerkstraBe 10, A-1232 Wien, Telefon (0222) 677526 - Ueberreuler Medio Veriogsges. mbH (GroBhandel), laudongasse 29, A-1082 Wien, Telefon (02 22) 48 1543-0. 
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ROCRAMM 
SERVICE 

Direkt bestellen statt abtippen! 

Die aktuelle Diskette zum Heft: 
Programme die jeder C64-Besitzer braucht 



Aus nahezu jedem Bereich rund um den 
Software-Horizont des C64 finden Sie etwas auf 
der Programmservice-Diskette zu diesem Son- 
derheft: 

Hypra-Comp: 

Ein Basic-Compiler, der Ihre Basic-Programme in 
schnellen Maschinencode wandelt. Die kompi- 
lierten Programme sind selbstverstandlich alleine 
iauffahig. / 

Alan V7.2: 

Mit dieser Basic-Erweiterung beherrschen Sie die 
Grafikfahigkeiten des C64. Einfache Befehle 
haben veroluffende Effekte. Faszinierende Grafik- 
demos auf der Programmservice-Diskette bewei- 
sen das. 




halb von Vizawrite aufgerufen werden und uber- 
pruft Ihren aktuell im Speicher befindlichen Text. 

Der 64'er-Packer: 

Verpassen Sie Ihren Programmen eine Diat! 
Ha Den Sie sich schon uber lange Programme und 
Grafiken geargert, die unnotig Platz auf der Dis- 
kette oder im Speicher vergeuden? Der 64'er- 
Packer macht Schlu5 damit. Durch ausgefeilteste, 
individuell anpaftbare Packverfahren werden Pro- 
gramme und Grafiken erheblich gekurzt. 




^»*/ 




Master-Spell: 

Nie wieder Tipp- und Fluchtigkeitsfehler. Diese 
automatische Rechtschreibkorrektur uberpruft Ihre 
Texte anhand einer auf Diskette mitgelieferten 
Wortbibliothek, die jederzeit erweiterbar ist. 

Viza-Speller: 

Ein Rechtschreibkorrektur-Programm speziell fur 
Vizawrite. Der Clou: Das Programm kann inner- 



Eine Diskette fur C64/C 128 
Bestell-Nr.: 15724 

l//rl j£r7fT\J (sFr 24,90 */oS 299,-*) 

* Unverbindliche Preisempfehlung 



Wenn Sie Fragen zu diesen Programmen oder zu 
anderen Angeboten aus unserem Programm- 
Service haben, rufen Sie uns an: 
Telefon (089) 46 13-640 




Markt&Technik 

Zeitschriften ■ Bucher 
Software • Schulung 

Markl&Technik Verlag AG, Buchverlag, Hans-Pinsel-SlraBe 2, 8013 Haarbei Munchen, Telelon (089) 4613-0 

Beslellungen im Ausland bitle on, SCHWEIZ: Markl&Technik Vertriebs AG, Kolleretrosse 3, CH-6300 Zug, Telefon (042) 41 5656 • OSTERREICH: Rudolf Lechner & Sohn, 
HeizwerkslraBe 10, A-1232 Wien, Telefon (0222) 677526 • Ueberreuter Media Verlagsges. mbH (GroBhandel), loudongasse 29, A-1082 Wien, Telefon (0222) 48 1543-0. 




PROGRAMMSERVKE 

Weitere Angebote zum Thema Grafik 



Weitere Programmservice- 
Angebote zu 64'er-Sonderheften 

Grafik- und Anwendungsprogramme der 
Spitzenklasse (SH 23) 

Paint Magic: Dieses professionelle Multicolor Mai- und Zeichenpro- 
gramm entlockt Ihrem C64 die farbenprachtigsten Bilder. Trotzdem ist 
es so einfach zu bedienen, daft Sie von der ersten Minute an Ihre Freude 
an Paint Magic haben werden. Movie-Show: Ein Programm, das hoch- 
outlosende Gralik zum leben erweckt. Dank trickreicher Programmie- 
rung werden bis zu 99 Hires-Grofiken im Speichergehalten, so daft Sie 
beispielsweise perfekte Simulationen von Wellenbewegungen und 
anderen physikalische Phanomenen erzeugen konnen. Boerse Plus: 
Schnell reicn werden, ohne zu arbeilen - der C64 hilft Ihnen dabei. 
Borse Plus, programmiert von einem Borsenexperten, ist ein yielseitiges 
Aktienverwallungsprogramm. Grafische Anzeige der Kursverlaufe, 
Gewinnberechnungen, professionelle Charts und vistes mehr bietet 
Borse Plus. Als kostenlose Zugabe befinden sich die Kurse wichtiger 
AGs der fetzten Monate ebenfolls auf der Programmserviee-Diskette. 
NotOrlich finden Sie auch in diesem Sonderheft viele Tips & Tricks. Sie 
linden beispielsweise »Hardcopy-Programmierung fur jeden 
Druckera, ein Programm zum Suchen und Manipulieren von Sprites aul 
Diskette einen Kurs zur Scroll-Programmierung und vieles mete NatOr- 
lich enthalt die Programmservice-Diskette aucn alle Programme, die mil 
einem Diskettensymbol gekennzeichnet sind. 
I Diskette tor C64/C 128 

Bestell-Nr.: 15723 DM 29,90* sFr 24,90'/6S 299,-' 

Assembler-Programmierung einfach wle in 
Basic (SH 21) 

Giga-Ass: Ein neu gestalleter Makro-Assembler der Spitzenklasse 
erlaubt es, Maschinensprache-Programme so komfortabel wie in Basic 
zu schreiben. Durch ein mitgeliefertes Konvertierungsprogramm konnen 
auch Hypra-Ass-Quelltexte mil Giga-Ass verarbeitet werden. Eine 
qroBe Hilfe beim Schreiben eigener Maschinenprogramme ist auch die 
Makro-Bibliothek auf Diskette, die oft verwendete Routinen bereitstellt. 
Auch fOr den Basic-Programmieter wird einiges geboten: DMA-Basic: 
Mit diesem Programm konnen Sie die 51 2-KByte-RAM-Erweiterung von 
Commodore am C64 verwenden und somit uber 576-KByte- 
Speicherplatz verfOgen. Paradoxon-Bosic: Eine weitere Basic- 
Erweiterung, stellt dem Basic Programmierer 50 KByte tor seine Pro- 
gramme und eine Reihe neuer machtiger Befehle zur Verfugung. 
Rekursiv-Basic: Diese Erweiterung ist von einer onderen Qualitat: Sie 
erlaubt, wie der Name schon sagt, rekursive Programmierung durch 
einen vergroBerten Stack und vor allem die Definition von Prozeduren 
wie in Pascal. Obsess V3.1: Dieses Programm erlaubt es, auf einfache 
Weise mit normalen Mafrixdruckem MuKticolor-Grafiken in strahlenden 
Forben auch zu Papier zu bringen. Fjganzt werden die Programme 
durch eine Reihe von Tips&Tricks. Fur den ambitionierten Piogrammierer 
befinden sich des weiteren samtflche Quetl-Codes der Maschinenpro- 
gramme auf Diskette. ^^^ 
T Diskette fur C64/ CI 28 

Bestell-Nr.: 15721 DM 29,90* sFr 24,90*/6S 299,-' 

Mastertext 128 - kaum zu iibertreffen 
(SH 18) 

Master-Text 128: Das super-professionelle Moster-Text fur den C128 
bietet professionelle leistungsmerkmale. Durch Menu- und Window- 
Steuerung ist das Programm anwenderfreundlich und bietet neben dem 
Standard an Befehlen noch Textbaustein-Funktionen, einen Terminal- 
Modus, einen integrierten Taschenrechner sowie eine Uhr mit Alarm- 
funktion. Textas: Das Textverorbeitungsprogramm Textas lauft auf den 
C64 und ist speziell fur den MPS 801 und kompotible Drucker ent- 
wickell worden. Mit selbstdefinierbarem Zeichensotz stellt Textos nun 
auch die deutschen Sonderzeichen zur Verfugung, bietet eine deutlich 
bessere Druckqualitat und erloubt sogar das Einbinden von Hires- 
Grofiken und Sprites. MacMatrix: Mit MacMatrix stellen wir Ihnen ein 
Programm zur Verfugung, mit dem Sie auf kornforiable Art und Weise 
NLQ-Zeichensatze fur Ihren NL-10 mit Commodore-Interface entwerfen 
konnen. AuBerdem sind noch viele Tips und Tricks, zum Beispiel fur Viza- 
write, auf der Diskette enthalten. Die Beschreibungen finden Sie im Son- 
derheft Ausgabe 18/87 (Drucker) 
1 Diskette fur C64/C 128 

Bestell-Nr.: 15718 DM 29,90* sFr 24,90*/6S 299,-' 
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Weitere Programmservice- 
Angehote zu 64'er-Stammheften: 

Korrespondenz-Qualitat und Grafik mit 

Vizawrite 64 ^^. 

Viza-Print-System: Dieses Programm entlockt alien Epson-kompa- 
tiblen Druckern eine unObertrefflicne Druckqualitat. Zehn fertige, profes- 
sionelle Zeichensatze mit einer 24 x 25-Punktmatrix konnen fur den Aus- 
druck von Vizowrite-Texten in Proportionalschrift bei gleichzeitigem 
Blocksatz und Grafikverbund eingesetzt werden. Die druckfertigen 
Demo-Texte auf der Diskette helfen Ihnen, mit dem V-P-System schnell 
verlrout zu werden. Mony 64: Mony 64 macht die Verwallung Ihrer 



Einnahmen und Ausgaben zum Kinderspiel, sogar Fixbuchungen wer- 
den automatisch durchgetehrt. Super-Hardcopy: Super-r-faidcopy 
kann jeden Bildschirm, dergerade angezeigt wira, auf Tastendruck aus- 
drucken, auch wahretid eines loufenden Programms. Hardcopy fur 
Seikosha SP-1000: Dieses Programm ermdgncht es Hardcopies auf 
dem Seikosha SP-1000 mil 960 Punkten pro Zeile auf das Papier zu brin- 
gen. PFox+ : Durch PFox + wird die Qualitat Ihrer Printfox-Ausdrucke auf 
alien Epson-kompatiblen Druckern eriroht. Unterlangen: Das Pro- 
grams Unterlangen ermoglicht es Ihnen, mit Ihrem MPS 801-Drucker 
protJemlos deutsche UmTaute, Superscript, Unterlongen, deutsche 
Anfuhrungszeichen und Unterstreichungen dgrzustellen. Stereochan- 
ger: Dieses Programm schreibt selbstandig fastjedes Musikstuck, das 
im Interrupt des C64 lauft, fur unseren »Stereo-5lD« aus der Ausgabe 
1 1/86 urn. Der Raumklang ist fantastisch! AuBerdem noch viele Tips und 
Tricks fur den C64/C 128/C 16 und Plus/4. Die Beschrelbung finden Sie 
in Ausgabe 6/87 .^•■t^^^ 
Diskette fur C64' 

Bestell-Nr.: 10706 DM 29,90* sFr 24,90'/6S 299,-' 

Der gate Geist fur Ihre floppy 1541 ^W 

Disk-Demon: Disk-Demon ist ein CSskettenmonitor gonz besonderer 
Art. Wenn Sie Probleme mil fehlerfwften Disketten haben, auf denen 
wichtige Daten gespeichert sind,. oder Sie eine Diskette lediglich einmal 
genauer unter die tupe nehmen wollen, dann ist der Disk-Demon genau 
aos richtige Werkzeuq fOr Sie. Er liest, analysiert und repalfert defekte 
Sektoren, bearbeitet die Spuren bis 42 auf einer Diskette und unter- 
stutzt Sie auch dann, wenn es urn die Entwicklung eigener Kopierschutz- 
methoden geht. Hi-Eddi + mit Maus: Mit diesen Routinen kann man die 
Proportional-Maus von Reisware fur die Steuerung von Hi-Eddi+ ver- 
wenden. Him 64: Him 64 ist ein mit Hypra-Bosic geschriebenes Spiel, 
das auch Sie in seinen Bonn Ziehen wira. Es ist eine grafisch ausgefeilte 
Variants des bekonnten Masterminds, ouch als Superhirn bekannt. Die 
Beschrelbung finden Sie in Ausgobe 8/87 
Diskette fur C64/C 128 

Bestell-Nr. , 1 0708 DM 29,90 * sFr 24,90 '/6S 299,- • 
Schnell wie der Wind 

Master-Copy: Ohne jede Erweiterung in Computer oder Floppystotion 
kopiert Ihnen Master-Copy eine komplette Diskette in weniger ols 90 
Sekunden,- auf dem C64 mit einem Einzellaufwerk ein absoluter Rekord. 
Master-Index: Wenn Sie irgend einen Artikel oder ein Programm ous 
dem 64'er-Magazin suchen, kann Ihnen dieses Programm anhand eines 
Stichwortes Ausgabe und Seite des Artikers-ermitteln. Transformer3: 
Transformer3 ubertraqt Texte von Vizawrite 64 auf dos Programm Print- 
fox. Pic-Loader: Pic-Loader konvertiert die Grafikminiaturen aus Print- 
shop und Printmaster in ein Format, das von Hi-Eddi oder Printfox pro- 
blemlos geladen und weiterverarfceitet werden kann. Zusatzlich Tips 
und Tricks fur den C64, C 1 28, Ct6 und Plus/4. Die Beschrelbung finden 
Sie in Ausgabe 5/87 / f/~\\ 

Diskette fur C64 

Bestell-Nr.: I0705 DM 29,90* sFr 24,90 */6S 299,-* 
DFU: Mit dem C64 an das Telefonnetz 

Preterm V6.0: Preterm V6.0 zeichnet sich durch seine groBen Befehls- 
umfang und seine sehr leichte Bedienbarkeit aus. Dieses Terminalpro- 
gramm gestatlet wirklich jedem einen bequemen Einstieg oder Aufstieg 
in die Welt der DFU. Bonito-RCA-64: Mit Hilfe dieses Programms una 
der dazugehorenden Hardware (Bauanleitung im Heft) konnen Sie mit 
Ihrem C64 Femschreiben und Morsesendungen empfangen. Fractale 
9.0: Auch Computer konnen kreativ sein. Ein gutes Beispiel dafur sind 
die Fractals, die richtig darqestellt, der Natur ahnliche GebirgszOge und 
bndschaften zeiqt. Mil aiesem Programm konnen dies auch Se auf 
Ihrem C64 verwirklichen. Vizacalc: Durch Vizacalc steht Ihnen von nun 
an im Texteditor von Vizowrite ein leistungsfahiger Taschenrechner und 
Kalender zur Verfugung. Zusatzlich sind auf der Diskette noch viele Tips 
und Trick fur den C64/C 128 und Cl6 enthalten. Die Beschreibungen 
finden Sie in Ausgabe 4/87 
1 Diskette fur den C64 

Bestell-Nr.: 10704 DM 29,90* sFr 24,90V6S 299,-* 
Keihe Chance fur Killer-Tracks 

Copy + : Copy+ ist ein hervorragendes Kopierprogramm. Alles, was 
Sie benotiqen, ist ein leicht herzustellendes Paraflelkabel zwischen 
Floppy und C64 . (Bauanleitung im Heft) Copy+ macht sogar vor 
>Read Errors* nicht halt, die ondere Kopierprogramme in die Knie zwin- 
gen. Arithl3: Arithl3 ist eine Betriebssystemerweiterung die die 
Rechengenauigkeit Ihres C64 von 9 auf 13 Stellen erweitert und die 
Rechenfehler der Orginalroutinen ausschaltet. Heureka: Heureka 
erlaubt es Ihnen, Ihre Programme mit mehr als der 25fachen Geschwin- 
digkeit, -die Sie von Ihrer 1541 gewohnt waren, zu laden. Sound- 
Cruncher: Mit dem »Sound-Cruncher« konnen Sie Ihre Sound- 
monitor-Files auf einen Bruchteil der ursprunglichen Ldnge reduzieren. 
Weiterhin viele Tips und Tricks fur den C64/C128 sowie C16. Die 
Beschreibungen finden Sie in Ausgabe 3/87 
Diskette fur C 64 

Bestell-Nr. : 10703 DM 29,90* sFr 24,90'/6S 299,-* 
* Unverbindliche Preisempfehlung 




Sie iuchen pcicltende Spiele, 
hilfrciche Ulililiot und proleiMO- 
nelle Anwendungon fur Ihten 
Computer? Sie wunichen jich 
gulr Sollware £u vernunttigen 
Piemen? Hinr finden Ste beidc-i' 
Unier itelig wachsendes Sorli- 
mont enlhall interessanle listing- 
Softwote lut.allc gdngigen 
Computertypen. Jedei Monat 
erwettarl sich unser oktuelles 
Angeboi urn eine weitere inler- 
enanle Programmsammlung fur 
|ewoils einen Compu'ertyp. 
Wr-nn Sfe Ftogen ;u den Pro- 
grommen in unzerem Angobol 
haben. lufen Sie urn an: 
Telefon (089| 4613 6.10 
oder (089)4613-133 

Beslatlungen bitte on: 
MnrllATrrhnilr Verlag AG. 
Unlernefimensbereich 
Buchvortag, Hom-Pin\el- 
Slrofie2, D-8013 Hoar, 
Telelon (089) "46 13-0. 
Schweiz- Markl&Technilc 
Verlrtebi AG. 

Kollerjtiaise 3 ( CH-6300 Zug. 
Tolofon (042) 41 5656. 
Oslerreich: Ueberreuler Media 
Handeli- und Verlagsgesell- 
-.choft mbH (GroRhandel). 
laudongaiie 29. A-1082 Wien, 
Tolofon (0222) 48 I5J30 
Bestollungen oui andoren 
lundern bit:e nur ichnfllich on. 
Morlrl&Technik Verlog AG, 
Abt Buchvorlrieb, Hani-Piniel- 
SlroBe2, D-8013 Haar, und 
gegen Bei-ahlung einer Rech- 
nung im vorous. 

Bitlo verwenden SiB fur Ihre 
Beitellung und Uberwoi^ung die 
abgedruckle Potlgiro-Zahlkarlo. 
oder senden Sie uns einen 
Verrechnungi-Scheck mil Ihrer 
Bestellung. Sie erleichlern um 
die Auftragtabwicklung, und 
dafur berechnen wir Ihnen keine 
Versondkoilen. 
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Fantastische Harckopies 




Das Ausdrucken von Bildschirminhalten muB 
nicht schwierig sein. Mit dem richtigen Pro- 
gramm konnen Sie aus Ihrem Drucker oft Un- 
glaubliches herausholen. Das geht sogar so weit, 
daB auch auf normalen SchwarzweiB-Druckern 
farbige Ausgabe moglich wird. 

Das Programm »Galactical-Hardcopy« (Listing 1) kann 
Bilder in hochauflosender Grafik in 19 verschiedenen 
Formaten auf dem Epson-kompatiblen Drucker 
CP-80X ausdrucken. Das Programm wird dazu normal ge- 
laden und mit RUN gestartet. Danach erscheint ein Menii- 
bild und es wird das momentan etngestellte Druckformat 
angezeigt. 
Laden von Bildern: 

Zum Laden von Bildern muB die Taste <L> gedriickt 
werden. Bei der Eingabe des Namens kann man allerdings 
nicht die INST/DEL-Taste benutzen. Nach der Eingabe des 
Namens driicken Sie < RETURN >, und es erscheint die 
Frage, ob das gespeicherte Farb-RAM mitgeladen werden 
soil Oder nicht. Wenn ja, dann antworten Sie mit < Y> fur 
Ja, sonst mit < N > fur Nein. Das Farb-RAM muB sich auf 
jeden Fall vor dem gespeicherten Grafikbild befinden, da- 
mit es miteingeladen werden kann. Danach muB die Disket- 
te eingelegt und eine Taste gedriickt werden, damit das Bild 
in den Speicher des Computers geladen wird. Hat man sich 



dafiir entschieden, kein Farb-RAM miteinzubinden, so er- 
scheint das Bild in griiner Farbe vor schwarzem Hinter- 
grund. EinTastendruckwahrenddesLadensbrichtden La- 
devorgang ab. 
Inhaltsverzeichnis: 

Mit Taste < D > f iir Directory erhalten Sie das Inhaltsver- 
zeichnis der Diskette aufgelistet. Die Ausgabe stopptalle 15 
Zeilen und kann auf Tastendruck fortgesetzt werden. Die 
Taste < RUN/STOP > bricht das Auflisten des Inhaltsver- 
zeichnisses ab. 
Grafik sehen: 

Durch Driicken von <G> fur Grafik wird vom Text- auf 
den Grafikbildschirm umgeschaltet. Driickt man erneut ei- 
ne Taste, so wird wieder auf Textdarstellung umgeschaltet. 
Invertieren von Bildern: 

Ein Driicken der Taste <l> bewirkt ein Invertieren der 
gesamten Grafik und danach einen Einsprung in den Mo- 
dus »Grafik sehen«. 
Einstellen des Druckmodus: 

Urn den Druckmodus festzulegen, muB man die Taste 
< M > driicken. Danach kann gewahlt werden, ob das Bild 
horizontal, vertikal oder als Brief kopf ausgedruckt werden 
soil. Horizontal bedeutet, daB das Bild, so wie es auf dem 
Bildschirm zu sehen ist, ausgegeben wird. Vertikal heiBt, 
daB das Bild urn 90 Grad gedreht auf dem Drucker ausge- 
geben wird. Briefkopf (letter-head) fuhrt dazu, daB das Bild 
in zwei Halften zerlegt nebeneinander gedruckt wird. In 
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Bildschirmzeilen ausgedruckt heiBt das, daB links auf dem 
Blatt die Zeilen 1 bis 12 und rechts daneben die Zeilen 13 
bis 24 ausgedruckt werden. 
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Bild 1. M it den 
richtigen Hard- 
copy-Programmen 
fur den Oki 20: 
In Farben 
schwelgen... 



Einstellen des Druckformats: 

Mit den Cursortasten kann man das Druckformat einstel- 
len, wobei das eingestellte Format am Bildschirm ange- 
zeigt wird. Mit <CRSR-aufwarts> beziehungsweise 
<CRSR-abwarts> wird die Y-Breite und mit <CRSR- 
links> beziehungsweise <CRSR-rechts> wird die X- 
Breite eingestellt. Es gibt die Formate Wk, %1, 1 /2:2, 1: 1 &, 
1:1, 1:2, 2:V 2 , 2:1 und 2:2 (X-Breite: Y-Breite). Das einge- 
stellte Druckformat wird beim Ausdruck von Briefkopfen 
nicht berucksichtigt. Beim vertikalen Ausdruck der Bilder 
werden diese urn 90 Grad nach rechts gedreht. 
Einstellen des Seitenabstandes: 

Urn den Abstand des Bildes vom linken Rand einzustel- 
len, miissen Sie die Taste <S> drucken und es erscheint 
in reverser Schrift »Set Margin« auf dem Bildschirm. Mit 
<CRSR-links> beziehungsweise <CRSR-rechts> kann 
der Wert verandert werden. Dieser Wert legt fest, um wie 
viele Leerzeichen das Bild beim Ausdruck nach rechts ver- 
schoben wird. 

Man sollte jedoch darauf achten, daB der Wert nicht zu 
groB ist, da es sonst zu einem verzerrten Ausdruck des Bil- 
des kommt. Bei einem Ausdruck in doppelter X-Breite sollte 
der Abstand zum Beispiel stets sein. Hat man den ge- 




Bild 2. ...auch bei 
der mathemati- 
schen Faszination 
von Apfelmann- 
chen (im hochge- 
steliten Format) 



wunschten Wert eingestellt, gelangt man mit < RETURN > 
ins Menu zuruck. 
Ausdrucken eines Bildes: 

Damit das Bild in dem gewiinschten Format ausgedruckt 
wird, drucken Sie <P> fur »Print« und das Bild wird ge- 



druckt. Der Ausdruck wird bei Betatigungeineranderen Ta- 
ste abgebrochen. 
Wichtiger Hinweis: 

Damit das Programm mit anderen Epson-kompatiblen 
Druckern zusammenarbeiten kann, muB der Drucker fol- 
gende Steuercodes kennen: 

ESC + "k" + n1 + n2: 640 Punkte pro Zeile (Anzahl der 
Grafikbytes = n1+256*n2) 
ESC + "1 " + n1 + n2: 1288 Punkte pro Zeile 
ESC + "3" + n: Zeilenabstand = n/216 Zoll 

(J. Clere/sk) 

Hardcopy fiir Star SG-10 



Dieses Programm (Listing 2) ist eine Anpassung der in Aus- 
gabe 1/86 abgedruckten »Hardcopy auf Tastendruck« fur 
den Star SG-10. Zur Initialisierung wird sie mit SYS 49152 
aufgerufen. Die Hardcopy wird durcheinmaligenDruck auf 
die Taste < F1 > ausgelost. Sollte sich das mit einer ande- 
ren Erweiterung uberschneiden, konnen Sie in Speicher- 
stelle 49168 einen anderen Wert, entsprechend des Tasta- 
turcodes, POKEn. Zum Beispiel 51 fiir <HOME>. Eine 
Anderung der Sekundaradresse kann bei einigen Interfa- 
ces notwendig sein. Durch POKEn in Speicherstelle 49200 
ist sie jederzeit zu andern. (Dr. H. Schwartz/sk) 



Bild 3. Auch Comics 

konnen jetzt farbig 

gestaltet werden mit 

dem Oki 20 




Minihardcopy fiir Oki 20 



Bitte geben Sie das Listing 3 mit dem MSE ein und spei- 
chern Sie es auf Diskette. Nun konnen Sie es jederzeit mit 
L0AD"MINI MC-HARDC0PY",8,1 
laden. 

Legen Sie nun ein Farbband in Ihren Oki ein und schalten 
Sie ihn an. 

Dann schieben Sie eine Diskette mit Grafiken im Koala- 
Painter-Format ins Laufwerk und rufen das Programm mit 
SYS -49152, "BILD 1", "BILD 2", "BILD 3Mf 

auf. 

Fur »BILD 1 bis 3« setzen Sie die Namen ein, die Sie Ihren 
Grafiken gegeben haben. Die Bilder werden dann neben- 
einander in der Reihenfolge 
Bild 1. t Bild 2, t Bild 3 
ausgedruckt. Ein Beispiel sehen Sie in Bild 1 bis 3. 

Wollen Sie weniger als drei Bilder drucken, dann geben 
Sie einfach fur den entsprechenden Namen nur zwei An- 
fiihrungszeichen (" ") ein. 

Der Parameter »LF« bestimmt die GroBe des Zeilenvor- 
schubs zwischen zwei Druckerzeilen. Ist »LF« ungleich 0, 
dann werden die durch den etwas ungenauen Papiertrans- 
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Sachbiicher 



Exk lusiv bei Markt Technik 



F.Muller/T.Pelrowski 

C64 - Alles iiber GEOS 

1987. 461 Seiten. inkl. Diskette 

Das umlassende Buch iiber Anwendung 
und Programmierung der gralischen Benul- 
zeroberllache GEOS mit vielen Hilts- und 
Beispielprogrammen aul Diskette Die Dis- 
kette enthalt auch einen Macroassembler 
und Monitor zur Programmierung. Manipula 
tion und Analyse von GEOS 
Im Anwendungsteil wird die bisherige Ent- 
wicklung von gratischen Benutzerober- 
tlachen beschneben. denen eine Erklarung 
alter Elemente des DeskTop, der Anwendun- 
gen GeoWrite und GeoPaint sowie der Hilfs- 
mittel (Desk Accessories) folgt Der Pro- 
grammteil vermittelt dem Leser alle erforder- 
lichen Kennlnisse iiber Disketlenautbau, 
Filestrukturen und Filelypen von GEOS. 
Best -Nr. 90461. ISBN 3-89090-461-0 

DM 49,- sFr 45.10/bS 382,20 
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Lemen und NachscHagen 





W. Besenthal/J. Muus 

Alles iiber den Plus/4 

1986, 370 Seiten 

Das Buch enthSIt ubersichtlich gegliedert 
alle Informationen, die fur die praktische 
Arbeit am Computer notwendig sind. Aus- 
gangspunkt ist ein kompletter BASIC-Kurs, 
der anhand vieler Beispiele in die Arbeit mil 
der Programmiersprache einfuhrt. 
Best.-Nr. 90410, ISBN 3-89090-410-6 

DM 39r sFr 35,90/oS 304,20 

W Besemhal'J.Muus 

Alles iiber den C16 

1986, 292 Seiten 

Alle Informationen, die lur die praktische 
Arbeit am Computer notwendig sind: BASIC- 
Kurs mil Beispielen, strukturiertes Program- 
mieren, Dateiverwaltung, Grafikprogrammie- 
rung, Tips und Tricks. 
Best.-Nr. 90385, ISBN 3-89090-385-1 

DM 39j- sFr 35,90/oS 304,20 



F.MOUer 

C 64 fur Insider 

4 Quartal 1987. ca. 500 Seiten 
Das ROM-Listing ist eines der wichtigsten 
Werkzeuge des ernsthaften Programmie- 
rers. Ebenso benoligt er eine komplette 
Beschreibung der RAM-Speicherzellen, die 
von Betriebssystem und BASIC-lnlerpreter 
verwendet werden. 

Die Besonderheit dieses Werkes liegl in der 
einzigartigen Aulbereitung der ROM- 
Routinen.der dokumentierten Speicherbele- 
gung (Memory Map| und einem Beglemext. 
der die intemen Zusammenhange selbsl 
einem Anlanger verstandlich machi Auch 
wenn Sie schon ein C64-ROM-Listmg besit- 
zen - dieses neue Werk sollten Sie sich nicht 
entgehen lassen. Selbsl ausgetuchsten Prc- 
lis bietet es noch neue Inlormationen. 
Best.-Nr. 90481. ISBN 3-89090-481-5 

ca DM 59,- sFr 54,30/oS 460.20 




BASIC 




Commodore Sachbuchreihe 

Alles iiber den C 64 

2. Auflage 1986, 514 Seiten 
Dieses umlangreiche Grundlagenbuch ent- 
halt neben einem umlassenden BASIC- 
Lexikon alle Inlormationen und Tips, die der 
Spezialist zur Gralik- und Musikprogrammie- 
rung benotigt. Mit Anhang zum Betriebs- 
syslem GEOS. 
Best.-Nr. 90379, ISBN 3-89090-379-7 

DM 59,- sFr 54,30/oS 460,20 



Ch. Spitzner 

ROM-Listing C16, 
C116, Plus/4 

1987, 436 Seiten 

Austuhrlich dokumentiertes ROM-Listing 
des BASIC-lnterpreters, Betriebssystems 
und Monitors. Mit Beschreibung der wichtig- 
sten Kernal-Routinen, Zerc-Page-Adressen 
und Schnittstellen. 
Best.-Nr. 90425, ISBN 3-89090-425-4 

DM 49r sFr 45,10/oS 382,20 




Ma ri<t&Tech nik 

Zeitschriften • Bucher 
Software ■ Schulung 



H.-R.Henning 

Programmieren mit 
Amiga-BASiC 

1987, 363 Seiten, inkl. Diskette 
Einfuhrung in die Programmierung des 
Amiga-BASIC: Gralik, Sprites, Sprachaus- 
gabe, sequentielle Dateien, Fenstertechnik, 
Musik, Tips und Tricks. 
Dem Buch liegt eine 3'fc"-Diskette mit uber 
100 Programmierbeispielen bei. 
Hard- und Sottware-Anlorderungen: 
Amiga 500, 1000 Oder 2000 mit 512 Kbyte 
Arbeitsspeicher, gegebenenfalls ein gratik- 
fahiger Matrixdrucker und ein Joystick. 
Amiga-BASIC von Microsoft. 
Best.-Nr. 90434, ISBN 3-89090-434-3 

DM 59,- sFr 54,30/oS 460,20 
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| Morkt&Technik Verlog AG, Buchveriog, Hons-Pinsel-StraBe 2, 8013 Haar bei Munchen, Telefon (089) 46 13-0 

Bestellungen im Ausland birte an: SCHWEIZ: Markt&Technik Vertriebs AG, Kollerstrasse 3, CH-6300 Zug, Telefon (042) 41 5656 • OSTERREICH: Rudolf Lecfmer & Sohn 

HeizwerkstraBe 10, A-1232 Wien, Telefon (0222) 677526 - Ueberreuter Medio Verlagsges. mbH (GroBhandel), loudongasse 29, A-1082 Wien, Telefon (0222) 481543-0. 
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port verursachten weiBen Striche unterdruckt, indem das 
Papier einfach um einen Punkt weniger vorgeschoben 
wird. Dadurch entstehen zwar manchmal dunkle Streifen, 
diese fallen jedoch weitaus weniger auf, als die hellen. 
Trotzdem kann es manchmal sinnvoll sein, mit »LF« gleich 
zu drucken, besonders bei sehr hellen Bildern. 

Hinweis: Das Programm ist entwickelt fur einen Oki 20 
mit integriertem C64-lnterface. Uber ein Centronics- 
Interface konnen sich erhebliche Probleme ergeben. Das 
Programm erwartet ferner die Bilder im Koala-Painter- 
Format auf Diskette. Wollen Sie also ein anderes Bild aus- 
drucken, dann mussen Sie dieses vorher ins Koala-Format 
ubertragen. Dazu benutzen Sie am besten das Programm 
»Koala-Copy« aus dem 64'er Sonderheft Grafik, 8/86. 

(S. Stuntz/sk) 

Micro-Hardcopy mit Giga-CAD 

Die Bedienung von »Giga-Hard« unterscheidet sich nicht 
wesentlich von der anderer Hardcopy-Routinen. Das Pro- 
gramm ist voll in Maschinensprache geschrieben und 
druckt auf einem Star NL-10 die Grafikseite ab $2000, sowie 
daneben die Grafikseite ab $A000. Dies ist dafiir notig, weil 
eine komplette Giga-CAD-Hardcopy aus drei nebeneinan- 
derliegenden Bildern besteht, von denen jeweils eines im 
Speicher liegt (Bild 4). 

Das heiBt, daB zum Beispiel mit einem Monitor die (erste) 
linke Halfte der Grafik in den Bereich ab $2000 zu laden ist 
und die (erste) rechte Halfte in den Bereich von $A000. 

Danach ist ein Kanal zum Drucker zu offnen und die Rou- 
tine zu starten mit 
SYS ADRESSE#LFN 

Die Adresse ist $CE00 (52736) bei der ersten Version (Li- 
sting 4). Allerdings gibt es auch eine weitere Version (Li- 
sting 5) ab $9000, damit noch irgendwo Platz fur einen Mo- 
nitor ist. 

LFN ist die logische File-Nummer des Druckerkanals, auf 
dem die Daten ausgegeben werden. 

Mit den weiteren Bildern der Giga-CAD-Grafik verfahrt 
man analog. Allerdings ist sicherheitshalber nach jedem 
Grafik-Paar der Druckerkanal zu schlieBen. 
Tips: 

a) Mit POKE EINSPRUNGADRESSE + 222.A1H und 
POKE EINSPRUNGADRESSE + 224.A2H konnen die 
Bildschirmadressen geandert werden, falls $2000 und 
$A000 nicht zusagen. Dabei stellen »A1H« und »A2H« die 
beiden High-Bytes der entsprechenden Bildschirmadres- 
sen dar. 

b) Um die originale Microhardcopy-Routine an andere 
Drucker anzupassen, muB ein Byte von auf $0D (13) gean- 
dert werden, da in den definierten LFs offensichtlich kein 
CR enthalten ist. 

Das entsprechende Byte der erweiterten Routine liegt 
bei STARTADRESSE+194. 

Fur Epson-Drucker muB man an diese Stelle eine 
schreiben. Normalerweise steht hier wie gesagt $0D (13). 

(L. Kellner/sk) 



Farbig drucken 



Wer farbige Bilder auf Papier bringen will, muB nicht unbe- 
dingt einen Farbdruckerbesitzen. Farbfahige Drucker sind 
immer noch sehr teuer. Und wer nur gelegentlich in Farbe 
drucken will, mag dafiir nicht gern tief in die Tasche greifen. 
In Ausgabe 10/86 des 64'er-Magazins wurde bereits ein 
Programm veroffentlicht, das dem MPS 801 zur Farbe ver- 
hilft. »Softcolor« (Listing 6) macht den farbigen Druck nun 



auch fur Epson-Drucker und Kompatible ohne groBen Auf- 
wand mdglich. Der Farbdruck (Bild 5) macht deutlich, daB 
auf diese Weise mit geringem Aufwand durchaus anspre- 
chende Bilder hergestellt werden konnen. 

Der Farbdruck erfordert als zusatzliche "Hardware- nur 
entweder farbige Farbbander oder aber farbiges Kohlepa- 
pier. Kohlepapier ist allerdings nur mit Einschrankungen 




Bild 4. Das Ergebnis der Micro-Hardcopy fur Giga-CAD. Es 
besteht aus mehreren nebeneinanderliegenden Bildern. 

geeignet. Die Farben dieser Papiere sind meist sehr dunkel 
und haben wenig Leuchtkraft. Sie verschmieren, sind des- 
halb in der Handhabung riskant und auch die fertigen Bil- 
der werden darum leicht verwischt. AuBerdem bereitet das 
Positionieren des Papiers im Drucker ziemliche Schwierig- 
keiten, wenn Kohlepapier dariiberliegt. Am ehesten noch 
gelingt dies, wenn man das Kohlepapier mit Klebeband vor- 
sichtig auf dem Papier fixiert. 

Wesentlich leichter wird die Arbeit mit verschiedenfarbi- 
gen Farbbandern. Deren Farben sind auch wesentlich an- 
sprechender. Fur die gangigsten Drucker sind farbige Farb- 
bander im Handel - wenn auch oft nur mit Muhe erhaltlich. 
Die Mehrkosten im Vergleich zu Kohlepapier machen sich 
bald bezahlt. 

Filtenttethoden 



Ublicherweise werden beim Farbdruck farbige Darstellun- 
gen dadurch erreicht, daB die gleichfarbigen Teile der Vor- 
lage herausgefiltert und nach dem so gewonnenen Farb- 
auszug eine einfarbige Druckplatte gefertigt wird. Das Bild 
der mehreren einfarbigen Druckplatten ergibt - exakt iiber- 
einandergedruckt - eine vielfarbige Darstellung der Vorla- 
ge, die nicht nur die Grundfarben, sondern auch Mischfar- 
ben enthalt, die durch das Obereinanderdrucken mehrerer 
Farben entstehen. Die Farbtreue ist dabei um so hoher, je 
besser die Farbausziige die Farbdichteunterschiede der 
Vorlage wiedergeben. Auch beim Farbdruck mit dem Ma- 
trixdrucker ist es wtinschenswert, nicht nur einfach rote, 
grune oder blaue Flachen zu drucken, sondern die Farbsat- 
tigung der Flachen variieren und verschiedene Farben 
durch Ubereinanderdrucken mischen zu konnen. 

»Softcolor« stellt darum die Moglichkeit zur Verfugung, 
jeden Farbauszug in vier verschiedenen Stufen der Farb- 
sattigung auszudrucken. Schon bei der Verwendung von 
nur zwei verschiedenen Farben ergibt sich damit eine gro- 
Be Vielfalt von moglichen Farbschattierungen und Misch- 
farben (Bild 5). 
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Das Programm besteht aus einem Maschinensprache- 
Programm (Listing 6), das die Druckroutine enthalt. Die Pa- 
rameter fur den Ausdruck, vor allem die gewiinschte Farb- 
dichte fiir die verschiedenen Flachen der Grafik, miissen 
der Routine beim Aufruf iibergeben werden. 

Das Basic-Programm (Listing 7) dient dazu, diese Para- 
meter fur den Ausdruck zusammenzustellen und an die 
Druckroutine zu iibergeben. Es bietet dazu eine einfache 
Menu-Steuerung und die wichtigsten Funktionen zum La- 
den einer Grafik und zur Steuerung des Drucks. Dabei ist 
vorausgesetzt, daB die auszudruckende Grafik bereits auf 
Diskette gespeichert ist. Die Grafik wird vom Programm aus 
in den Speicherbereich ab $2000 geladen und kann nun 
auf dem Bildschirm betrachtet und farblich verandert wer- 
den. Die jeweils »aktivierte« Bildschirmfarbe wird dabei 
blinkend dargestellt. 

Nach dem Laden erscheint die Grafik zunachst in einer 
voreingestellten Farbkombination (sie kann geandert wer- 
den, indem in den Zeilen 260 und 270 jeweils die Ziffer 7 
durch eine andere Ziffer zwischen und 12 ersetzt wird). 
Beim Erscheinen der Grafik auf dem Bildschirm werden Sie 
bemerken, daB alle Flachen einer bestimmten Bildschirm- 
farbe blinken. Die Blinkfrequenz kann in Zeile 310 durch 
Verandern des Wertes 50 verstellt werden. Mit dem Blinken 
wird signalisiert, welche der vier Grundfarben der 
Multicolor-Grafik zur Zeit aktiviert ist. Die Bildschirmdar- 
stellungdieserFarbe kann mit den Tasten <+ > und <-> 
beliebig umgeschaltet werden. 

Die nachste Grundfarbe wird aktiviert und zum Blinken 
gebracht durch Drucken der Taste < * >. Mit Hilfe dieser 
Funktionen kann auf dem Bildschirm die gunstigste Farb- 
gestaltung fur den Ausdruck erprobt werden. (Auf die Far- 
ben der Hardcopy selbst hat aber die Farbgebung auf dem 
Bildschirm keinen EinfluB!) 




Bild 5. Auf Epson-Druckern lassen slch auch schon mit 
zwei Farfoen interessante Farb-Varianten erzeugen 

Zur Vorbereitung des Drucks mussen Sie zuerst die 
»Hardware« einrichten: Entweder wird dazu das Farbband 
mit der fiir den ersten Durchgang gewiinschten Druckfarbe 
in den Drucker eingelegt, Oder es ist uber das Papier ein far- 
biges Kohlepapier zu legen. AuBerdem ist unbedingt erfor- 
derlich, die Startposition des Papiers so zu markieren, daB 
es nach dem ersten Druckdurchgang wieder genau in die- 
se Startposition gebracht werden kann. 

Nun konnen Sie mit dem Druck beginnen. Mit der Taste 
< * > bringen Sie diejenigen Flachen der Grafik auf dem 
Bildschirm zum Blinken, die mit der Farbe ausgedruckt 
werden sollen, welche jetzt im Drucker liegt. Dann konnen 
Sie nach Drucken der Taste <£> auswahlen, mit welcher 
Farbdichte die in der Grafik blinkenden Flachen gedruckt 



werden sollen. Wenn mit der aktuellen Druckfarbe nur die- 
se Flachen gedruckt werden sollen, dann konnen Sie nun 
schon den Ausdruck des ersten Farbauszugs starten. An- 
derenfalls lassen Sie sich auf dem Bildschirm wieder die 
Grafik zeigen, wahlen mit < * > andere Flachen an und be- 
stimmen wieder nach Drucken der Taste < £ > , mit welcher 
Farbdichte diese Flachen gedruckt werden sollen. 

Nach dem Druck des ersten Farbauszugs muB das Farb- 
band oder das Kohlepapier gewechselt und das Papier mit 
Hilfe der Startmarkierung wieder indie Anfangsposition ge- 
bracht werden. Danach kann der zweite und jeder weitere 
Farbauszug ebenso gewahlt und ausgedruckt werden wie 
der erste. 

Pixel fur Pixel 
auf Farbe untersuchen 

Kernstuck des Programms ist die Druckroutine, die vom 
Basic-Programm aus in den Speicher ab $C000 nachgela- 
den wird. Diese Routine entspricht im wesentlichen dem im 
64'er Sonderheft 4/85 auf Seite 56 veroffentlichten 
Hardcopy-Programm. Es ist fiir die hier gestellte Aufgabe 
verbessert und erweitert worden. Im Hinblick auf diese frii- 
here Veroffentlichung konnen hier die Erlauterungen zur 
Funktionsweise knapp gehalten werden: 

Die Druckroutine untersucht bei jedem Pixel des Bild- 
schirms, in welcher Bildschirmfarbe er gesetzt ist, ob er al- 
so in einer der beiden Hintergrund- oder einer der beiden 
Zeichenfarben darzustellen ist. AnschlieBend wird gepruft, 
ob und mit welcher Dichte diese Farbe ausgedruckt werden 
soil. Diese Information wird mit den letzten vier Parametern 
des SYS-Aufrufs (Zeile 700) ubergeben. Von diesen vier Pa- 
rametern bestimmt der erste < F1 > die Farbdichte der er- 
sten Bildschirmfarbe, der zweite <F2> die Dichte der 
zweiten Farbe und so weiter. 

Dabei signalisiert jeweils der Variablenwert den Aus- 
druck mit groBtmoglicher Dichte. Hohere Werte fiihren zum 
Ausdruck mit geringerer Dichte. Werte uber 3 bewirken, 
daB die Bildschirmflachen mit der entsprechenden Farbe 
gar nicht ausgedruckt werden. 

In der hier abgedruckten Version ist der SYS-Aufruf in 
Zeile 700 so gefaBt, daB der Ausdruck uber den seriellen 
Bus und ein Hardware-Interface erfolgen kann. Es besteht 
aber auch die Moglichkeit, ohne eine solche Schnittstelle 
auszukommen. Wenn Sie in Zeile 700 den OPEN- und den 
CLOSE-Befehl loschen und als zweiten Parameter des 
SYS-Aufrufs statt der 4 eine setzen, dann wird der Drucker 
mit einem Centronics-Kabel unmittelbar uber den User- 
Port angesprochen. 

Bleibt noch zu klaren, welche Grafiken sich fiir den Farb- 
druck mit Softcolor eignen. Im Prinzip kann jede Grafik far- 
big dargestellt werden. Allerdings wird die Art der Farbco- 
dierung manchmal zu wenig attraktiven Ergebnissen fiih- 
ren. Gute Farbdrucke konnen Sie aber mit Sicherheit von 
Hi-Eddi-, Simons-Basic- und Apfelmannchen-Bildern er- 
warten, also Grafiken im eingeschrankten Farbmodus. Im 
Zweifelsfalle hilft nur Ausprobieren. 

Grafiken aus fremden Programmen 

Sie werden bestimmt viele geeignete Farbbilder finden, 
wenn Sie sich einmal die Grafiken in Ihrer Spielesammlung 
anschauen. Probleme kann es allerdings bereiten, diese 
Bilder als Grafik-File zu isolieren und auf Diskette zu spei- 
chern. Darum noch ein Hinweis auf das Programm »Hard- 
maker« in dieser Ausgabe, das diese Aufgabe beispiels- 
weise fiir Sie erledigt. (J. Curdt/sk) 
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GEOS fur den C128 (englisch) 

Der neue Betriebssystemstandard - in der Originalversion fur den C 1 28. GEOS 
64 wurde an den 128er-Modus des CI 28 angepalit und kann sowohl die 
doppelte Auflosung als ouch den grolieren Speicher nutzen. Unterstufzt werden 
am RGB-Eingang angeschlossene Monitore (80 Zeichen), sowie die ublichen 
PAL-Monitore und Femsehapparate. Ansonsten gelten die Leistungsmerkmale 
von GEOS 64. 
Hardware-Anfordeaing: 
CI28, Floppy 1541, 1570 oder 1571, Joy- 
slick oder Maus 1531. 
5V4-Zoll-Diskefte 
Beslell-Nr. 50328 DM 1 19/-* 

GEOS fur den C 128 

(deutsch) 

Bestell-Nr. 50327 DM 1 19/-* 

Deskpack 1/GeoDex fur 
den C64/C128 (deutsch) 

Deskpack 1/GeoDex: die nOtzlichen 
Zusatzprogramme for GEOS Graphics- 
Grabber! Ubertragt Grafiken von Print 
Shop, Print Master und Newsroom zur 
Anwendung mit GeoPaint und GeoWrite. 
Leisrungsumfang: Icon Editor - erstellt 
und verdndert Icons nach Ihren Vorstellun- 
gen. GeoDex - Adreli- und Notizbuch 
mit Modemunterstutzung. GeoMerge - 
Suchen nach AdreBgruppen aus GeoDex 
sowie Erstellen von Formbriefen und Listen. 
Blackjack - das klassische Glucksspiel. 
Kalender. 

Hardware-Anforderungen: 
C64 oder C128, Floppy 1541, 1570 oder 
1571, Joystick. 

Software-Anforderung: GEOS 64. 
Bestell-Nr. 50322 DM 69,-* 
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GEOS, Version 1.3, fur den C64/C128 (deutsch) 

Der neue Betriebssystemstandard fur Commodore 64. Leisrungsumfang: Desk- 
Top - das Grofikinterface zum GEOS-Betriebssystem. Schauen Sie sich die 
Dateien als Icons oder im Textmodus an. Automatisches Sortieren von Dateien 
nach Alphabet, GroBe, Typ oder Datum der letzten Anderung ist kein Problem. 
Dateien kopieren, loschen und Disketten formatieren ist naturlich enthalten. 

GeoPaint: ein umfangreiches Zeichenpro- 
gramm in Farbe mit 14 verschiedenen 
Grafiktools, 32 Pinselstarken, 32 verschie- 
denen Mustern. GeoWrite: ein einfaches, 
leichtbedienbares Texfproqramm. Desk- 
Accessories: Wecker, Notizblock, Taschen- 
rechner. 

Hardware-Anforderungen: 
C64 oder CI 28 (64er-Modus), Floppy 
1541, 1570 oder 1571, Joystick. 
Bestell-Nr. 50320 DM 59,-* 

Update von alteren englischen Versionen 
auf die neue deutsche Version 13. Erhaltlich 
direkt beim Markt&Technik-Buchverlag 
gegen Einsendung des Originalprodukls 
una gegen Vorausxasse. 
Bestell-Nr. 50320U DM39/-* 

Fontpack 1 fur den 
C64/C 128 (deutsch) 

Die unentbehrliche Utility fur GEOS- 
Benutzer! Fontpack 1 wurde fur die GEOS- 
Applikationen GeoPaint und GeoWrite 
entwickelt und enthalt 20 neue, au&erge- 
wohnliche Schriftarten, die jeden Anwen- 
der begeistem werden. 
Hardware-Anforderungen: 
C64 oder C128, Floppy 1541, 1570 oder 
1571, Joystick. 

Software-Anforderungen: GEOS 64 
Bestell-Nr. 50321 DM 49,-* 
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GeoWrite Workshop fur den 
C64/C128 

Bestell-Nr. 50323 DM89/-* 

In Vorbereitunq: 

GeoWrite Workshop 128 



GeoFile fiir den C64/C128 
Bestell-Nr. 50324 DM89/ 



GeoColc fiir den C64/C128 

Bestell-Nr. 50325 DM89, 

* Unverbindliche Preisempfehlung 



Bestell-Nr. 50329 

GeoFile 128 

Bestell-Nr. 50330 

GeoColc 128 

Bestell-Nr. 50331 



DM119/-* 
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13 fO 
39 13 
fO ff 
4c fl 
93 14 
f9 14 
6d 15 
d3 15 
la 16 
cc 18 
3b 13 
bO ae 
20 20 
20 20 
20 20 
dd ae 
bO 20 



10 e2 

c3 ff 
fO 16 
33 20 
ff ad 
a9 lb 
d2 ff 
a8 Of 



6e 00 
Of 60 
4f 09 

07 20 
10 f7 
69 40 
69 01 
9d f9 
ce 86 
ce 86 
ed 08 
10 a2 
6a ca 
dc 10 
18 ad 

08 ad 
08 ce 



02 12 
02 12 
12 Oa 
12 18 
ff a9 
Oe aO 
8d 53 
Ob 4c 
12 20 
fO Ob 
dO ef 
fO e7 
4c ce 
fO d7 
4c ce 
a9 02 



e3 12 
fO fb 
fO 32 
fO 44 
fO lb 
fO 4e 
fO 70 
fO 50 
Oa 4c 
03 fO 
12 ad 
ce 00 

12 c9 
4c If 
fO 93 
ad 03 
ff 8d 
If 12 
4c 15 
Od 4c 
bO 12 
4c 22 
a9 32 
d2 ff 
c3 ff 

13 8d 
3b 13 
18 c9 
a8 20 
4c fl 
12 60 
al 14 



e2 15 
2d 16 
3a 

60 



ee 
8a 
20 20 
20 20 

bO 20 
20 20 
bO ae 
db 20 



20 bO ae 20 dd 20 



a9 01 
20 fl 
20 cc 
60 ad 
a9 lb 
d2 .ff 
00 12 
20 d2 
a9 15 
dO 06 
a2 08 
6e a7 
11 ca 
ea ea 
a9 28 

46 08 
a2 07 
8d 4b 
8d 4c 

08 ca 

09 10 

09 a2 
6a ca 
07 a9 

10 f9 
20 e9 

47 08 

48 08 
ec 08 
06 ac 
69 06 
ad 00 
aa 20 
18 69 
a2 Oe 
20 20 
Oe 20 
Ob ad 
cd Oa 
e4 ff 
c9 Id 
4c la 
ce 04 

11 ad 
ee 04 

11 ea 
8d 00 
8d 03 
20 e3 
20 7e 
c9 9d 
c9 91 
c9 4c 
c9 44 
c9 49 
c9 47 
4c 22 
15 12 
ba ee 

00 12 

12 4c 
03 fO 
12 ad 
ce 01 
12 c9 
03 12 
4c c9 
12 20 
22 12 
20 68 
12 a9 
20 d2 
20 cc 
4c 22 
3a 13 
a2 00 

01 dO 
39 13 

12 20 
47 13 
bf 14 
33 15 
a7 15 
fl 15 
4b 16 

13 dO 
93 08 
20 bO 
ac 20 
20 20 
20 20 
20 dd 
ae bO 
cO 20 



10 
3f 
51 
9b 
2a 
f7 
ea 
47 
74 
b6 
24 
9a 
ea 
16 
be 
fd 
5a 
40 
80 
34 
ab 
cf 
3f 
3f 
11 
dl 
4f 
42 
01 
bl 
9e 
f4 
f8 
f6 
Id 
05 
3c 
Oe 
da 
b6 
ae 
5a 
9f 
a8 
ec 
32 
59 
3b 
aO 
4d 
cd 
be 
51 
15 
95 
35 
d4 
01 
4d 
lc 
?B 
8a 
7c 
Of 
a2 
16 
66 
53 
dd 
73 
5e 
fb 
33 
64 
66 
fc 
06 
5f 
42 
94 
6e 
01 
14 
dd 
df 
32 
f7 
4d 
83 
62 
37 
aa 
83 
c3 



1381 
1389 
1391 
1399 
13al 
13a9 
13bl 
13b9 
13cl 
13c9 
13dl 
13d9 
13el 
13e9 
13fl 
13f9 
1401 
1409 
1411 
1419 
1421 
1429 
1431 
1439 
1441 
1449 
1451 
1459 
1461 
146~9 
1471 
1479 
1481 
1489 
1491 
1499 
14al 
14a9 
14bl 
14b9 
14cl 
14c9 
14dl 
14d9 
14el 
14e9 
14fl 
14f9 
1501 
1509 
1511 
1519 
1521 
1529 
1531 
1539 
1541 
1549 
1551 
1559 
1561 
1569 
1571 
1579 
1581 
1589 
1591 
1599 
15al 
15a9 
15bl 
15b9 
15cl 
15c9 
15dl 
15d9 
15el 
15e9 
15fl 
15f9 
1601 
1609 
1611 
1619 
1621 
1629 
1631 
1639 
1641 
1649 
1651 
1659 
1661 
1669 



ab b3 
b3 bO 
bO Od 
ad bl 
bd ad 
bd ad 
bl ad 
b3 Od 
20 20 
20 20 
20 20 
20 20 
bd Od 
28 d7 
59 20 
c3 4c 
20 31 
01 Oe 
4d 45 

05 09 
20 3a 
55 53 
cd 41 
01 04 
45 43 
10 28 

06 11 

49 43 
4e 56 
28 dO 
la 12 

53 01 

54 20 
01 11 
54 00 
45 43 
01 09 

50 50 
41 56 
45 20 
09 bO 
ad bd 
20 20 
20 20 
ae 20 
20 01 
01 Oe 
01 Oe 
Oe Oa 
Ob 20 
20 20 
bO ae 
dd 20 
20 20 
20 00 
20 01 
01 Oe 
Oe Oc 
Oe 09 
Oa dd 
ad cO 
20 20 
ae 20 
20 20 
20 01 

00 01 

01 Oe 
Oe Ob 
Oc ad 
09 bO 
dd 20 
20 20 
cO bd 
52 49 

20 00 

54 49 

00 01 
45 52 

01 05 
49 4e" 
4f 41 

55 52 
28 01 
00 01 
52 54 

21 11 
4f 4c 
3f aO 
2f 20 
20 00 
52 49 
4f 54 
41 42 
00 bd 



bO ae 
20 bO 
ad bd 
ad bd 
bl 20 
ad bl 
bd ad 
20 20 
20 20 
20 20 
20 20 
20 20 
20 20 
29 20 
ca 4f 
45 56 
39 38 

07 dO 
4e 55 
c6 4f 
01 05 
20 20 
52 47 
10 28 
54 4f 
cc 29 

28 c7 
01 la 
45 52 

29 52 
28 cd 
Oe 14 
cd 41 
16 28 
01 Of 
54 4f 

08 12 
59 20 
41 49 



20 ab 
ae bO 
ad bl 
ad 20 
bd 20 
20 bd 
bd ab 
20 20 
20 20 
20 20 
20 20 
20 bd 
20 20 
20 20 
45 52 
45 20 
36 11 
52 49 
20 3a 
52 4d 
Od cd 
3a 01 
49 4e 
c4 29 
52 59 
4f 41 



54 01 
49 4e 
29 4f 
28 d3 
52 47 



52 59 
lc c6 
4e 4f 
4c 41 



21 92 le 00 
ae 20 20 01 
01 Oe 



20 20 
20 01 

00 01 

01 Oe 
Oe Ob 
Oc 20 
09 bO 
ad cO 
20 20 
20 20 
20 20 
20 01 
01 Oe 
01 Oe 
Oe Oa 
Ob ad 
20 20 
bO cO 
20 20 
cO bd 
20 00 
20 01 
01 Oe 
Oe Oc 
Oe 09 
Oa dd 
dd 20 
cO bd 
cO cO 
20 dd 
dd 01 

00 01 
5a 4f 

01 Oe 

43 41 
Oe Od 
2d 48 
Oe 12 
92 00 

44 20 



Oe Oc 
Oe 09 
Oa ad 
20 20 
20 20 
cO cO 
cO bd 
20 01 

00 01 

01 Oe 
Oe Cb 
Oc 20 
09 bO 
dd aO 
cO bd 
20 20 
cO ae 
dd 01 
01 Oe 
01 Oe 
Oe Oa 
Ob dd 
ad bd 
bO cO 
20 dd 
dd 20 
20 00 



01 
Oe 



Od Ob 
20 c4 
Od 00 
4f 52 
28 d9 
28 ce 
01 08 
4e 54 
20 41 
4c 45 
37 12 



Oe Oc 
Oe Od 
4e 54 
Od 56 
4c 20 
4c 45 
45 41 
cd 41 
01 02 
50 49 
2e 01 
29 01 
c9 4e 
49 53 
01 07 
52 41 
29 45 
29 4f 
08 12 
45 52 
56 41 
20 21 
4a 05 



ae 


bO 


83 


ae 


ae 


3b 


20 


bd 


4f 


ad 


ad 


00 


20 


aO 


44 


20 


ad 


aa 


bd 


ad 


e9 


20 


20 


c3 


20 


20 


cl 


20 


20 


c9 


20 


20 


dl 


20 


ad 


el 


20 


20 


f5 


20 


42 


53 


47 


20 


3b 


49 


4e 


16 


Od 


00 


2f 


4e 


54 


3f 


Od 


01 


49 


41 


54 


7c 


4f 


44 


44 


05 


Oe 


10 


20 


3a 


18 


49 


52 


a5 


01 


lb 


51 


44 


01 


de 


41 


46 


9a 


c9 


29 


93 


06 


12 


00 


54 


01 


c-8 


44 


55 


21 


29 


45 


a3 


49 


4e 


a2 


55 


49 


ec 


49 


52 


50 


Od 


00 


a3 


4c 


4f 


33 


54 


20 


6d 


42 


4c 


07 


01 


Oe 


ab 


Oe 


Ba 


28 


Ob 


20 


4e 


20 


20 


2c 


bO 


cO 


97 


cO 


bd 


2e 


20 


20 


33 


20 


00 


84 


ae 


01 


28 


01 


Oe 


b2 


Oe 


Oc 


8b 


Oe 


09 


aO 


Oa 


dd 


91 


ad 


bd 


a2 


20 


20 


de 


-o 


ae 


ca 


dd 


20 


39 


20 


01 


3e 


00 


01 


6f 


01 


Oa 


ca 


Oe 


Ob 


92 


Oc 


20 


47 


09 


bO 


afi 


dd 


dd 


be 


dd 


20 


03 


20 


20 


bO 


ae 


20 


bb 


20 


01 


4b 


01 


Oe 


a7 


01 


Oe 


8e 


Oe 


Oa 


92 


Ob 


dd 


cb 


ad 


cO 


fa 


48 


4f 


89 


41 


4c 


65 


45 


5 2 


31 


20 


20 


51 


54 


54 


70 


44 


00 


lb 


52 


47 


f9 


06 


cc 


eO 


43 


54 


Ob 


02 


07 


de 


03 


07 


14 


53 


45 


25 


4b 


20 


db 


09 


c3 


Oa 


4d 


20 


69 


53 


20 


58 


20 


3f 


70 


lc 


dO 


ce 


20 


4e 


6a 


49 


4c 


30 


92 


le 


11 


a9 


85 


d6 



Listing 1. (SchluB) 



Name i Hardcopy SG 10 



cOOO cl34 



cOOO 


78 


a9 


Dd 


aO 


cO 


8d 


14 


03 


73 


cooe 


8c 


15 


03 


58 


60 


a5 


c5 


c9 


c9 


c010 


04 


dO 


07 


a9 


00 


85 


c5 


20 


f7 


c018 


Id 


cO 


4c 


31 


ea 


a2 


ff 


b5 


fe 


c020 


00 


9d 


32 


cl 


ca 


dO 


f8 


a9 


le 


c028 


01 


85 


CC 


a9 


7e 


a2 


04 


aO 


a2 


C030 


05 


20 


ba 


ff 


a9 


00 


20 


bd 


8a 


c038 


ff 


20 


cO 


ff 


a2 


7e 


20 


c9 


aa 


c040 


ff 


a9 


lb 


20 


d2 


ff 


a9 


33 


19 


c048 


20 


d2 


ff 


a9 


18 


20 


d2 


ff 


d4 


C050 


a9 


00 


ac 


88 


02 


85 


15 


84 


df 


c058 


16 


a2 


19 


20 


el 


ff 


fO 


3f 


6a 


c060 


aO 


27 


bl 


15 


c9 


20 


dO 


Ob 


9a 


c068 


88 


10 


f7 


a9 


Od 


20 


d2 


ff 


48 


c070 


4c 


91 


cO 


20 


09 


cl 


aO 


Ob 


fO 


C078 


b9 


le 


Cl 


20 


d2 


ft 


88 


dO 


a6 


c080 


17 


aO 


00 


a9 


00 


bl 


15 


65 


ea 


c088 


d6 


20 


b7 


CO 


c8 


cO 


28 


dO 


49 


c090 


f2 


a9 


28 


18 


65 


15 


85 


15 


a3 


c098 


90 


02 


e6 


16 


ca 


10 


be 


a9 


If 


cOaO 


Od 


20 


d2 


ff 


a9 


7e 


20 


c3 


oa 


c0a8 


ff 


20 


cc 


ff 


a2 


ff 


bd 


32 


70 


cObO 


cl 


95 


00 


ca 


dO 


f8 


60 


48 


7c 


c0b8 


8a 


48 


96 


48 


a5 


d6 


85 


f8 


af 


cOcO 


a9 


00 


85 


f9 


06 


f8 


26 


f9 


bf 


c0c8 


06 


f8 


26 


f9 


06 


fa 


26 


f9 


ofl 


cOdO 


a5 


f9 


18 


65 


fa 


85 


f9 


a6 


36 


c0d8 


01 


a9 


80 


85 


9d 


a9 


00 


48 


36 


cOeO 


aO 


07 


78 


a9 


01 


29 


fb 


85 


ab 


c0e8 


01 


bl 


f8 


25 


9d 


86 


01 


5 6 


67 


cOfO 


fO 


06 


68 


18 


79 


2a 


cl 


48 


81 


c0f8 


88 


10 


e7 


(53 


20 


d2 


ff 


46 


b4 


clOO 


9d 


90 


da 


63 


a8 


68 


aa 


68 


f2 


cl08 


60 


a9 


00 


85 


f9 


ad 


18 


dO 


fd 


cllO 


29 


02 


dO 


05 


a9 


dO 


85 


fa 


3c 


cll8 


2c 


a9 


da 


85 


fa 


60 


00 


01 


M 


cl20 


40 


04 


67 


lb 


Of 


4d 


lb 


30 


c8 


C128 


lb 


Od 


BO 


40 


20 


10 


08 


04 


9d 


C130 


02 


01 


00 


37 


00 


ff 


00 


ff 


9a 



Listing 2. Die Anpassung der 
-Hardcopy auf Knopfdruck« an 
den STAR SG-10 geben Sie bitte 
mit dem MSE (Seite 159) ein 



Name 


mini mc- 


lardco 


»y 


cOOO c 


424 


cOOO : 


20 fa 


Cl 


a9 


01 


a2 


04 


aO 


b9 


C008 : 


00 20 


ba 


ff 


a9 


00 


20 


bd 


5d 


C010 : 


ff 20 


cO 


ff 


a2 


01 


20 


c9 


96 


C018 : 


ff a9 


ea 


aO 


c3 


20 


le 


ab 


c7 


C020 : 


a9 27 


8d 


3c 


03 


a9 


02 


Bd 


e8 


c028 : 


3e 03 


a9 


00 


8d 


58 


03 


a9 


4d 


c030 : 


20 8d 


52 


03 


a9 


40 


8d 


54 


87 


c038 : 


03 a9 


00 


8d 


3d 


03 


20 


al 


71 


C040 : 


cO ee 


3d 


03 


ad 


3d 


03 


c9 


8b 


C048 : 


c8 dO 


f3 


ee 


98 


03 


ad 


54 


50 


C050 : 


03 c9 


60 


fO 


le 


aO 


78 


a9 


92 


C058 : 


00 20 


d2 


ff 


88 


dO 


fa 


18 


48 


C060 : 


ad 54 


03 


69 


20 


8d 


54 


03 


eb 


C068 : 


ad 52 


03 


69 


08 


8d 


52 


03 


69 


C070 : 


4c 39 


cO 


a9 


f2 


iO 


c3 


20 


42 


C078 : 


le ab 


ce 


3e 


03 


10 


ab 


a9 


9a 


C080 : 


f7 aO 


c3 


a6 


02 


fO 


04 


a9 


98 


c088 i 


fe aO 


c3 


20 


le 


ab 


ad 


3c 


3a 


c090 : 


03 38 


e9 


03 


Bd 


3c 


3 


10 


71 


c098 i 


8c 20 


cc 


ff 


a9 


01 


4c 


c3 


c3 


cOaO : 


if ad 


3d 


o a 


4a 


4a 


4a 


a8 


97 


c0a8 : 


b9 Ob 


c4 


le 


6d 


54 


03 


85 


ac 


Listing 3. Die Hardcopy-Routine 




fur den Oki 20 geb 


sn 


Sie bitte 




mit dem MSE (Seite 159) 


ein 







36 



3** 



C64 



TOOLS: DRUCKER 



cObO 


fc 


98 


29 03 


a8 


b9 


07 


c4 


al 


cleO 


20 


to 


cl 


ad 


4a 


03 


20 


fO 


bd 


C310 


70 


43 


91 


fb 


eO 


00 


fO 


09 


e9 


c0b8 


38 


e9 


10 85 


fb 


bO 


02 


c6 


74 


cle8 


cl 


ad 


49 


03 


20 


fO 


cl 


60 


84 


c318 . 


c8 


dO 


fO 


e6 


fc 


ca 


4c 


Ob 


cf 


cOcO 


fc 


ad 


3d 03 


29 


07 


18 


65 


39 


clfO 


20 


d2 


ff 


c9 


03 


dO 


f8 


4c 


e6 


c320 


c3 


c8 


cO 


e8 


do 


e5 


a2 


00 


5b 


C0c8 


fb 


BE 


fb ad 


3c 


3 


Oa 


Oa 


52 


clf8 


d2 


ff 


a9 


00 


8d 


50 


03 


18 


cc 


c328 


86 


fb 


ae 


53 


03 


86 


fc 


a2 


5f 


cOdO 


Oa 


90 


02 e6 


fc 


18 


65 


fb 


9e 


c200 


69 


07 


aa 


a9 


20 


9d 


c4 


c3 


56 


c330 


03 


aO 


00 


20 


cf 


ff 


24 


90 


36 


c0d8 


85 


fb 


90 02 


e6 


fc 


aO 


00 


98 


c20B 


ca 


ec 


50 


03 


10 


f7 


20 


fd 


fa 


c338 . 


70 


lb 


91 


fb 


eO 


00 


fO 


09 


fd 


cOeO 


bl 


fb 


8d 42 


03 


aO 


09 


bl 


f3 


C210 


ae 


20 


9e 


ad 


20 


a3 


b6 


c9 


b9 


c340 - 


c8 


dO 


fO 


»6 


fc 


ca 


4c 


33 


47 


c0e8 


fb 


8d 


43 03 


aO 


10 


bl 


fb 


24 


c218 


09 


90 


03 


4c 


48 


b2 


a8 


18 


al 


C348 - 


c3 


c8 


CO 


e8 


dO 


e5 


20 


cf 


19 


cOfO 


8d 


44 


03 a9 


00 


85 


fe 


ad 


19 


c220 


6d 


50 


03 


aa 


ca 


88 


bl 


22 


c7 


c350 . 


ff 


29 


Of 


85 


02 


20 


cc 


ff 


ad 


c0f8 


3d 


03 


29 f8 


85 


fd 


Oa 


26 


dd 


c228 


9d 


c4 


c3 


ca 


88 


10 


f7 


ad 


b6 


c358 : 


a9 


01 


4c 


c3 


ff 


03 


3 


00 


31 


clOO 


t"e 


Oa 


26 fe 


18 


65 


fd 


85 


lc 


c230 


50 


03 


18 


69 


Of 


8d 


50 


03 


da 


c360 : 


00 


02 


00 


01 


02 


00 


01 


03 


ac 


cl08 


fd 


a9 


00 65 


fe 


85 


fe 


a5 


ea 


c238 


c9 


If 


90 


c3 


20 


fd 


ae 


20 


la 


c368 : 


03 


3 


03 


00 


00 


00 


oo 


02 


b2 


cllO 


fd 


18 


6d 3c 


03 


03 


33 


e9 


21 


c240 


9e 


b7 


eO 


02 


90 


03 


4c 


48 


15 


c370 


00 


00 


00 


01 


03 


02 


01 


02 


d9 


cll8 


02 


85 


fd a5 


fe 


e9 


00 


28 


aO 


c248 


b2 


86 


02 


aO 


00 


84 


fb 


a9 


39 


c378 : 


01 


02 


01 


02 


00 


03 


03 


00 


If 


cl20 


69 


00 


85 fe 


a5 


fd 


85 


22 


6f 


c250 


40 


85 


fc 


a9 


00 


a2 


60 


91 


81 


c380 


00 


03 


03 


00 


00 


01 


02 


00 


d3 


cl28 


ad 


52 


03 18 


65 


fe 


83 


fe 


25 


c258 


fb 


c8 


dO 


fb 


e6 


fc 


ca 


10 


Oc 


c388 : 


00 


02 


03 


00 


00 


02 


01 


02 


62 


C130 


18 


69 


04 85 


23 


ad 


3e 


03 


4d 


c260 


f6 


a9 


40 


8d 


51 


03 


a9 


20 


01 


c390 . 


01 


03 


03 


01 


03 


02 


01 


00 


38 


cl38 


Oa 


Oa 


Oa Oa 


Oa 


8d 


4c 


03 


4f 


c268 


8d 


52 


03 


a9 


24 


8d 


53 


03 


16 


c398 : 


00 


00 


00 


02 


00 


03 


03 


00 


fd 


C140 


a9 


02 


8d 45 


03 


a9 


00 


aO 


b5 


c270 


a 9 


00 


20 


ad 


c2 


a5 


02 


8d 


54 


c3a0 • 


00' 


03 


03 


01 


00 


00 


00 


03 


09 


cl48 


05 


99 


46 03 


88 


10 


fa 


a9 


54 


c278 


55 


03 


a9 


60 


3d 


51 


03 


a9 


88 


c3a8 : 


03 


00 


00 


03 


03 


03 


03 


03 


66 


C150 


00 


8d 


4f 03 


ac 


45 


3 


b9 


cO 


c280 


28 


8d 


52 


03 


a 9 


2c 


8d 


53 


3d 


c3b0 : 


03 


00 


00 


01 


03 


02 


01 


03 


le 


C158 


42 


03 


8d 4e 


3 


a9 


00 


8d 


e2 


c288 


03 


a9 


Of 


20 


ad 


c2 


a5 


02 


b3 


c3b8 : 


01 


00 


00 


02 


00 


81 


50 


49 


da 


cl60 


4d 


03 


ad 4e 


03 


Oa 


2e 


4d 


38 


c290 


8d 


56 


3 


a 9 


80 


8d 


51 


03 


fe 


c3c0 : 


43 


20 


3f 


20 


20 


20 


20 


20 


ab 


cl68 


03 


Oa 


2e 4d 


3 


8d 


4e 


3 


81 


c298 


a9 


30 


8d 


52 


03 


a9 


34 


8d 


70 


c3c8 : 


20 


20 


20 


20 


81 


50 


49 


43 


4b 


C170 


ac 


45 


03 ae 


4d 


03 


fO 


la 


3a 


c2a0 


53 


03 


a9 


le 


20 


ad 


c2 


a5 


69 


c3d0 


20 


3f 


20 


20 


20 


20 


20 


20 


60 


cl78 


eO 


3 


fO 10 


bl 


fd 


eO 


01 


a8 


c2a8 


02 


8d 


57 


03 


60 


a2 


01 


86 


d3 


c3d8 : 


20 


20 


20 


81 


50 


49 


43 


20 


dd 


ciao 


to 


04 


29 Of 


10 


12 


4a 


4a 


ee 


C2b0 


02 


a2 


00 


86 


fb 


ae 


51 


03 


55 


C3e0 


3f 


20 


20 


20 


20 


20 


20 


20 


ff 


cl88 


4a 


4a 


10 Oc 


bl 


22 


29 


Of 


6c 


c2b8 


86 


fc 


IS 


69 


bd 


aa 


a9 


00 


c7 


c3e8 


20 


20 


Od 


lb 


19 


lb 


52 


lc 


ab 


C190 


10 


06 


ac 58 


03 


b9 


55 


03 


33 


c2c0 


69 


c3 


a 8 


a9 


Of 


20 


bd 


ff 


53 


c3f0 


03 


00 


03 


02 


Od 


03 


00 


03 


e3 


cl98 


Oa 


ie 


6d 4c 


03 


a8 


ae 


45 


4e 


c2c8 


a9 


01 


a2 


08 


aO 


00 


20 


ba 


9b 


c3f8 


02 


Oa 


lb 


19 


03 


00 


03 


02 


2a 


claO 


03 


b9 


5d c3 


4a 


3e 


46 


03 


05 


c2d0 


ff 


20 


eO 


ff 


a2 


01 


20 


c6 


50 


c400 


lb 


Oa 


17 


lb 


19 


03 


00 


00 


f3 


cla8 


4a 


3e 


46 03 


b9 


5e 


c3 


4a 


36 


c2d8 


ff 


20 


cf 


ff 


20 


cf 


ff 


a2 


al 


c408 - 


40 


60 


cO 


CC 


01 


02 


03 


05 


ef 


clbO 


3e 


49 


03 4a 


3e 


49 


03 


ee 


b5 


c2e0 


If 


aO 


00 


20 


cf 


ff 


24 


90 


02 


c410 


06 


07 


08 


Ca 


Ob 


Oc 


Od 


Of 


41 


clb8 


4f 


03 


ad 4f 


03 


c9 


04 


dO 


Oe 


c2e8 


70 


6b 


91 


fb 


eO 


00 


fO 


09 


d5 


C418 : 


10 


11 


12 


14 


15 


16 


17 


19 


49 


clcO 


9c 


ce 


45 03 


30 


05 


ad 


3c 


cf 


c2f0 


c8 


dO 


eo 


e6 


fc 


ca 


4c 


e3 


58 


c420 


la 


lb 


lc 


le 


00 


ff 


00 


ff 


93 


clc8 


03 


dO 


84 ad 


48 


3 


20 


fO 


09 


c2f8 


c2 


C8 


CO 


40 


dO 


e5 


a2 


00 


Id 






















cldO 


cl 


ad 


47 03 


20 


fO 


cl 


ad 


86 


c300 


86 


fb 


ae 


52 


03 


86 


fc 


a2 


17 






















cld8 


46 


03 


20 fO 


cl 


ad 


4b 


03 


83 


c308 


03 


aO 


00 


20 


cf 


ff 


24 


90 


Oe 


Listing 3. 


(SchluB) 













Name 


: hard See 








ceOO c 


f36 


ceOO 


: 89 


23 


20 


ff 


ae 


20 


9e 


b7 


19 


ce08 


: 20 


c9 


ff 


20 


db 


ce 


a2 


Od 


ea 


celO 


: 86 


57 


85 


5c 


84 


5d 


a2 


06 


02 


cel8 


! 20 


39 


ca 


20 


f5 


ce 


85 


02 


fd 


ce20 


: dO 


fO 


a5 


5e 


a4 


5f 


a2 


07 


7 b 


0828 


: 20 


39 


ce 


20 


f5 


ce 


85 


02 


Od 


ce30 


: dO 


fO 


c6 


57 


dO 


de 


4c 


17 


68 


oe38 


: Cf 


85 


5a 


84 


5b 


85 


5e 


84 


55 


ce40 


: 5f 


18 


69 


40 


90 


01 


c8 


c8 


d3 


0048 


: 85 


5c 


84 


5d 


86 


56 


82 


4c 


06 


ce50 


1 89 


40 


BO 


01 


20 


c3 


ce 


a6 


Oa 


ce58 


: 57 


ca 


a9 


28 


85 


58 


89 


80 


46 


ce60 


: 85 


59 


89 


00 


85 


55 


78 


a5 


2c 


ce68 


: 01 


48 


89 


30 


85 


01 


a4 


56 


9d 


ce70 


: 38 


8a 


fO 


06 


bl 


5c 


25 


59 


2f 


ce78 


: dO 


01 


18 


66 


55 


88 


88 


10 


78 


ce80 


: ef 


a4 


56 


38 


bl 


5a 


25 


59 


93 


ce88 


: dO 


01 


18 


66 


55 


88 


88 


10 


88 


ce90 


: f2 


68 


85 


Cl 


58 


a5 


55 


20 


80 


ce98 


: d2 


ff 


46 


59 


90 


c4 


85 


5a 


al 


ceaO 


: 69 


07 


85 


Sa 


90 


02 


e6 


5b 


a5 


cea8 


: 18 


a5 


5c 


69 


08 


85 


5c 


90 


16 


cebO 


: 02 


e6 


5d 


06 


58 


dO 


a7 


a5 


4b 


ceb8 


: 02 


dO 


01 


60 


b9 


2f 


ce 


a2 


04 


cecO 


: 4a 


aO 


Od 


48 


89 


lb 


20 


d2 


40 


cec8 


: ff 


3 a 


20 


d2 


ff 


68 


20 


d2 


d8 


cedO 


: ff 


98 


20 


d2 


ff 


bO 


01 


60 


c8 


ced8 


: 4c 


04 


el 


89 


00 


82 


20 


ac 


ab 


ceeO 


: aO 


85 


5c 


86 


5d 


8d 


32 


Cf 


d5 


cee8 


: 8c 


3 3 


Cf 


a 9 


oo 


85 


02 


a 9 


be 


cefO 


: 01 


8d 


2f 


Cf 


60 


a5 


02 


48 


49 


cef8 


i ad 


2f 


Cf 


85 


02 


68 


Bd 


2f 


d9 


cfOO 


: cf 


aO 


00 


b9 


5a 


00 


48 


b9 


91 


cf08 


: 30 


Cf 


99 


5 a 


00 


68 


99 


30 


dc 


cflO 


: cf 


c8 


cO 


06 


dO 


ed 


60 


aO 


73 


cfl8 


: 00 


b9 


27 


cf 


20 


d2 


ff 


c8 


e3 


cf20 


: CO 


OS 


dO 


f5 


4c 


cc 


ff 


lb 


b7 


cf28 


: 41 


04 


lb 


Oa 


00 


01 


17 


00 


d8 


cf30 


: 00 


00 


00 


00 


00 


00 


00 


ff 


30 


Listing 4. 


Die Giga-CAD-Hardcopy 


im Bereich ab SCEOO geben Sie 




bitte 


mit dem WISE 


(Seite 159) ein 



Name 


hard $90 




9000 9136 


9000 


a9 23 20 ff ae 


20 


9e 


b7 


19 


9008 


20 c9 ff 20 db 


90 


a2 


Od 


f8 


9010 


86 57 a5 5c a4 


5d 


a2 


06 


02 


9018 


20 39 90 20 f5 


90 


85 


2 


7b 


9020 


dO fO a5 5e a4 


5f 


a2 


07 


7b 


9028 


20 39 90 20 f5 


90 


a5 


02 


8b 


9030 


dO fO c6 57 dO 


dc 


4c 


17 


68 


9038 


91 85 5a 84 5b 


85 


5e 


84 


17 


9040 


5f 18 69 40 90 


01 


c8 


c8 


d3 


9048 


85 5c 84 5d 86 


Sc- 


82 


4c 


06 


9050 


a9 40 aO 01 20 


cS 


90 


a6 


11 


9058 


57 ca a9 28 85 


58 


a9 


80 


46 


9060 


85 59 a9 00 85 


55 


78 


a5 


2c 


9068 


01 48 a9 30 85 


01 


a4 


56 


9d 


9070 


38 8a fO 06 bl 


5c 


25 


59 


2f 


9078 


dO 01 18 66 55 


88 


88 


10 


78 


9080 


ef a4 56 38 bl 


5a 


25 


59 


93 


9088 


dO 01 18 66 55 


88 


88 


10 


88 


9090 


f2 68 85 01 58 


85 


55 


20 


80 


9098 


d2 ff 46 59 90 


c4 


aS 


5a 


al 


90a0 


69 07 85 5a 90 


02 


96 


5b 


a5 


90a8 


18 a5 5c 69 08 


85 


5c 


90 


16 


90b0 


02 e6 5d c6 58 


dO 


a7 


a5 


4b 


90b8 


02 dO 01 60 b9 


2f 


90 


a2 


Ob 


90c0 


4a aO Od 48 a9 


lb 


20 


d2 


40 


90c8 


ff 8a 20 d2 ff 


68 


20 


d2 


d8 


90d0 


ff 98 20 d2 ff 


bo 


01 


60 


c8 


90d8 


4c. 04 el a9 00 


a2 


20 


aO 


ab 


90e0 


aO 85 5c 86 5d 


8d 


32 


91 


59 


90e8 


8c 33 91 a9 00 


85 


02 


a9 


2f 


90fO 


01 8d 2f 91 60 


a5 


02 


48 


82 


90f8 


ad 2f 91 85 02 


68 


8d 


2f 


4a 


9100 


91 aO 00 b9 5a 


00 


48 


b9 


53 


9108 


30 91 99 5a 00 


68 


99 


30 


bd 


9110 


91 c8 cO 06 dO 


ed 


60 


aO 


35 


9118 


00 b9 27 91 20 


d2 


ff 


c8 


lb 


9120 


cO 05 dO f5 4c 


cc 


ff 


lb 


b7 


9128 


41 04 lb Oa 00 


01 


17 


00 


d8 


9130 


00 00 00 00 00 


00 


00 


ff 


30 


Listing 5. Die Giga-CAD-Hardcopy- 


Routine fur den Bereich SEOOO. 




Bitte mit dem MSE (Seite 159) 




eingeben. 











Name - 


mp 


90 


ftcolor 




cOOO C270 


cOOO • 


20 


fd 


ae 


20 


9e 


b7 


86 


02 


94 


c008 : 


fO 


05 


20 


c9 


ff 


dO 


00 


20 


83 


cOlO 


fd 


ae 


20 


9e 


b7 


86 


15 


a9 


98 


C018 : 


00 


85 


14 


20 


fd 


88 


20 


9e 


f7 


C020 : 


b7 


86 


57 


2 


fd 


ae 


20 


9e 


07 


c028 : 


b7 


86 


58 


20 


fd 


ae 


20 


9e 


4f 


C030 : 


b7 


86 


59 


20 


fd 


ae 


20 


9e 


98 


c038 : 


b7 


86 


5a 


89 


ff 


6d 


03 


dd 


32 


c040 : 


ad 


02 


dd 


09 


04 


8d 


02 


dd 


f7 


c048 : 


aO 


02 


b9 


7c 


cl 


20 


59 


cl 


ed 


c050 : 


88 


10 


f7 


a9 


00 


85 


62 


a9 


lc 


c058 : 


00 


85 


63 


20 


e4 


ff 


fO 


03 


10 


C060 : 


4c 


45 


cl 


aO 


03 


b9 


78 


Cl 


37 


C068 : 


20 


59 


cl 


88 


10 


f7 


89 


00 


le 


C070 : 


85 


61 


a5 


14 


a4 


15 


35 


22 


df 


C078 : 


84 


23 


84 


63 


a2 


00 


78 


a9 


83 


c080 . 


35 


85 


01 


bl 


22 


9 5 


64 


c8 


eO 


c088 : 


e8 


eO 


04 


dO 


f6 


89 


37 


85 


aO 


c090 : 


01 


58 


89 


03 


85 


60 


82 


03 


74 


c098 i 


b5 


64 


84 


6 


fO 


06 


4a 


4a 


bl 


cOaO : 


88 


4c 


9c 


cO 


18 


29 


3 


95 


8f 


c0a8 : 


5b 


ca 


10 


ec 


aO 


00 


82 


03 


a5 


cObO : 


a9 


00 


8 5 


5f 


89 


03 


85 


68 


40 


c0b8 : 


b5 


5b 


c5 


57 


dO 


06 


b9 


82 


aO 


cOcO i 


cl 


18 


90 


21 


C5 


58 


dO 


06 


44 


cOc8 : 


b9 


8e 


cl 


18 


90 


17 


c5 


59 


c7 


cOdO : 


dO 


06 


b9 


9a 


cl 


18 


90 


Od 


9e 


c0d8 : 


c5 


5a 


dO 


06 


b9 


a6 


cl 


18 


c7 


cOeO : 


90 


03 


b9 


b2 


Cl 


25 


68 


05 


a7 


c0e8 : 


5f 


85 


5f 


18 


26 


68 


18 


26 


37 


cOfO : 


68 


18 


ca 


10 


c3 


20 


59 


cl 


3f 


c0f8 : 


c8 


CO 


Oc 


dO 


bl 


a6 


60 


ca 


a5 


clOO : 


86 


60 


10 


92 


18 


85 


22 


69 


17 


cl08 : 


08 


85 


22 


a5 


23 


69 


00 


85 


99 


CllO : 


23 


a6 


61 


e8 


86 


61 


eO 


28 


43 


C118 : 


fO 


03 


4c 


7a 


cO 


a6 


63 


e8 


8d 


C120 : 


e8 


88 


88 


86 


63 


eO 


08 


fO 


c6 


C128 : 


03 


4c 


5b 


cO 


18 


a5 


14 


69 


12 


C130 : 


40 


85 


14 


a5 


15 


69 


01 


85 


98 


Listing 6. 


Der Maschinensprache- 


teil fur den Farbdruck mit Epson- 


Druckern. 


Bitte mit dem MSE (Seite 


159) eingeben. 















l£lf 



SONDERHEFT 24 



37 



TOOLS: DRUCKER 



C64 



cl38 


15 


a6 


62 


e8 


66 


62 


eO 19 


87 


cla8 


aa 


00 


00 


00 


00 00 


55 


00 


a8 


C218 : 


08 


91 a4 48 


ad 


c5 


cl 


91 


4e 


cl40 


to 


UJ 


4c 


57 


CO 


a j 


02 b9 


3c 


clbO 


00 


00 


00 


00 


00 00 


00 


00 


bl 


C220 : 


a6 


68 c8 dO 


tA 


e6 


a5 


e6 


31 


C148 


•ft 


cl 


20 


59 


cl 


88 


10 (7 


6c 


clb8 


00 


00 


00 


00 


00 00 


00 


00 


b9 


C228 : 


a7 


e4 a5 dO 


ec 


60 


art 


16 


79 


C150 


20 


cc 


tf 


ab 


02 


JO 


c3 ff 


bb 


clcO 


00 


00 


00 


06 


07 00 


ad 


11 


cb 


c230 : 


dO 


29 ef 8d 


16 


dO 


ad 


1 1 


03 


C158 


60 


a6 


02 


to 


03 


4c 


d2 ff 


88 


clc8 


dO 


09 


20 


8d 


11 dO 


ad 


18 


55 


c238 : 


dO 


29 df 8d 


11 


riO 


ad 


18 


c5 


C160 


8d 


01 


dd 


a9 


10 


2c 


Od dd 


6d 


cldO 


dO 


09 


08 


8d 


18 dO 


ad 


16 


c4 


C240 : 


dO 


29 f7 8d 


18 


rin 


a9 


Oc 


lb 


cl68 


to 


tb 


ad 


00 


dd 


09 


04 8d 


13 


cld8 


dO 


09 


10 


8d 


16 dO 


ea 


ea 


4c 


c248 : 


art 


20 dO 8d 


21 


dO 


a9 


93 


31 


C170 


00 


dd 


29 


(b 


8d 


00 


dd 60 


3a 


cleO 


a9 


00 


8d 


20 


dO ad 


c2 


cl 


fa 


c250 : 


20 


d2 ff 60 


a2 


08 


aO 


01 


d4 


cl78 


07 


BO 


ba 


lb 


IB 


33 


lb 40 


cl 


cle8 


8d 


21 


dO 


ad 


c3 cl 


Oa 


Oa 


76 


C258 : 


20 


ba ff ad 


70 


c2 


a2 


71 


15 


cl80 


lb 


Od 


aa 


bb 


aa 


bS 


aa 55 


22 


clfO 


Oa 


Oa 


Od 


C4 


cl a2 


00 


86 


19 


c260 : 


aO 


c2 20 bd 


ff 


a9 


00 


n2 


b4 


C188 


aa 


5b 


aa 


bb 


aa 


bb 


aa 00 


32 


clf8 


a4 


66 


a6 


a2 


04 86 


a5 


ea 


be 


C268 : 


00 


aO 20 20 


d5 


ff 


60 


ea 


79 


C190 


bb 


UO 


aa 


00 


bb 


00 


aa 00 


90 


c200 


ea 


ea 


ea 


ea 


ea aZ 


d8 


86 


ab 


















C198 


55 


00 


00 


aa 


00 


00 


55 00 


98 


c208 


a7 


ae 


12 


no 


eO 58 


dO 


ft 


ad 


















claO 


00 


aa 


00 


00 


55 


00 


00 00 


4b 


C210 


ae 


11 


dO 


30 


f4 aO 


00 


a2 


lb 


Listing 6. 


(SchluB) 













10 REM ******************************** 


<060> 


480 


IF F4=5 THEN GOSUB 760: PRINT "CWHITEMC 




20 EEM * * 


<069> 




BLUE , 2SPACE>KLEINSTER FARBDICHTE" 


<121> 


30 REM * SOFTCOLOR MIT RX/80 * 


<035> 


490 


X=l: GOSUB 760: PRINT" <!BLACK>BITTE 2IFFE 




40 REM * * 


<089> 




R FUER FARBDICHTE WAEHLEN 


<159> 


50 REM * JUERGEN CURDT * 


<177> 


500 


PRINT " CDOWN , 6SPACE>ODERCSPACE , BLUE}UMS 




60 REM * KESSEMEIERWEG 5 * 


<080> 




CHALTEN ZUR GRAFIKCSPACE, WHITE}* 


<219> 


70 REM * 4930 DETMOLD 1 * 


<252> 


510 


GET A$:IF A$="+"THEN A$="":GOTO 290 


<169> 


80 REM * * 


<129> 


520 


IF AS<"l"OR A$>"4"THEN 510 


<152> 


90 REM ******************************** 


<140> 


530 


FD(4-VAL(A$))=F 


<033> 


100 POKE 53281. 12:P0KE 53280,12 


<169> 


540 


F1=FD(0) :F2=FD( 1) :F3=FD(2 ) : F4=FD(3> 


<073> 


110 IF 1=0 THEN I=1:L0AD"MP SOFTCOLOR" ,8. 1 


<081> 


550 


GOSUB 780 : PRINT" <WHITE>PCBLUE , 3SPACE>A 




120 FA=49632:GR=49606:'i;E=49710:LA=49748 


<235> 




USDRUCK STARTEN 


<199> 


130 PRINT" CCLR, BLUE} ":Y=12: GOSUB 770 


<185> 


560 


GET A$:IF A$="t"THEN SYS GR: A$="" :GOTO 




140 INPUT"WELCHE GRAFIK LADEN " ;AS 


<155> 




340 


<114> 


150 IF LEN(A$)>12 THEN A$=LEFT$< AS, 12) 


<039> 


570 


IF A$="N"THEN 130 


<142> 


160 POKE LA+28.LEN<A$> 


<053> 


580 


IF A*<>"P"THEN 560 


<249> 


170 FOR 1=1 TO LEN<A$):POKE LA+28+I , ASC(MI 




590 


PRINT"CCLR>":X=3:Y=5:GOSUB 770 


<084> 


D4<AS,I,1)):NEXT 


<134> 


600 


PRINT" CBLACKJBITTE VOR DEM START CHECK 




180 PRINT "<:CLR}":Y=8:X=2: GOSUB 770 


<216> 




EN:CBLUE)" 


<086> 


1 90 PRINT" CWHITE}? C2SPACE , BLUE>UMSCHALTEN 




810 


PRINT SPC(126)"* 1ST DER DRUCKER ON LI 




GRAFIK <> MENUE":GOSUB 760 


<088> 




NE? 


<157> 


200 PRINT" CWHITE}*C2SPACE,BLUE}ANDEREC2SPA 




620 


PRINT SPC(46)"* 1ST DIE STARTPOSITION 




CE}FLAECHEC2SPACE}ANWAEHLEN" :X=1 : GOSUB 






AUF DEM" 


<021> 


760 


<174> 


630 


PRINT TAB(8) "PAPIER MARKIERT? - 1ST DA 




210 PRINT" CWHITE}+/-<SPACE,BLUE}BILDSCHIRM 






S" 


<250> 


FARBE UMSCHALTENCGREY 2}" 


<162> 


640 


PRINT TAB<8) "PAPIER 2UR STARTMARKIERUN 




220 SYS LA: OPEN i ,8, 15 i INPUTtU , I : CLOSE 1 


<120> 




G" 


<250> 


230 IF I<>0 THEN 130 


<005> 


650 


PRINT TAB(8)' - 2URUECKGEDREHT?" 


<233> 


240 X=5-Y=18:GOSUB 770: PRINT" CBLACK>BITTE 




660 


PRINT TAB(46>"* 1ST DIE DRUCKFARBE GEW 




TASTE DRUECKEN ! CGREY 2>" 


<236> 




ECHSELT? 


<238> 


250 POKE 198,0 -WAIT 198,1 


<222> 


670 


PRINT TAB(123)"CBLACK>ALLES FERTIG? BI 




260 FOR 1=0 TO 3:F(I)=49602+I:POKE F(I>,7+ 






TTE TASTE DRUECKEN!" 


<199> 


I : NEXT 


<152> 


680 


GET A$:IF A$=""THEN 680 


<207> 


270 FOR 1=0 TO 3:FD(I)=5:FM(I)=7+I:NEXT 


<222> 


690 


SYS GR 


<143> 


280 F1=FD(0> :F2=FD(1) :F3=FD(2) :F4=FD(3) 


<067> 


700 


OPEN 4,4:SYS 49152,4,32,F1,F2,F3,F4:CL 




290 F=0:SYS GR 


<184> 




OSE 4 


<126> 


300 1=0 


<235> 


710 


SYS TE: GOSUB 780 


<023> 


310 1=1+1 :GET A$:IF A$=""AND K50 THEN 310 


<141> 


720 


GET A$:IF A$="N"THEN 130 


<029> 


320 IF ASO"*"THEN 350 


<173> 


730 


IF A$o"t"THEN 720 


<109> 


330 FOR 1=0 TO 3:P0KE F< I > ,FM< I ) :NEXT 


<055> 


740 


A$="":GOTO 270 


<108> 


340 F=F+1:IF F>3 THEN F=0 


<162> 


750 


REM UP'E CURSOR POSITIONIEREN PP 


<219> 


350 IF A$="+"THEN FM(F)='(FM(F> + 1 )AND 15:P0 




760 


Y=Y+3 


<172> 


KE F(F) ,FM(F) 


<202> 


770 


POKE 211,X:POKE 214,Y:SYS 58732:RETURN 


<075> 


360 IF A$="-"THEN FM(F)=(FM(F>-1 )AND 15:P0 




780 


PRINT "CCLR, BLACK}" : X= 10 :Y=8: GOSUB 770 


<254> 


KE F(F).FM(F) 


<021> 


790 


PRINT"BITTE WAEHLEN: " :X=6 : GOSUB 760 


<150> 


370 IF PEEK(KF>>=0 THEN POKE F(F),FM(F):G 




800 


PRINT"CWHITE}tCBLUE,3SPACE}UMSCHALTEN 




OTO 390 


<099> 




ZUR GRAFIK" :GOSUB 760 


<164> 


380 IF PEEK(F(F>><>0 THEN POKE F(F),0 


<202> 


810 


PRINT" CWHITE}NCBLUE . 3SPACE}NEUE GRAFIK 




390 SYS FA 


<072> 




LADEN" 


<029> 


400 IF ASO"t"THEN 300 


<225> 


820 


GOSUB 760 .-RETURN 


<103> 


410 SYS TE 


<012> 


830 


************** END E ************* 


<222> 


420 PRINT TAB(81)"<:BLACK>DIE IN DER GRAFIK 










BLINKENDEN FLAECHEN" 


<175> 


6 64 


er 




430 PRINT TAB(44)"S0LLEN AUSGEDRUCKT WERDE 










N MIT:" 


<006> 








440 X=8:Y=4 


<093> 








450 IF Fl=5 THEN GOSUB 760:PRINT"CWHITE}4<: 










BLUE,2SPACE>GR0ESSTER FARBDICHTE" 


<174> 








460 IF F2=5 THEN GOSUB 760:PRINT"<:WHITE}3C 
BLUE,2SPACE>GR0SSER DICHTE" 


<120> 


Listing 7. Das Basic-Programm fur den Epson- 




470 IF F3=5 THEN GOSUB 760: PRINT" CWHITE52C 




Farbdruck geben Sie bitte mit dem Checksummer 


BLUE,2SPACE>GERINGER DICHTE" 


<170> 


(Seite 159) ein 
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Auf der Suche nach der Graf ik 



Egal, wo Ihre HiRes-Grafik liegt, »Hardmaker« fin- 
det sie. Multi-Color-Graf iken konnen auf Wunsch 
in Graustufen u mgerech net und auf dem MPS 801 
oder Epson-Drucker ausgedruckt werden. 

Der »Hardmaker« erlaubt es, HiRes-Grafiken aus fast 
alien Programmen aufs Papier zu bringen. Dazu ste- 
hen umfangreiche Routinen zur Verfugung, die dem 
Benutzer fast alle Arbeiten abnehmen. Nur das Papier 
miissen Sie noch von Hand einspannen. 

Eingabehinweise: 

Geben Sie den »Hardmaker« (Listing 1) fur den MPS 
801/803 bitte mit dem MSE ein, und speichem Sie ihn. Der 
Programmstart erfolgt durch RUN. 

Danach sehen Sie auf dem Bildschirm (meistens) ein wii- 
stes Durcheinander von Punkten. Das ist der Bereich von 
$2000 bis $4000 als Multicolor-Grafik dargestellt. Das 
konnte zum Beispiel Teil eines Computerspiels sein, das 
vorher im Computer war. Wenn Sie nun ein Programm auf 
Bilder untersuchen wollen, miiBten Sie im »Diskworkmo- 
dus« dieses Programm laden, die Grafik finden, eventuell 
speichern und ausdrucken. Dazu stehen Ihnen folgende 
Funktionen zur Verfugung. 

Speicherbereiche: 

Computergrafiken konnen nur an bestimmten Stellen im 
Speicher stehen, urn vom VIC ausgelesen werden zu kon- 
nen. Ein solcher Bereich ist der von $2000 bis $3FFF. Die- 
sen Bereich sehen Sie grundsatzlich auf dem Bildschirm; 
er wird vom Programm als Grafik-RAM benutzt. Wollen Sie 
den Inhalt eines anderen Bereiches sehen, muB er nach 
$2000 transportiert werden. Dazu dienen die Tasten (1) bis 
(6) und <-): 

(1) : $4000 bis $5FFF 

(2) : $6000 bis $7FFF 

(3) : $8000 bis $9FFF 

(4) : $A000 bis $BFFF (RAM unterm Basic) 

(5) : $C000 bis $DFFF ($D000 bis $DFFF; RAM unter I/O) 
(6) : $E000 bis $FFFF (RAM unterm Kernel) 

(— ): $0000 bis $1FFF, Dieser Bereich ist nur der Vollstandigkeit 
halber per Taste erreichbar. Benutzen konnen Sie ihn 
nicht, da dort Zeropage, Stack, Video-RAM und der Hard- 
maker selbst liegen! 

Wenn Sie auf eine dieser Tasten ohne (SHIFT), (CTRL) 
oder (CBM) driicken, wird der entsprechende Speicherbe- 
reich nach $2000 transportiert und ist damit auf dem Bild- 
schirm sichtbar. Driicken Sie jedoch (SHIFT) und eine die- 
ser Tasten, wird der entsprechende Bereich mit dem ab 
$2000 ODER-verkniipft. So konnen zwei Bilder zusam- 
mengemischt werden. Das Ergebnis liegt wieder ab $2000 
im Speicher. 
Folgende Kombinationen bewirken also: 



<-> bis (6) 

(SHIFT) 
(CBM) 

(SHIFT CBM) 
(CTRL) 

(CTRL SHIFT) 
Oder (CTRL CBM) 



& jeweiligen Bereich nach $2000 

kopieren 

& ODER-Verknupfen 

£ EX-OR-Verkniipfen 

£ UND-Verknupfen 

& Bereich mit dem ab $2000 ver- 

tauschen 

& $2000 bis $3FFF in entspre- 

chenden Bereich kopieren 



Wenn Sie eine Kombination mit (CTRL) driicken, wird der 
entsprechende Speicherplatz verandert! Auf diese Weise 
konnen Sie zum Beispiel den Inhalt von $2000 bis $3FFF 
zwischenspeichern, wenn Sie ihn danach weiterbearbei- 
ten wollen (Zum Beispiel bei schwierigen Korrekturen). 

Bilder »schneiden« 

Manchmal kommt es vor, daB nicht der gesamte Inhalt 
des Bildschirms zu einer Grafik gehort und man den Rest 
»wegschneiden« mochte. Zum Beispiel wollen Sie am rech- 
ten Rand etwas entfemen. Dazu driicken Sie die Taste (R). 
Der Rahmen wechselt seine Farbe und an der rechten Sei- 
te erscheint eine flackernde Linie, die Sie mit (CURSOR- 
links/-rechts) hin- und herbewegen konnen. 

Wenn Sie die Linie richtig positioniert haben, driicken 
Sie auf (SPACE); der Bereich rechts der Linie wird geloscht 
(odergefullt, wenn sie (SHIFT SPACE) driicken). Mochten 
Sie nichts loschen, dann driicken Sie (Q), und die flackern- 
de Linie ist verschwunden. 

(R) : rechts 

(L) : links 

(O) : oben 

(U) : unten 



Randfarbe: orange 
Randfarbe: blau 
Randfarbe: hellrot 
Randfarbe: griin 



Im Schneidemodus stehen folgende Funktionen zur Ver- 
fiigung: 

— Cursor nach oben/unten (nur (O), (U.)) 

— Cursor nach oben links/rechts (nur (L), (R)) 

— (SPACE), (SHIFT SPACE) 

— (Q) (wie quit) 

Bilder verschieben: 

Wenn die Grafik nicht genau oben links beginnt, muB sie 
verschoben werden. Eine Moglichkeit dazu ist das Scrol- 
len: 

Mit CBM-Taste + Cursor-Taste wird die Grafik um 
1 Byte nach links oder rechts verschoben. 

Die andere Moglichkeit sind die Tasten (A) und (E). Posi- 
tionieren Sie den Cursor irgendwo mitten auf dem Bild- 
schirm und driicken Sie (A): Die Grafik wird so verschoben, 
daB die Cursorposition nun den Anfang der Grafik bildet. 
Analog funktioniert hier die Taste (E): Die Cursorposition 
bildet jetzt das Ende der Grafik. Diese Funktionen ermogli- 
chen ein bequemes Positionieren einer Grafik, die irgend- 
wo im Speicher liegt. 

Farbe 

Mit den Funktionstasten kann die Farbe der Grafik gean- 
dert werden, wenn die Ausgangsbelegung (die sich fur 
SchwarzweiB-Fernseher ubrigens gut eignet) nicht gefallt: 



(F1)/(F2) A 
(F3)/(F4)i 
<F5)/(F6> = 
<F7)/<F8> = 



Farbe 1 HiRes/MuIti 
Farbe 2 HiRes/MuIti 
Farbe 3 Multi 
Farbe 4 Multi 



Die Funktionstaste blattert die Farben vorwarts, ge- 
SHIFTet blattert sie die Farben zuriick. Fur Multi und HiRes 
sind getrennte Farb-Speicher vorhanden. 

Folgende Tasten bewegen den Cursor: 

Cursortasten gewohnte Cursor-Bewegung 

(RETURN) Bewegt ihn in die erste Spalte der nachsten 

Zeile 
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(SHIFT 

CLEAR/HOME) loscht die Grafik 

(CLEAR/HOME) Cursor links oben 

<£) (Gegenteil von HOME: Cursor in letzte 

Spalte letzte Zeile) 
(SPACE) Cursor rechts + Cursorfeld loschen 

(SHIFT SPACE) Cursor rechts + Cursorfeld fuller) 

mit Farbe 3 
(CBM SPACE) Cursor rechts + Cursorfeld fullen 

mit Farbe 1 
(CTRL SPACE) Cursor rechts + Cursorfeld fullen 

mit Farbe 2 
(INST/DEL) genauso wie SPACE, bloB mit Cursor nach 

links (also kein echtes DEL!) 

Sonderfunktionen: 



<H> 



(M) 
(0 



(I) 



(X) 



schaltet HiRes-Modus ein; genauso wie Sie die Grafik nun 

sehen, wird sie von einem Matrixdrucker ausgegeben wer- 

den. 

schaltet Multicolor an. 

ist eine sehr praktische Sache, wenn man einen der unter 

»Hardcopy<. erwahnten Matixdrucker besitzt. Diese geben 

die Multicolor-Grafiken namlich so aus, daB die Farben 1 

und 2 als charakteristische Linien erscheinen. T verwan- 

delt diese Farben nun in Graustufen, die der Drucker aus- 

geben kann (siehe auch Textkasten), T funktioniert nur, 

wenn Multicolor eingeschaltet ist, und schaltet dann auf 

HiRes urn! 

invertiert die Grafik 

spiegelt die Grafik an der Vertikalen, und vertauscht die 

Farben 1 und 2, die ja ebenfalls gespiegelt werden. 

Spiegeln an der Horizontalen ist nicht notig, da man ja 

die Hardcopy einfach umdrehen kann! 

kehrt ins Basic zuriick. 



Funktionsweise des T-Befehls beim Hardmaker 

Im Multicolor-Modus stellen immer je 2 Bit eines Bytes 
die Information fur einen Bildpunkt zur Verfugung, so daB 
die Auflosung gegeniiber dem HiRes-Modus halbiert wird. 

Farbige Graf iken 
in Graustufen umsefzen 



Dafur hat man vier Farben statt zwei zur Auswahl, die durch 
die Bitkombinationen 00, 01, 10 und 11 reprasentiert wer- 
den. Ein normaler Matrixdrucker hat hingegen keinen 
Multicolor-Modus und stellt die Bitmuster genau so dar, wie 
sie im Grafik-ROM stehen. Das fuhrt bei Flachen, die aus 
den Farben 1 und 2 beziehungsweise den Bitmustern 01 
Oder 10 bestehen, zu den bekannten Streifenmustern (Bild 
1). Urn diese in Graustufen (Bild 2) umzuwandeln, geht der 
Computer folgendermaBen vor: Die vier Zwei-Bit-Kombi- 
nationen eines jeden der 8000 Byte des Grafik-RAMs wer- 
den nach den Bitkombinationen 01 und 10 untersucht. 

1. Fall: Zwei-Bit-Kombination = 00 Oder 11: nichts wird ver- 
andert. 

2. Fall: Zwei-Bit-Kombination = 01: In diesem Fall werden 
die zwei Bit invertiert, also durch 10 ersetzt, aber nur dann, 
wenn die zwei Bit Bestandteil des 1., 3., 5., etc. Bytes des 
Grafik-RAMs sind. Dadurch wird das Bitmuster in jeder 
zweiten Grafikzeile urn ein Bit nach links versetzt. Wenn die 
ersten 3 Byte also 



01 01 00 01 

01 01 11 01 lauten, so wird daraus 
01 01 01 01 



10 10 00 10 
01 01 11 01 
10 10 10 10 



und der Drucker gibt ein gleichmaBig graues Feld aus. 
3. Fall: Bit-Kombination = 10 
Hierbei wiirde aus den ersten 3 Byte 



Also ein etwas groberes Graufeld. Dieser Effekt wird da- 
durch erreicht, daB eine Zwei-Bit-Kombination nur dann in- 
vertiert wird, wenn sie entweder im 1., 3., 5., ... Byte die 1. 
oder 3. Zwei-Bit-Kombination Oder im 2., 4, 6., ... Byte die 
2. oder 4. Zwei-Bit-Kombination ist. 

Diskworkmodus: 

Wird mit (D) aktiviert. Die Grafik wird dann ausgeblendet 
und Sie haben den normalen Kernel-Editor vor sich. Fol- 
gende Befehle wurden hier implementiert. 



$ 
@ 



n 

n9 

? 



Directory 

Kommandokanal des Laufwerks abfragen 

initialisieren (analoges gilt fur SCRATCH, 

RENAME, FORMAT, etc.) 

gibt die aktuelle Gerateadresse aus (Voreingestellt 8) 

schaltet auf Gerateadresse 9 urn 

arbeitet wie der normale Basic-PRINT-Befehl, kann aber 

hier fur Berechnung genutzt werden 






"■^ '*-' \'i r^$&?£ 




10 10 00 10 

10 10 11 10 folgendes werden: 
10 10 10 10 



01 10 00 10 
10 01 11 01 
01 10 01 10 



Bild 1. Eine Hardcopy ohne Umrechnung... 

Q schaltet den Graf ikmodus wieder an 

X Ruckkehr zum Basic 

— Mit — kann aus dem Hardmaker heraus eine Grafik ge- 

spel'chert werden; zum Beispiel » — Bild 1 <RETURN)« 
speichert den Bereich $2000 bis S3FFF (genauer bis 
S3F40) auf Diskette unter dem Namen -Bild 1« ab. Das 
erzeugte Programmfile ist 32 Blocke lang. 

£ Urn ein Programm nach Grafiken zu durchsuchen, muB 

man es irgendwie in den Computer bekommen. Die eine 
Moglichkeit ist, das Programm zu laden, zu starten, mit 
Reset auszusteigen und dann den Hardmaster nachzula- 
den. Dies empfiehlt sich immer dann, wenn das Pro- 
gramm die Grafik erst erzeugt. AuBerdem liegt diese dann 
meist an der richtigen Stelle im Speicher, so da8 man 
nicht mehr zu verschieben braucht. 
Die andere Moglichkeit ist, erst den Hardmaker zu laden 
und dann mit dem £-Befehl das betreffende Programm 
(mit £ Name (RETURN)). Dies wird dann in den Bereich 
ab $2000 geladen, so daB ein Autostart entfallt. Diese 
Methode kann zu Problemen fuhren, wenn das 
betreffende File langer als 178 Blocke ist, weil dann in 
die Register der l/O-Bausteine geladen wird. Diese 
Methode ist dann notig, wenn ein Programm sich nicht 
durch Reset stoppen last. 

Hardcopy 

Dieser Programmteil ist zugleich der wichtigste wie auch 
der problematischste. Denn eine Hardcopy-Routine muB 
an die meisten Drucker speziell angepaBt werden. Die im 
»Hardmaker« integrierte Hardcopy-Routine spricht Drucker 
mit sieben Nadeln an, also den MPS 801, den MPS 803, 
und Epson-Drucker mit entsprechendem Interface. Fur 
Letztere hilft nur ausprobieren oder eine andere Hardcopy- 
Routine. Diese kann ab der Adresse $13A0 an den »Hard- 
maker« angehangt werden. Dazu kommen wir aber spater 
noch. 
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Aktiviert wird die Hardcopy mit der Taste P. Daraufhin 
farbt sich der Rahmen schwarz und der C 64 beginnt mit 
der Hardcopy. Danach wird in den Grafikmodus zuruckge- 
sprungen. 

»Hardmoker« 
fur Epson-Drucker 

Warum soil man sich mit einem Epson-Drucker auf die Gra- 
fikfahigkeiten eines MPS 801/803 beschranken? Die grafi- 
schen Moglichkeiten eines Epson-kompatiblen Druckers 
erlauben es auBerdem, Multicolor-Grafiken durch Zuord- 
nung von Graustufen auszugeben. Dadurch kann eine 
noch realistischere Wiedergabe in Graustufen (»T-Befehl«) 
qeboten werden. 
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Bild 2. ...und eine mit Umrechnung der Multi-Color-Daten. 

Fur die Ausgabe von HiRes-Grafiken wurde bei "Multi- 
print" darauf Wert gelegt, daB sowohl Bilder im HiRes- 
Modus als auch Grafiken im Multicolor-Modus gedruckt 
werden konnen. Um eine moglichst groBe Flexibilitat zu er- 
reichen, wurden Hardcopy-Routinen gewahlt, die sowohl 
Drucker iiber den seriellen lEC-Bus als auch uber eine 
Centronics-Schnittstelle bedienen konnen. 



An der Bedienung hat sich nichts geandert. Der Start des 
Druckerprogramms erfolgt durch Drucken des Taste (P). 
Dabei erfolgt der Ausdruck im HiRes-Modus, wenn die 
Bildschirm-Darstellung ebenfalls HiRes darstellt. Wurde 
zuvor mit Taste (M) Multicolor angewahlt, so wird eine Um- 
setzung der Bildschirm-Darstellung in Graustufen durch- 
gefiihrt. Dabei wird der Helligkeitseindruck des momentan 
angezeigten Bildes zugrundegelegt. Die Parameterwerte 
fur die Hardcopy-Routine ermittelt das Programm automa- 
tisch. Jeder der 16 moglichen Farben ist uber eine Tabelle 
der Wert (weiB), 1 (hellgrau), 2 (dunkelgrau) und 3 
(schwarz) zugeordnet. Aus diesem Grund empfiehlt es 
sich, das Bild auf einem monochromen Monitor Oder einem 
SchwarzweiB-Fernseherzu betrachten (Farbmonitor: Farb- 
intensitat zuruckdrehen). 
Hinweise zum Eintippen und zur Drucker-Anpassung 

Geben Sie das neue Druckprogramm (Listing 2) bitte mit 
dem MSE ein und speichern Sie es. Laden Sie dann den 
»Hardmaker«. Danach laden Sie das neue Druckprogramm 
mit LOAD »MULTIPRINT«,8,1. Jetzt mussen Sie noch die 
Zeiger fur den Programmbeginn und das neue Programm- 
Ende korrigieren. Dies erreichen Sie mit folgenden POKE- 
Befehlen im Direktmodus: 
POKE 43 , 1 : POKE 44 , 8 : POKE 45 , 30 : POKE 46 , 23 

In der abgedruckten Form arbeitet das Programm mit 
Druckern zusammen, die am seriellen Port des Commodo- 
re 64 angeschlossen und uberGerateadresse4, Sekundar- 
adresse 1 im Linearmodus betrieben werden. Die Gerate- 
adresse ist im Programm in der Speicherstelle 5866 
($16EA) abgelegt. Die Sekundaradresse steht in Speicher- 
stelle 5867 ($16EB). 

Wollen Sie dagegen einen Drucker mit Parailelschnitt- 
stelle direkt am User-Port betreiben, so geben Sie bitte 
»POKE 5410,0- ein. Dadurch wird der ebenfalls im Pro- 
gramm enthaltene Centronics-Druckertreiber aktiviert. 

Wenn Sie noch ein ubriges tun wollen, so sollten Sie die 
Voreinstellungen fur die Multicolor-Farben andern, damit 
Sie auch auf einem Farbmonitor eine Darstellung in Grau- 
werten erhalten. Sie mussen dazu lediglich zwei POKE- 
Befehle geben: 
POKE 2088,1: POKE 2100,252 

Jetzt konnen Sie die neue Version des Hardmaker spei- 
chern. (C. Kurts/M. Wilhelm/kn) 
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Super-Haitkopies ftir Epson- 
Drucker una Kompatible 



Eroffnen Sie sich ganz neue Wege, Grafiken zu 
Papier zu bringen. Unterschiedliche GroBen und 
unterschiedliche Punktdichten ermoglichen es, 
extrem kontrastreiche Grafiken zu drucken. 

Super-Print ist eine universelle Hardcopyroutine fur Hi- 
Res-Graf iken. Sie ist geschrieben fur Epson-Drucker 
und Kompatible sowie alle grafikfahigen Drucker, die 
sich iiber ESC-Sequenzen (CHR$(27)) ansteuern lassen. 
(Listing 1). 

Sie unterstiitzt alle Grafik-Optionen und bietet dariiber 
hinaus noch vier softwaremaBig erzeugte Dichten sowie 
Ausgabeformate mit sehr hoher Punktdichte (Bild 1, 2). In 
der Hardcopy ist keine eigene Centronics-Software inte- 
griert, sie muB, fails kein Interface vorhanden ist, vorgela- 
den werden. 

Das Menu 



1) bis 6) Druckerparameter 

Die Auswahl der Druckerparameter erfolgt mit den Zah- 
lentasten (1) bis (6) Oder den Tasten (CURSOR-aufwarts/- 
abwarts). Mit den Tasten (CURSOR-rechtsMinks) konnen 
die Parameter verandert werden. Zu den Druckereinstel- 
lungen aber spater. 
P) Print 

Mit der P-TastewirdderAusdruckgestartet. Das Drucken 
kann jederzeit durch Drucken einer beliebigen Taste unter- 
brochen werden. Der Drucker wird am Anfang und Ende 
des Druckvorgangs neu initialisiert. 
L) Load 

Mit (L) kommt man ins Lademenu. Gibt man nur (RE- 
TURN) ein, kommt man wieder ins Hauptmenii. Wird ein 
»$« als Filename eingegeben, so wird das Inhaltsverzeich- 
nis der Diskette gelistet. Nach »$« konnen die iiblichen Spe- 
zifikationen folgen (zum Beispiel $:Nam *). Gibt man nun ei- 
nen Filenamen ein, gefolgt von (RETURN), so erscheintdie 
Frage »Colorram too? (Y/N)«. 

Antwortet man nun mit (N), so wird das File direkt in den 
Bildspeicher geladen. 

Mit (Y) liegt die Ladeadresse $400 Byte tiefer, so daB Fi- 
les, die zusammen mit dem Farb-RAM gespeichert wur- 
den, ebenfalls korrekt geladen werden. 

Achtung!! Super-Print ladt alle Programm-Files, also 
auch Basic-Programme, in den Grafik-Speicher. Dann ist 
naturlich in der Regel nur Bit-Mull auf dem Bildschirm zu 
sehen. 
E) Grafik ein 

Durch Drucken der E-Taste wird die Grafik eingeschaltet. 
AnschlieBend kann mit (R) die Grafik invertiert werden. Sie 
wird dann auch revers gedruckt. 
X) Exit 

Mit (X) gelangt man ins Basic zuriick. Starlet man das 
Programm wieder mit RUN, so wird dabei der Grafikspei- 
cher neu initialisiert. Eine eventuell vorhandene Grafik wird 
also geloscht und muB neu geladen werden. 

Super-Print bietet eine Vielzahl von Druckmoglichkeiten, 
so daB der Umgang am Anfang ein wenig Obung bedarf. 



Zunachst aber die grundsatzlichen Moglichkeiten, der 
Schwierigkeit nach geordnet: 
6) Sec. Adress 

Die Grafik wird generellimDirektmodus zum Drucker ge- 
schickt. Dadieverschiedenen Interfaces fur den Direktmo- 
dus unterschiedlicher Sekundaradressen benutzen, las- 
sen sich diese Sekundaradressen zwischen und 80 frei 
einstellen. Bei den meisten Interfaces ist eine »1« einzuset- 
zen. 
5) Linefeed 

Es wird bestimmt, ob Super-Print nach dem »CR« (Car- 
riage Return = Wagenrucklauf) am Zeilenende auch noch 
einen Line-Feed (Zeilenvorschub) senden soil. 
4) Left Margin 

Hier kann der Abstand vom linken Rand angewahlt wer- 
den. Der eingestellte Rand leibt auch erhalten, wenn die 
Grafik iiber den rechten Blattrand hinausgeht. Der Drucker 
verschluckt dann den Rest der Zeile, druckt aber trotzdem 
die Zeilen richtig untereinander, so daB der druckbare Teil 
des Bildes richtig ausgegeben wird. 
1) Size 

Es gibt vier verschiedene Ausgabeformate: 
Large, Normal, Small und Micro. 




Bild 1 und 2. Ob pechschwarz oder hell, normal oder 
revers, es gibt nichts, was »Super-Print« nicht kann 
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In den Modi »Normal« und »Large« betragt der senkrech- 
te Punktabstand V» Zoll, also normaler Nadelabstand. 
Normal: In der GroBe »Normal« betragt damit die Bildhohe 
etwa 7 cm. Ein Bildpunkt im Druckbild entspricht dabei ei- 
nem Punkt auf dem Bildschirm. 

Large: Im »Large«-Format wird das Bild doppelt so groB 
ausgegeben, also einem Bildschirmpunkt entsprechen 
vier Punkte auf dem Papier mit normaler Dichte. Die Grafik 
wird dabei urn 90 Grad gedreht. 

Small: In der GroBe "Small* wird der senkrechte Punktab- 
stand auf % der normalen Hohe reduziert, also 2 /2i6 Zoll. 
Die Hohe eines Bildschirmausdruckes betragt dann noch 
zirka 4,5 cm. In diesem Modus uberlappen sich die Bild- 
punkte im Ausdruck schon ein wenig, es entstehen auch 
bei normaler Dichte vollschwarze Flachen. 
Micro: In der GroBe »Micro« wird der senkrechte Punkte- 
abstand weiter reduziert auf 2 /2i6 Zoll. Ein kompletter Bild- 
schirmausdruck ist jetzt noch zirka 2,5 cm hoch. In dieser 
Auflosung verlaufen die Einzelpunkte zu glatten Konturen. 
Dieser Modus ist ideal fur kleine Embleme etc. in Foto- 
Qualitat. 

2) Density 

Es stehen drei Dichten zur Verfiigung. 
Single: druckt das Bild in einfacher Dichte aus. 
Double: gibt jeden Punkt zweimal aus, und zwar so, daB 
zwischen dem ersten und zweiten Mai ein kleiner Versatz 
entsteht. In den GroBen »Large« und »Normal« ist dieser 
Versatz %i6 senkrecht, in den GroBen »Small« und »Micro« 
betragt er 2 kio Zoll waagerecht. 

Quadruple steht nur in den GroBen Normal und Large zur 
Verfiigung. Hier wird jeder Punkt viermal ausgegeben, und 
zwar zweimal eng nebeneinander und zweimal eng unter- 
einander. In »Quadruple«-Density werden durchgehende 
Flachen vollschwarzwiedergegeben.essindkeineLiicken 
mehr zwischen den Bildpunkten vorhanden. 

3) Image Mode 

Durch die Option »Size« wird die Hohe der Grafik ausge- 
wahlt. Dabei wird aber eine Grafik in »Micro« ebenso breit 
ausgegeben wie eine in »Normal«, das heiBt sie wird sehr 
breit im Verhaltnis zur Hohe. Um diesen Effekt auszuglei- 
chen, kann man mit dem Image Mode die Punktdichte des 
Druckers verandern. Es wird die Punktdichte in »Punkte pro 
Zeile« angegeben, dahinter in Klammern ein Stichwort. 

Die Image Modes werden iiber die Druckeroption 
»ESC"* "...« an den Drucker gesendet. Dabei stehen sie- 
ben Image Modes zur Verfiigung: 



0) Standard Dichte, 480 Punkte/Zeile 

1) Doppelte Dichte, 960 Punkte/Zeile 

2) Doppelte Dichte, Doppelte Geschwindigkeit, 
960 Punkte/Zeile 

3) Dreifache Dichte, 1920 Punkte/Zeile 

4) 640 Punkte/Zeile 

5) Plotter-Modus, 576 Punkte/Zeile 

6) 720 Punkte/Zeile 



Falls es sich nicht um einen Epson-Drucker Oder Kompa- 
tiblen handelt, konnen die Modi auch etwas anders belegt 
sein. Um Hardcopies im Bildschirmformat zu erhalten, sei- 
en folgende Kombinationen angeraten: 



Size 




Image Mode 


Micro 


und 


Quadruple 


Small 


und 


Double/Normal Speed 


Normal 


und 


Plotter 


Large 


und 


Plotter 




Bild 3. Im Plottmodus lassen sich auch Layouts im Verhalt- 
nis 1 : 1 Oder 2 : 1 zu Papier bringen 

mal mit dem Image Mode »Plotter« ausgegeben, so ist der 
Punktabstand senkrecht und waagerecht exakt gleich (Bild 
3). Dies ist besonders fur den Ausdruck von Platinenvorla- 
gen wichtig. 

Es sei noch darauf hingewiesen, daB in den Image Mo- 
des »Quadruple« und -double Density/double Speed« von 
zwei direkt nebeneinanderliegenden Punkten nur der linke 
gedruckt werden kann. 



Tips und Tricks 



Lademenii 

$ beziehungsweise $0:NAME als Filename ruft die 
Catalog-Funktion auf. Eingabe des Filenamen ladt ein File 
in den Grafik-Speicher (unabhangig von Anfangsadresse). 
Akzeptiert auch Grafik-Files mit vorangestelltem Color- 
RAM (Abfrage). 
Speichern der Anderungen 

Super-Print mit RUN starten und gewiinschte Parameter 
einstellen. AnschlieBend mit X ins Basic zuriick und wie ein 
normales Basic-File mit SAVE »NAME« speichern. Super- 
Print setzt alle Basic-Pointer so, daB der Save-Befehl das 
Programm vollstandig auf die Diskette zuriickschreibt. 
Grafik-Speicher nicht loschen 

Normalerweise wird beim Einsprung in Super-Print der 
Grafik-Speicher geloscht. Ist dies nicht erwiinscht, folgen- 
de Anderung durchfiihren: Vom Basic aus mit LIST den 
Programmanfang auslisten, 
1986 sys 2064+0 

statt der nun eine 3 einfiigen, also 
1986 sys 2064+3 

Nun bleibt der Grafik-Speicher auch beim Neustart er- 
halten. Natiirlich kann diese Anderung mitgespeichert wer- 



den. 



Druckeranpassung 



Alle anderen Kombinationen sind natiirlich auch mog- 
lich. Besondere Aufmerksamkeit erfordert auch der »Plot- 
ter«-Mode. Werden Grafiken in den GroBen Large und Nor- 



Nach dem Programmstart meldet sich die "Druckeranpas- 
sung" (Listing 2) mit der Aufforderung, eine beschreibbare 
Diskette mit »Super-Print« einzulegen. Es miissen noch 
mindestens 13 Blocks auf dieser Diskette frei sein. 

Zunachst wird nun die Diskette zum Schreiben vorberei- 
tet. Es werden die aktuellen Parameter von Super-Print 
ausgelesen. Nun wird die Steuersequenztabelle ausgege- 
ben. Dabei erscheint revers der zugehorige Name der 
Steuersequenz, entsprechend dem Super-Print-Menu. 

AnschlieBend wird der Escape-Code, in der Regel 27, 
ausgegeben, dann die Steuercodes, zum Beispiel 42 und 
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0. Falls nur zwei Byte Steuercode benotigt werden, zum 
Beispiel ESC+K, mu8 der dritte den Wert 255 erhalten. 

Falls der Drucker einige Auflosungen nicht kennt, sollte 
jeweils die nachstliegende Punktdichte eingestellt werden. 
Nach den sieben Grafikmodi wird noch »H6chste mogliche 
Dichte« abgefragt. Hier muB eine der vorher eingegebenen 
Sequenzen mit hoher Punktdichte noch einmal eingege- 
ben werden, also Quadruple oder, falls nicht vorhanden 
(zum Beispiel RX80), Double. Es soil auf jeden Fall die 
hochste Punktdichte eingestellt werden, die der Drucker 
beherrscht. 

Im AnschluB folgt die Steuersequenz, die vor und nach 
jedem Druckvorgang den Drucker neu i nitialisiert. Wird kei- 
ne Initialisierung gewunscht, kann auch dreimal eine 255 
eingegeben werden. Nachste Steuersequenz ist die Einstel- 
lung des linken Randes (zum Beispiel 27, 108). Super-Print 
schickt nach dieser Sequenz jeweils noch ein Byte an den 
Drucker, das den Wert des aktuellen Randabstandes hat. 
Letzte Sequenz ist die Einstellung des Zeilenvorschubes in 
n /2i6 Zqll-Schritten. Die Parameter lassen sich jeweils 
durch Uberschreiben andern. 

Wenn alle Sequenzen editiert sind, werden sie noch ein- 
mal zur Kontrolle ausgegeben. 

Im nachsten Teil lassen sich die ubrigen Parameter ein- 
stellen: 

— Codes fur CR und Linefeed 

— Gerateadresse des Druckers und 

— die Bildschirmfarben des Menus 

Die Anderungen werden direkt in das Programm uber- 
nommen, deshalb ist eine Einstellung in der Regel nur ein- 
mal erforderlich. 

Sollte das Programm einmal nicht funktionieren, so ist 
dies kein Grund zur Verzweiflung, es gibt viele mogliche 



Fehlerquellen, gerade beim Betrieb eines Druckers mit In- 
terface. 
Super-Print druckt nicht 

Haben Sie einen Drucker am User-Port angeschlossen? 
Dann wird auf jeden Fall noch ein Centronics-Programm 
benotigt, Super-Print simuliert keine Schnittstelle. Ein ein- 
faches Centronics-Programm im Bereich $c000 verwen- 
den, da hier keine Storungen zu erwarten sind. 

Benutzen Sie ein Interface am seriellen Bus? Jedes Inter- 
face benotigt seine speziellen Modifikationen. Meist wird 
zum Drucken von Grafiken eine besondere Geratenummer 
Oder Sekundaradresse benotigt (Linear-Kanal). 

Haben Sie ein Betriebssystem mit Centronics-Ausgabe 
im Computer (zum Beispiel Speeddos plus oder ahnli- 
ches)? Hier sollte es keine Probleme mit dem Interface ge- 
ben. Auch hier zuerst testen, ob der Drucker eine besonde- 
re Sekundaradresse benotigt. 

Wenn nichts geht, zunachst das Druckerhandbuch auf- 
schlagen und das Programm »Druckeranpassung« laden. 
Stimmen die Steuersequenzen fur Grafik-Modi? Ist die Ge- 
ratenummer richtig? Super-Print ist eingestellt fur Epson 
FX80 oder Panasonic-Drucker. Andere Drucker brauchen 
eventuell andere Steuersequenzen. 

Nun wieder Super-Print laden und verschiedene Image- 
Modes testen. Eventuell nochmals die Sekundaradresse 
andern. 
Und wenn nur Unsinn gedruckt wird? 

Dann liegt der Verdacht nahe, daB die Steuersequenzen 
falsch sind und der Drucker gar nicht in den Grafik-Modus 
gebracht wird. Wenn allerdings in der Grafik nur einzelne 
Bits vertauscht sind, kann es sein, daB ein (Soft- oder 
Hardware-) Interface eine unzulassige Code-Wandlung 
vornimmt. Ist eventuell durch Andern der Sekundaradres- 
se zu beheben (Linearkanal). (E. Fiedler/kn) 
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Ba 


aa 


bd 
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0c 
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0B 
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45 
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fa 
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B6 


10 


B5 


lc 
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10 


B5 


64 


c- 5 1 : 


a9 


60 


BS 


b9 


20 


d5 


f3 aS 


8f 


1BB1 : .-.3 


a3 a3 ff 2f 10 52 10 


3b 


Bca9 i 


Id 


bd 


16 


IB 


85 le 


60 


Ba 


0b 


Be59 : 


ba 


20 


b4 


f f 


aS 


b9 


20 96 


26 


1BB9 ■ 73 


10 00 00 af IB B3 B2 


14 
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IB 


69 


04 


AA 
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18 


4c 
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ff 
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BB 


BS 


90 


a0 
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09 
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77 
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fa 


f f 


a9 


49 
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83 


2d 
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0e69 : 


69 


20 


a5 


ff 


85 


6b 


a4 9B 


b3 
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aS 
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B6 
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20 


ed 
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ff 


69 
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dB 


2f 
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a3 


f f 


a4 
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9f 
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49 
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f0 


fb 


c9 


58 


f B 2e 


c9 


45 


66 


Be79 : 


28 


al 


69 


88 
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e9 


a6 6b 


2c 
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2d 


Bcdl : 
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35 


c9 


4c 
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c9 


50 


aB 


0e81 : 


20 


cd 


bd 


a9 


2B 


20 
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7b 
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B6 


Bcd9 : 


f0 


27 


c9 


9d 
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C9 


Id 


25 


0eB9 : 


2B 


a5 


ff 
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9B 


d0 
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+ 
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02 d0 


da 


1049 : 4c 


ff 4c 41 52 47 45 20 


85 


0cfl I 


B6 
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8d 
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C6 


20 
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f2 
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aB 
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0C 


4c 


c6 


Be 
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6c 
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fb 
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aB 


0d 


a9 


00 
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Bd 
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29 


BdBl : 


ff 


4c 


39 


B8 


4c e8 


Bd 


4c 


57 


Bebl : 


85 


cc 


20 


e4 


ff 


f0 


fb c9 


4c 


1061 : 55 
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17 
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0d 
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BB c9 
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22 c9 


f9 
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a7 
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BB 
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0c 


ad 


53 
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BB 
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Bf 


c9 


If 


30 
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7f 
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44 


Bdl9 : 


54 
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c9 


05 
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ep 
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3b 
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ad 
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0df 1 : 
0df 9 i 


Be 

a5 


a9 
lb 


2b 
f0 


a2 

4d 


11 20 
a2 49 


40 
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11 


lc 
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Listing 1. 


»Super-Print« bitte 




0>01 : 


20 


bd 


f f 


a6 


lb a9 


24 


dd 


20 


Bfbl i 


29 


20 


4c 


45 


46 


54 


20 4d 


c8 


mit dem WISE (Seite 159) eingeben 



IB REM »*«»»»»»»»»»*«»»»»*«»»*»»■*»■»»»»» 


<060> 


220 PRINT: PRINT 


<172> 


11 REM # 


* 


<060> 


230 OPEN 15,8, 15, "I" 


<029> 


12 REM * SUPER-PR I NT-ED I TOR FUER 


# 


<085> 


240 NN* = CHR*(21)+"SUPER-PRINT":REM NAME 




13 REM * 


« 


<062> 


FUER ZWISCHENFILE 


<039> 


14 REM » SUPER-PRINT V 3.B 


* 


<238> 


250 PRINT#15,"SB: "NN*:REM EV. ALTES ZWISCH 




15 REM » 


* 


<064> 


ENFILE 


<243> 


16 REM * 11.2. 1986 


# 


<089> 


255 : 


<231> 


17 REM * 


* 


<066> 


260 GOSUB 500001 REM LOESCHEN 


<169> 


18 REM * ECKEHARD FIEDLER 


# 


■; 1 1 a > 


270 IF MIOl THEN 60000 :REM ABBRUCH 


<022> 


19 REM » ADALBERTSTEINWEG 74 


• 


<237> 


290 




<012> 


20 REM * 5100 AACHEN 


» 


<249> 


291 




<013> 


21 REM » 0241/500303 


■» 


<134> 


292 


REM ALTE WERTE AUSLESEN 


<085> 


22 REM » 


» 


<071> 
<073> 
<000> 


293 
294 




<015> 
<016> 
<005> 


24 : 




300 OPEN 3,8,3, "SUPER-PRINT, P,R" 


25 : 




<001> 


310 GOSUB 50000: REM FEHLERMELDUNG HOLEN 


<018> 


90 DIM W<50):WM=49 




<018> 


311 PRINT TAB(5)M2* 


<196> 


100 PRINT CHRJM147) 




<129> 


312 IF M1O0 THEN 60000 


<060> 


110 PRINT TAB (5) "»*»* SUPER-PRINT 


EDITOR * 




318 : 


<040> 


»»»" 




<072> 


319 I 


<041> 


120 PRINT: PRINT: PRINT: PRINT: PRINT 




<133> 


320 FOR I»l TO 23 


<088> 


130 PRINT TAB(5) "BITTE DISKETTE EINLEGEN U 




325 GET #3, A*: IF STO0 THEN 60000: REM ABBRU 




ND" 




<176> 


CH 


<042> 


140 PRINT: PRINT 




<092> 


330 NEXT I 


<160> 


150 PRINT TAB(7)"SCHREIBSCHUTZ ENTFERNEN" 


<0B7> 


340 : 


<062> 


160 PRINT: PRINT 




<112> 


341 i 


<063> 


180 PRINT TAB (9) "TASTE DRUECKEN > 


<" CHR*( 




350 FOR 1-1 TO WM:REM ALTE WERTE EINLESEN 


<052> 


157) CHR*(157); 




<032> 


360 GET#3,Wf: IF STO0 THEN 60000: REM ABBR 




190 POKE 204,0 




<0B9> 


UCH 


<210> 


200 SET A*: IF A*=""THEN 200 




<105> 


370 W(I)=0:IF W*<>"" THEN W(I)-ASC(W») 


<151> 


201 : 




<177> 


3B0 NEXT I 


<210> 


202 : 




<178> 


390 CLOSE 3 


<163> 


203 : REM ZWISCHENFILE LDESCHEN 




<163> 


400 : 


<122> 


204 : 

205 : 




<1B0> 
<181> 


Listing 2. Druckera npassung zum Programm »Super-Print«. 


210 POKE 204,1: PRINT" " 




<243> 


Bitte mit dem Checksummer (Seite 159) eingeben. 





3tfai» 



SONDERHEFT 24 



TOOLS: DRUCKER 



C64 



401 
402 
403 
404 
407 
409 
410 

411 
412 
420 
430 

440 

441 

442 
445 
449 
450 
451 
452 
453 
454 
455 
456 
457 
458 
459 
460 
461 
462 
463 
464 
465 
466 
470 
480 
490 
500 
510 
S20 
530 

535 
540 
550 

555 
560 
570 

575 

576 
580 

581 
582 
583 
584 
585 
590 

591 
592 
593 
594 
595 
596 

597 
598 
599 
600 

610 
620 
625 
630 
640 
690 
691 
692 
693 
694 
700 



REM WERTE ED1TIEREN 



RESTORE: POKE 19B,0 

3 

SM=10«FOR EA-0 TO SM:REM SCHLEIFE DRUG 
KER-CODES < 



PRINT CHR*( 147): PRINT 

PRINT TAB(6)"BITTE STEUERSEQUENZEN FUE 

R": PRINT 

PRINT TAB (10) "DRUCKER EINQEBEN :":PRIN 

T 

PRINT TAB(2)"(FUER 2-BYTE-BEFEHLE 3. U 

ERT 255.')" 

PRINT: PRINT: PRINT 

PR I NT TAB ( 2 ) " STEUERBEFEHL : " ! PR I NT 

: 

READ O* 

DATA 480 PUNKTE/ZEILE (STANDARD) 

DATA 960 PUNKTE/ZEILE (DOUBLE) 

DATA 960 PUNKTE/ZEILE DOUBLE SPEED 

DATA 1920 PUNKTE/ZEILE (QUADRUPLE) 

DATA 640 PUNKTE/ZEILE 

DATA 512 PUNKTE/ZEILE (PLOTTER) 

DATA 720 PUNKTE/ZEILE 

DATA HOECHSTE MOEGLICHE DICHTE 

DATA DRUCKER INITIALISIEREN 

DATA LINKEN RAND EINSTELLEN 

DATA ZEILENVORSCHUB N/216 

PRINT TAB(2)CHR*(1B>"*»* "O*" »»»" 
PRINT: PRINT: PRINT 



A=4»EA+1 
B=4»EA+2 
C=4»EA+3 



PRINT TAB(26>W(A)sCHR*(143> 
INPUT "t2SPACE>l> ESCAPE-CODE <7SPACE>: 
"|W(A> 

PRINT TAB (26) W(B) I CHR* (145) 

INPUT "<2SPACE>2) ERSTER STEUERCODE : 

":W(B> 

PRINT TAB(26)W(C)iCHR*(145) 

INPUT "<2SPACE>3> ZWEITER STEUERCODE: 

";W(C) 



NEXT EAiREM SCHLEIFE DRUCKER-CODES 

> 



REM DRUCKER-TABELLE OK ? 



PRINT CHR* ( 147) : RESTORE: REM WERTE DARS 

TELLEN 

PRINT 

FOR 1=0 TO SM 

READ A* 

PRINT A*" :" 

PRINT TAB (24) ; CHR* ( 18) ; W (4»I+1 ) ; W (4*1+ 

2);W(4*I+3) 

NEXT I 

PRINT CHR* (19); 

PRINT TAB(4)"STEUERC0DES OK 7 [J/N3 > 

< "CHR* ( 157) CHR* ( 157) ; 

POKE 204,0 

GET A*: IF A*=""THEN 620 

POKE 204,1 

IF A*- "N" THEN 400 

IF A*<>"J"AND A*<>"Y"THEN 610 



REM REST EINSTELLEN 



PRINT CHR* (147) 



<123> 
<198> 
<125> 
<126> 
<049> 
<131> 

<053> 
<133> 
<134> 
<157> 

<127> 

<062> 

<047> 
<057> 
<159> 
<171> 
<158> 
<189> 
<216> 
<127> 
<029> 
<246> 
<154> 
<224> 
<018> 
<092> 
<078> 
<007> 
<1B4> 
<0B8> 
<079> 
<187> 
<188> 
<071> 
<087> 
<103> 
<222> 
<232> 
<002> 

<070> 
<003> 
<024> 

<151> 
<023> 
<046> 

<081> 
<043> 
<044> 

<180> 
<049> 
<050> 
<103> 
<052> 
<053> 

<236> 
<185> 
<060> 
<245> 
<192> 
<236> 

<041> 
<173> 
<066> 
<196> 

<177> 
<001> 
<017> 
<144> 
<190> 
<129> 
<158> 
<159> 
<152> 
<161> 
<162> 
<221> 



705 PRINT: PRINT 

710 PRINT TAB(5)"*»»* SONSTIGE PARAMETER * 
»«*" 

715 PRINT: PRINT: PRINT 

716 P0=45 

718 : 

719 : 

720 PRINT TAB(25) ; W (P0) jCHR* ( 145) 

730 INPUT "<2SPACE>CARRIAGE RETURN £6SPACE > 

: ";W(P0) 
735 PRINT 

740 PRINT TAB(25);W(P0+1):CHR*(145> 
750 INPUT "C2SPACE>LINEFEED CHARACTER {3SPA 

CE>: ";W(P0+1> 
755 PRINT 

760 PRINT TAB(25):W(P0+2);CHR*(145> 
770 INPUT "<2SPACE>PRINTER-GERAETENUMMER:" 

;W(P0+2) 
775 PRINT 

780 PRINT TAB(25) J W(P0+3) ; CHR* ( 145) 
790 INPUT "<2SPACE}HINTERGRUND-FARBEC4SPAC 

E>:";W(P0+3) 
795 PRINT 

800 PRINT TAB(25):W(P0+4);CHR*(145) 
810 INPUT " C2SPACE>TEXT-FARBE<USPACE>:";W 

(P0+4) 
812 PRINT:PRINT 

815 : 

816 : 

B17 s REM PARAMETER OK? 
81B> : 

819 s 

820 PRINT " <2SPACE>PARAMETER OK ? CJ/N/t] 
> < "CHR* (157) CHR* (157) I 

82S : 

830 POKE 204,0 

840 GET A*: IF A*=""THEN 840 

B50 POKE 204,1 

855 : 

860 IF A*="N"THEN 700 

865 IF A*="t"THEN 400 

870 IF A*<>"J"AND A*<>"Y"THEN 830 

875 

876 

877 

878 

879 

880 PRINT CHR* (147) 

885 PRINT: PRINT: PRINT: PRINT 

890 PRINT TAB(5) "ABSPEICHERN ? CJ/N3 > <"C 

HR*(157)CHR*(157>5 
895 : 

900 POKE 204,0 
910 GET A*: IF A*-""THEN 910 
920 POKE 204,1 
925 : 

930 IF A*="N"THEN END 
940 IF A*<>"J"AND A*<>"Y"THEN 900 

951 : 

952 J 

953 : REM SUPER-PRINT-FILE AENDERN 

954 : 

955 : 

1000 PRINT CHR* (147) 

1005 PRINT: PRINT: PR INT: PRINT 

1010 PRINT TAB (10) "WORKING. .. "CHR* (191) CHR 

*(157) ; 
1020 POKE 204,0 

1031 : 

1032 .- REM FILES OEFFNEN 

1033 : 

1100 PRINT#15,"I- 

1110 OPEN 3,8,3, "SUPER-PRINT, P,R":REM LESE 

FILE 
1115 NM* - NN*+",P,W" 

1120 OPEN 4,8,4,NM*:REM SCHREIBFILE 
1130 FOR 1=1 TO 23: REM ERSTEN 23 BYTES UEB 

ERNEHMEN 
1135 GET#3,A*:IF A*=""THEN A*=CHR*(0) 
1140 IF STO0 THEN 60000 :REM ABBRUCH 
1150 PRINT#4,A*; 

1160 NEXT I 

1161 I 

1162 : REM WERTE EINFUEGEN 

1163 : 

1170 FOR 1=1 TO WM:REM ALTE WERTE IGNORIER 
EN 



REM ABSPEICHERN ? 



<149> 

<219> 
<076> 
<144> 
<186> 
<1B7> 
<036> 

<244> 
<073> 
<047> 

<078> 
<093> 
<099> 

<189> 
<115> 
<153> 

<176> 
<135> 
<209> 

<067> 
<002> 
<029> 
<030> 
<205> 
<032> 
<033> 

<023> 
<039> 
<223> 
<177> 
<115> 
<069> 
<178> 
<179> 
<153> 
<089> 
<090> 
<037> 
<092> 
<093> 
<147> 
<174> 

<065> 
<109> 
<037> 
<086> 
<1B5> 
<139> 
<154> 
<183> 
<165> 
<166> 
<005> 
<16B> 
<169> 
<011> 
<038> 

<171> 

<157> 
<247> 
<147> 
<249> 
<101> 

<174> 
<042> 
<144> 

<216> 
<212> 
<100> 
<025> 
<22B> 
<121> 
<026> 
<123> 

<036> 
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1175 BET»3,A*sIF BTOfl THEN 60000: REM ABBR 




1300 POKE 204, Is PRINT" " 


<063> 


UCH 


<130> 


1310 PRINT:PRINT 


<248> 


11B0 NEXT I 


<248> 


1315 PRINT TAB<5)M2*,M3sREM FEHLERMELDUNG 




1181 : 


<141> 


? 


<22B> 


1182 : REM NEUE WERTE EINFUEBEN 


<042> 


1317 : 


<023> 


1183 E 


<143> 


1318 : 


<024> 


1190 FOR 1 = 1 TO WM 


<112> 


1320 PRINT#15,"S0:"NN*:REM ZWISCHENFILE LO 




1195 PRINT#4,CHR*<W<I)>I 


<127> 


ESCHEN 


<049> 


1196 IF STO0 THEN 60000: REM ABBRUCH 


<156> 


1330 GOSUB 5000B 


<072> 


1200 NEXT I 


<012> 


1335 PRINT#15,"I":REM FLOPPY INITIALISIERE 




1201 : 


<161> 


N 


<015> 


1202 : REM REST UEBERNEHMEN 


<110> 


1337 : 


<043> 


1203 1 


<163> 


1340 IF Ml-1 THEN PRINT TAB (5) "OK" : GOTO 14 




1210 J»0:FOR 1-0 TO liREM ENDLOSSCHLEIFE 


<169> 


00 


<012> 


1215 : 


<175> 


1350 PRINT TAB (5) M2* 


<219> 


1220 GET #3, A* 


<133> 


1400 CLOSE 15: REM ENDE 


<151> 


1221 : 


<181> 
<169> 
<131> 


1500 END 

«nnnn ^ nr~ m . __■»_■ ■■■ . 


<232> 


1225 IF A*-" "THEN A*-CHR*<0) 

1230 IF STO0 THEN J=1:REM FILE-ENDE ?? 


49000 : REF1 


<051> 




1235 I 


<195> 


49001 : 


<208> 


1240 PRINT#4,A*;:REM WERT SCHREIBEN 


<033> 


49002 : 


<209> 


1245 I=J« NEXT I 


<206> 


49003 : REM FEHLERMELDUNG VON FLOPPY LESE 




1246 : 


<206> 


N 


<249> 


1247 GOSUB 50000: IF M1O0 THEN 60000 


<044> 


49004 : 


<211> 


1250 CLOSE 4: CLOSE 3 


<144> 


49005 : 


<212> 


123S > 


<215> 


50000 INPUT«15,M1,M2»,M3,M4 : RETURN 


<066> 


1256 : 


<216> 




<145> 


1257 : REM ALTES FILE ERSETZEN 


<172> 




1258 c 


<218> 


59001 : 


<046> 


1259 : 


<219> 


59002 : 


<047> 


1260 PRINT#15,"I" 


<005> 


59003 : REM ABBRUCH BEI DISKETTENFEHLER 


<153> 


1270 PR I NT« 1 5, "S0: SUPER-PR I NT": REM ALTES L 




59004 : 


<049> 


OESCHEN 


<092> 


59005 : 


<050> 


1275 PRINT#15,"I" 


<020> 


60000 PR I NT : PR I NT " D I SKETTENFEHLER ! ! " : PR I N 




1280 PRINT#15,"C0:SUPER-PRINT="NN*:REM NEL 




T 


<128> 


ES AUF ALTEN PLATZ 


<116> 


60010 GOSUB 50000: PRINT M2* 


<192> 


1290 GOSUB 50000 


<032> 


60020 CLOSE 3: CLOSE 4: CLOSE 15iEND 


<244> 


1295 PRINT#15,"I" 


<042> 






1297 t 


<003> 






129B : 


<004> 


Listing 2. Druckeranpassung zu »Super-Print« (SchluB) 



■* 



«<r~ 






I I 

I I 
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Hi-Eddi Druckerroutinen 



Vom Star NL-10 bis zum SP 700 VC — Hier finden 
Sie Druckroutinen fur die gangigsten Drucker. Hi- 
Eddi beinhaltet in seiner Grundversion keinen 
Druckertreiber fur die MPS-Drucker. Hier die Rou- 
tinen fur MPS 801/802/803 und Kompatible. 

Hi-Eddi fur MPS 802 und Kompatible 

Die Druckerroutine fiir den MPS 802 (Listing 1) hat diesel- 
ben Eigenschaften wie die von Hans Haberl geschriebene 
Routine fur Epson-Drucker. DaherkannaufeineFunktions- 
beschreibung verzichtet werden. Ich hoffe, daB der Aus- 
druckvon Hi-Eddi-Grafikbildern mitdiesem Programm auf 
alien Versionen des Commodore 1526/MPS 802-Druckers 
funktioniert. Bei meiner Ausfuhrung (REV. 07C) konnte ich 
bis jetzt keine Fehler feststellen. (Franz llletschko/sk) 

Hi-Eddi fur MPS 801/803 und Kompatible 

Eine Losung fur den Commodore MPS 801/803 schickte 
uns Florian Kulzer (Listing 2). Auch hier braucht am Hi-Eddi 
selbst nichts verandert zu werden. Die Hardcopy wird mit 
den Tasten »Commodore« und »P« gestartet. 

Allerdings ist mit diesem Programm das Nebeneinander- 
drucken zweier Bilder nicht moglich. Ausgegeben wird im- 
mer eine Hardcopy des aktuellen Bildschirms. Daher kon- 
nen die Fragen nach Nummer und Format der Hardcopy 
beliebig beantwortet werden. (Florian Kulzer/sk) 

Hi-Eddi auf Star SG- 10 



Betrifft: Anpassung der Original-Druckerroutine (64'er Aus- 
gabe 1/85, Seite 66) Hi-Print von Hi-Eddi an den SG-10 von 
Star. 

Folgende Anderungen mussen an der Druckerroutine 
vorgenommen werden: 
460 DATA 4: REM Direktkanal 

550 DATA 27,51,15,255,255: REM Zeilenabstand 15 /i 4 4 Inch 
580 DATA 27,103,4,255,255: REM Grafikmodus 4 

In dieser Betriebsart werden Kreise in Y-Richtung etwas 
gedehnt. Wer auf den Ausdruck zweier Bilder nebeneinan- 
der und auf GroBbilder verzichtet, sollte folgende Werteein- 
geben. (Zeile 460 muB naturlich trotzdem geandert wer- 
den): 

550 DATA 27,51,16,255,255: REM Zeilenabstand 16 /i 4 4 Inch 
580 DATA 27,103,5,255,255: REM Grafikmodus 5 

Dafur werden Kreise auch als Kreise dargestellt. Wenn 
man breiteres Papier als A4 verwendet, kann man auch 
zwei Bilder nebeneinander und GroBbilder drucken. Der 
Drucker muB auf Star-Betriebsart eingestellt sein (siehe 
Handbuch). Der User-Port kann weiterhin als Parallel- 
schnittstelle verwendet werden. (Kurt Reiter/sk) 

Hi-Eddi fur Star Nlr 10 



Die Assemblerroutine »Hi-Print (NL-10)« (Listing 3) wird 
vom Hauptprogramm Hi-Eddi durch die Tastenkombination 
<CTRL+P> nachgeladen. Am Hauptprogramm Hi-Eddi 
sind keine Anderungen erforderlich. Der Druckertreiber ist 
von der Bedienung und von der Funktion her absolut iden- 



tisch mit dem Programm Hi-Print (FX-80) aus Ausgabe 1/85 
beziehungsweise Sonderheft 6/85. Allerdings besteht kei- 
ne Moglichkeit, den Drucker iiber eine Centronics- 
Schnittstelle am User-Port zu betreiben. Dafur wird mit ei- 
ner Punktdichte von 1920 Dots/Zeile (beziehungsweise 960 
Dots/Zeile fiir GroBbilder) gedruckt. Dadurch ist der Aus- 
druck proportional zum Bildschirm. Ein Kreis auf dem Bild- 
schirmentsprichtexakteinem Kreis auf dem Papier (Bild 1). 
Ist der Ausdruck abgeschlossen, wird das Programm »Hi- 
Exe« in Overlay-Technik nachgeladen. 

Hi-Eddi fur Seikosha GP 700 VC 



Auch diese Hi-Print-Version (Listing 4) arbeitet in Overlay- 
Technik. Folglich ist eine Anderung des Hauptprogramms 
Hi-Eddi nicht erforderlich. Da der Drucker GP 700 VC eine 
Farboption hat, wurde eine Routine integriert, die automa- 
tisch erkennt, ob Hi-Eddi im SchwarzweiB-oder Farbmodus 
betrieben wird. 

Im Farbmodus ist folgendes zu beachten. Da der C 64 
»16«, der Drucker aber nur »8« Farben darstellen kann, wur- 
den die Farbnummern 8 bis 15 denjenigen von bis 7 
gleichgesetzt. Daher ist darauf zu achten, daB beim Kon- 
struieren im Farbmodus entsprechende Farben (zum Bei- 
spiel Farbe 6 (Blau) und Farbe 14 (Hellblau)) nicht »neben- 
einander« vorkommen. 

Es lassen sich folgende Formate ausdrucken: 
klein — > 320 x 200 Punkte 
groB — > 640 x 400 Punkte 

AuBerdem besteht die Moglichkeit, zwei Bilder im Klein- 
modus nebeneinander auszudrucken (640 x 200 Punkte). 

(W. Wirtz/St. Kirchhoff/sk) 

Hi-Eddi mit Itoh 8510 



Besitzern des Itoh 8510 bietet dieses Programm die Mog- 
lichkeit, von Hi-Eddi Hardcopys zu erzeugen (Bild 2). Da der 
Itoh 8510 ein verbreiteter und guter Drucker ist, wurden fiir 
ihn die im folgenden beschriebenen Programme erstellt. Er 
wird iiber die Centronics-Schnittstelle via User-Port am 
C64 angeschlossen. 

Zusatzlich wurden einige Features eingebaut, die die 
Epson-Hardcopy-Routine nicht besitzt. So ware die Vorga- 
be von Leerspalten vom linken Rand aus (falls noch Platz 
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Bild 1. Hardcopy mit dem Star NL-10. Ein Kreis auf dem 
Bildschirm entspricht exaki einem Kreis auf dem Papier. 
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ist) eine nutzliche Sache. Urn zwei Grafiken in der Horizon- 
talen aneinander zu setzen, wurde dazu die voile Bild- 
schirmbreite in 40 Spalten zu je 8 (40 x 8 = 320) Punkten 
(wie im Textmodus) organisiert. Um jetzt zwei Grafiken ne- 
beneinander zu plazieren, kann dazu die Startspalte (wird 
mitgedruckt) der linksstehenden Grafik (Grafik Nr. 1) und 
die Endspalte (wird nicht mitgedruckt) der rechtsstehenden 
Grafik (Grafik Nr. 2) vorgewahlt werden. 

Die Ausdruckbreite wird dazu in drei Sektoren von links 
nach rechts aufgeteilt. 

0. Sektor: Abstand (SPC) in Punkten vom linken Papier- 
rand. 

1. Sektor: Grafik Nr. 1 (Bild-Nr. ; Startspalte) 
Bild-Nr. = = > kein Bild, Startspalte = 40 
Bild wird rechtsbiindig gedruckt 

< = Startspalte > = 39 

Startspalte = = > voile Hardcopy von Grafik Nr. 1 

2. Sektor: Grafik Nr. 2 (Bild-Nr. ; Endspalte) 
Bild-Nr. = = > kein Bild, Endspalte = 
Bild wird linksbiindig gedruckt 

1 < = Endspalte < = 40 

Endspalte = 40 = > voile Hardcopy von Grafik Nr. 2 

Insgesamt kann folgende Formel fur die Aufteilung der 
drei Sektoren angegeben werden: 

SPC + (40— Startspalte)* 8 + Endspalte - 8 < =640 

Im Steuerprogramm werden nacheinander die Bild-Nr. 
von Sektor 1, dann (falls Bild-Nr. <> 0) die Startspalte von 
Grafik-Nr. 1, dann die Bild-Nr. von Sektor 2 und (falls Bild-Nr. 
<> 0) die Endspalte von Grafik-Nr. 2, und schlieBlich die 
Anzahl der Leerspalten von Grafik-Nr. 1 abgefragt. 

Die Maximalwerte werden stets durch das Steuerpro- 
gramm vorgegeben, so daB in vielen Fallen ein einfaches 
RETURN geniigt. 

Um die Druckerroutine »HI-P(ltoh8510)« (Listing 5) fur 
den Itoh 8510 in das Steuerprogramm Hi-Eddi einzubinden, 
muBte dieses auf die Bedurf nisse der Druckerroutine ange- 
paBt werden und heiBt nun »HI-E(ltoh8510)«. 

Dazu wurden (aus Speicherplatzgrunden) alle Zeilen 
neu numeriert und die Textausgabepassagen verkurzt. In 
den Programmzeilen 24 und folgende befindet sich das 
Drucksteuerprogramm. 

Es wird hierbei dringend davor gewarnt, das neue Steu- 
erprogramm Hl-E(ltoh8510) zu erweitern oder zu andern, 
da sonst das Steuerprogramm (inklusive Variablen) nicht 
mehr in den verfiigbaren Basic-Speicherplatz paBt. Dies 
gilt auch fur den eingebauten Parametercheck, da in der 
Druckroutine selber keine Plausibilitatsprufung mehr vor- 
genommen wird. 

Fur die Initialisierung des Druckers und die Ausgabe der 
Hardcopy sollte sich der Drucker im SELECT-Modus befin- 
den, da sonst das Programm hangenbleibt (Acknowledge- 
Signal wird erwartet). 

Falls aus irgendeinem Grunde (Drucker beziehungswei- 
se Kabel defekt, falsch oder gar nicht angeschlossen) die- 
ser Fall eintritt, kann mit RUN/STOP-RESTORE die Druck- 
routine beendet werden. Hi-Eddi kann dann wieder mit 
RUN gestartet werden. (Das RUN ist notwendig, um Hl- 
EXE nachzuladen, da aus Speicherplatzgrunden nach der 
Anwahl des Drucksteuerprogramms immer die Druckrouti- 
ne iiber HI-EXE nachgeladen wird.) 

Der Drucker sollte mittels der DIP-Schalter auf CR = CR 
und 8-Bit-DATA eingestellt sein. Da am Anfang kein Zeilen- 
vorschub ausgegeben wird, sollte man dafiir sorgen, daB 
der Druckkopf sich auf einer freien Zeile befindet. AuBer- 
dem sollte das Papier zentriert werden, da sich der Aus- 
druck iiber die voile Papierbreite erstrecken kann. 

Die Anpassung des Itoh 8510A an den Hi-Eddi besteht im 
wesentlichen aus zwei Schritten: 
1. HI-P(ltoh8510).L (Listing 6) abtippen und starten. Die- 




Bild 2. Selbst komplexe Schaltplane sind fiir die neuen 
Druckroutinen kein Problem 

ses ist ein Ladeprogramm, das die Druckroutine Hl- 
P(ltoh8510) auf Diskette ablegt. Es wird (nach erfolgrei- 
chem Test) zum Arbeiten mit Hi-Eddi nicht mehr benotigt. 

2. Hl-E(ltoh8510) (Listing 5.) abtippen und speichern. Es 
ist das angepaBte Steuerprogramm und ersetzt das alte Hi- 
Eddi. 

So, das war's eigentlich. Hi-Eddi mit Itoh 8510A ist nun 
lauffahig. Mir bleibt nur noch, viel Erfolg mit Hi-Eddi zu wiin- 
schen. (Frank Ziesche/sk) 

Hi-Eddi und Simons Basic 



Simons Basic bietet leider keine Moglichkeit, High- 
Resolution-Bilder auf Diskette zu speichern und zu laden. 
Dies ist jedoch Voraussetzung, um Bilder, die mit Simons 
Basic erstellt wurden, auch in Hi-Eddi und andere Program- 
me zu laden. 

Ich habe deshalb das Programm »Screensave« (Listing 
7) geschrieben, das die Simons-Basic-Befehle »SCRSV« 
und »SCRLD« um die Fahigkeit, Hires-Bilder zu laden und 
zu speichern, erweitert. Leider funktioniert das nicht fiir die 
Modul-Version, da direkt das Simons Basic modifiziert 
wird. Dafur wird kein Speicherplatz auBerhalb des Simons 
Basic gebraucht. AuBerdem ist die modifizierte Version 
speicherbar, nach ihrem Laden stehen die erweiterten Be- 
fehle sofort zur Verfugung, ohne ein weiteres Programm 
nachladen zu mussen. 

Hinweise zum Eintippen: 

1. Simons Basic starten 

2. »Screensave« eintippen, sicherheitshalber speichern 
und starten 

3. Nachdem alle DATA-Fehler beseitigt wurden, stehen die 
erweiterten Befehle »SCRSV« und »SCRLD« zur Verfu- 
gung: Die Syntax ist dieselbe wie bisher, mit der Sekundar- 
adresse wird jetzt der Bildschirm gewahlt: 
Sekundaradresse = 2: Low-Resolution-Bildschirm 
Sekundaradresse = 3: High-Resolution-Bildschirm 

Das Aufzeichnungsformat des Low-Resolution-Bild- 
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schirmes ist leider nicht kompatibel mit dem der alten Be- 

fehle. Das des High-Resolution-Bildschirmes ist dasselbe 

wie bei Hi-Eddi, Diashow und anderen Grafikprogrammen. 

Dazu mu6 das Bild aber unbedingt als PGM-File, also zum 

Beispiel mit: 

SCRSV1,8,3,"NAME,RW" 

gespeichert werden, da Hi-Eddi keine SEQ-Files laden 

kann. 

Zum Speichern des »neuen« Simons Basic dient das Pro- 
gramm »Saver« (Listing 8). Dieses Programm speichert 
nicht nur das komplette Simons Basic, das iibrigens auch 
noch andere Modifikationen, zum Beispiel die aus der 64'er 
Ausgabe 11/84, enthalten kann, sondern auch die Funk- 
tionstastenbelegung. Nach dem Laden der mit »Saver« 
erstellten Simons-Basic-Version stehen somit nicht nur die 
neuen Befehle, sondern auch die individuelle Funktionsta- 
stenbelegung sofort zur Verfugung. 

Hinweise zum Eintippen: 

1. Funktionstasten nach eigenen Wunschen belegen 

2. »Saver« eintippen, speichern, eine Diskette mit minde- 
stens 66 freien Blocks einlegen und Programm starten. 
Nun fragt der »Saver« nach dem Namen, unter dem er die 
neue Version ablegen soil. Diese neue Version ist urn einen 
Block langer als die alte (66 statt 65), da die Funktionsta- 
stenbelegung hinzugekommen ist. 

Tips zu Hi-Eddi 



Die Anleitung in den REM-Zeilen des Programms »HI- 
PRINT.DATA« ist zugegebenermaBen etwas durftig ausge- 
fallen, so daB eine ausfuhrliche Erklarung dringend notig 
ist: 

Wie schon in der Bedienungsanleitung erwahnt, be- 
schrankt sich die AnpaBbarkeit dieses Programms auf 
8-Nadel-Drucker mit »vernunftiger« Einzelnadelansteue- 
rung, wie zum Beispiel Drucker von Epson Oder Mannes- 
mann (im Gegensatz zum 1526/MPS 802). Mit dem Datum 
in Zeile 420 wird zwischen dem seriellen Bus (also 
Hardware-Interface) oder dem User-Port gewahlt. Im ersten 
Fall muB mit den Daten in Zeile 440 (Primaradresse) und 
460 (Sekundaradresse) das Interface auf Direktmodus ge- 
stellt werden. Hardware-Interfaces bieten in der Regel ver- 
schiedene Betriebsmodi (zum Beispiel Emulation eines 
Commodore-Druckers, spezielle List- oder Grafikmodi und 
eben den Direktmodus oder Linearmodus), die meist iiber 
die Sekundaradresse angewahlt werden. »HI-PRINT« 
braucht den Direktmodus, in dem sich das Interface wie ein 
einfaches Kabel verhalt und die Bytes vom Computer un- 
verandert an den Drucker libergibt. Fur das Wiesemann- 
Interface muB zum Beispiel die Sekundaradresse 1 einge- 
geben werden, fur das Gorlitz-lnterface 4 oder 12 (ohne be- 
ziehungsweise mit Auto-Linefeed). Beim AnschluB an den 
User-Port sind die Daten in Zeile 440 und 460 zwar nicht re- 
levant, man darf sie jedoch nicht weglassen, da sonst die 
nachfolgenden DATAs verschoben wiirden. 

Aus dem gleichen Grund durfen auch die Langen der fol- 
genden DATA-Zeilen nicht verandert werden, sie mussen 
nach Bedarf mit 255 aufgefullt werden. AuBerdemmuBjede 
dieser Zeilen mit mindestens einem 255 enden, da diese 
Zahl als Ende-Kennzeichen einer Sequenz dient. 

Die Zeile 530 legt die Sequenz fur ein Carriage-Return Li- 
nefeed fest, sie ist 13,255,255 fur Drucker mit Auto-Linefeed 
und 13,10,255 fur Drucker ohne Auto-Linefeed. 

Zeile 550 stellt den Drucker auf den fur Graf ik passenden 
Zeilenvorschub ein. Fur den Epson RX-80 ist dies zum Bei- 
spiel ESC »3« 23 oder in Zahlen 27,51,23 aufgefullt mit 255 
auf die erforderliche Lange. 



In Zeile 580 wird der Grafik-Modus (Bit-Image-Mode) fur 
640 Punkte/Zeile angesteuert. Beispiele: 

In Zeile 660 wird wieder der normale Zeilenabstand ein- 
gestellt (ESC »2«) und die -2 in Zeile 610 signalisiert fur den 
DATA-Lader das Ende der DATAs. 

Bei SchwarzweiB-Bildern, wie die der Diashow, Super- 
grafik oder naturlich des erweiterten Simons Basic geht's 
problemlos. Bei Grafikprogrammen, die im Multicolor- 
Modus arbeiten, treten zwei Schwierigkeiten auf: 

1. Da Hi-Eddi im High-Resolution-Modus arbeitet, sehen 
Multicolor-Bilder recht ungewohnlich aus. Dabei kommt es 
vor allem auch auf die Farborganisation des betreffenden 
Programms an: Die des Koalapainter ist so ehaotisch, daB 
dessen Bilder im »Hi-Eddi« fast unbrauchbar sind (ein und 
dieselbe Farbe erhalt verschiedene Multicolor-Codes). 
Paint-Magic-Bilder (siehe Sonderheft 23) sind dagegen so- 
fort »druckreif«. 

2. Fur Multicolor-Bilder gibt es kein einheitliches Format fur 
die Speicherung auf Diskette, so daB viele Bilder nicht di- 
rekt von »Hi-Eddi« geladen werden konnen. 

Laden von Bildern 



Fur den Koalapainter tritt die zweite Schwierigkeit nicht auf, 
seine Bilder lassen sich sofort laden. Den Filenamen gibt 
man dabei in der Form »?PIC...« ein, urn das Steuerzeichen 
am Anfang auszutricksen. Da jedoch Koala-Bilder langer 
sind als die vom »Hi-Eddi«, werden Farbinformationen nicht 
nur des geladenen, sondern noch eines weiteren Bildes 
uberschrieben. Nach dem Laden eines Koala-Bildes 
herrscht somit ein buntes Chaos im Computer, das erst 
durch Neu-Einfarben beseitigt werden muB. 

Etwas komplizierter wird's bei Paint-Magic, dessen Bil- 
der sich nicht direkt laden lassen, da sie in Form eines 
Basic-Laders abgespeichert werden. Man muB erst ein Bild 
mit »LOAD"..",8« laden, dann mit RUN starten, anschlie- 
Bend »Hi-Eddi« laden und in Betriebsart 1 starten. Die 1 ist 
notig, damit »Hi-Eddi« das im Speicher befindliche Bild 
nicht loscht. AuBerdem darf »Hi-Eddi« nicht im Farbbetrieb 
gestartet werden, da das Paint-Magic-Bild im Speicherbe- 
reich $4000-$6000 liegt, wo »Hi-Eddi« sonst keine Farbin- 
formationen ablegen wiirde. Nach dem Start ist das Bild in 
Speicher Nummer 7 zu finden. 

Ladt man iibrigens im SchwarzweiB-Betrieb ein Farbbild 
(36 Blocks), dann wird auch hier durch die Farbinformation 
ein Teil eines anderen Bildes uberschrieben, was sich 
durch »Gerumpel« in den ersten paar Zeilen dieses Bildes 
bemerkbar macht. 

Bilder in Basic verwenden 



Will man »Hi-Eddi«-Bilder in normalen Basic-Programmen 
(oder mit der Simons-Basic-Modulversion) laden, dann tut 
es das Listing »Pic-Lader« (Listing 9), das naturlich in eige- 
ne Programme eingebaut werden kann. Das Bild wird unter 
das Betriebssystem-ROM gelegt, der Farbspeicher ab 
$C000 (= 49152, wie bei Simons Basic). Damit wird kein 
Basic-Speicherplatz belegt. Allerdings durfen nur 
SchwarzweiB-Bilder (33 Blocks) geladen werden, bei Farb- 
bildern gibt's einen Absturz. 

Auch am Programm selbst sind mir noch vier Kleinigkei- 
ten aufgefallen: 

1. Bei einem STOP/RESTORE schreibt das Betriebssystem 
ein paar Bytes in den RAM-Bereich iiber $E000. Diese sind 
dann in einem der Bilder am unteren Rand als »Geriimpel« 
zu sehen. 

2. Beim Befehl »Paint« kann es bei extrem verwinkelten Fla- 
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chen vorkommen, daB Teile iibersehen werden (Grund da- 
fur ist der begrenzte Stack des 6510). Diese mussen eben 
extra aufgefiillt werden. 

3. Der Sequenzstring sollte nicht langer als zirka 40 Zei- 
chen werden, sonst konnte es bei LOAD oder SAVE zu ei- 
nem OUT OF MEMORY ERROR kommen. Sollte das pas- 
sieren, so muB Hi-Eddi mit GOTO 150 gestartet und der Se- 
quenzstring verkurzt werden. 

4. Bei gewaltigem »Herumwurgen« am Joystick kann es 
vorkommen, daB der Computer meint, es wiirde eine Taste 



gedruckt. Ergebnis ist dann eine Befehlsausfiihrung, die 
man gar nicht wollte. Allerdings passiert das auBerst selten, 
vielleicht liegt's auch nur an meinem mickrigen Joystick. 
Wenn ansonsten mal ein Befehl nicht das tut, was er sollte, 
dann liegt es meistens an der eingerasteten SHIFT-LOCK- 
Taste. Bei Befehlen, die die SHIFT-Taste nicht benutzen, 
fallt es gar nicht auf. Will man jedoch den Fore-Modus 
anwahlen und farbt statt dessen das ganze Bild ein, dann 
war's SHIFT-LOCK! 

(Hans Haberl/sk) 
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0«c0 : 
0ecB : 
0ed0 : 
0ed8 : 
0ee0 : 
0ee8 : 
0ef0 : 
0ef8 : 
0f00 : 
0(08 : 
0fl0 : 



40 06 
40 0b 
40 10 
40 15 
40 la 
00 00 
aB 00 
4B Bl 
e0 01 
80 02 
20 03 
C0 03 
10 20 

.10 C0 

50 54 
32 30 
34 3B 
43 36 
BB a9 



B0 07 
80 0c 
SB 11 
80 16 
80 lb 
28 00 
c8 00 
68 01 
08 02 
aB 02 
48 03 
e8 03 
40 80 
e0 40 
58 lb 
30 0d 
34 30 
34 30 
13 20 



C0 08 
C0 0d 
c0 12 
C0 17 
C0 lc 
50 00 
1 00 
90 01 
30 02 
d0 02 
70 03 
01 02 
20 40 
44 44 
43 33 
00 lb 
30 0d 
32 30 
d2 ff 



00 Ba 
B0 0f 
00 14 
00 19 
BB le 
78 00 
18 01 
1)8 01 
58 02 
f8 02 
98 03 
04 0B 
60 B0 
48 4c 
32 30 
43 36 
00 lb 
30 Bd 
a2 25 



25 
82 
df 
3d 
9a 
99 
f4 
a9 
dc 
b9 
6c 
f5 
a7 
49 
db 
42 
01 
f9 
bB 



Listing 4. Druckertreiber »Hi-Print« 
fur den Seikosha GP 700 VC. Bitte 
beachten Sie die Eingabehinweise 
auf Seite 159. 



1 IF A 2 THEN A=A+2: LOAD"HI-EXE" ,8, 1 

2 IF A=3 THEN 6 

3 IF A=4 THEN 25 

4 INPUT"B-ART";C:POKE 7B0,C:POKE 56,13:CLR 
:W*=" 123456": SYS 3328 

5 IF PEEK (8073) AND 64 THEN A=3: LOAD"MENUE" 
,8,1 

6 SYS 3337: A=PEEK (8064) : ON A+l GOSUB 7,10, 
12, 11, IB, 24, 11, 11, 19, 20, 12: GOTO 6 

7 OPEN 3,8,0, "*0":GET#3,C#,C* 

8 GET#3,C*,C*,L*,H*:IF C*=""THEN CLOSE 3:W 
AIT 198,1: RETURN 

9 PRINT 256«ASC(HS+CHR*(0))+ASC(L*+CHR*(0> 
);:SYS 3334: GOTO 8 

10 PRINT" <CLR,DOWN>SEQ.:": PRINT" <DOWN,2SPA 
CE>"W*S INPUT" {HOME, 3D0WN>" ; W*= IF LEN(W* 
)<2 THEN 10 

11 RETURN 

12 POKE 81 15,8: PRINT" {CLR, DOWN, RVSON>G{RVO 
FF}-BILD": IF PEEK (8073) -127 THEN PRINT" 
{RVSON>F{RVOFF}-BILD" 

13 PRINT" {RVSON>S{RVOFF>PRITE":PRINT"{RVSO 
N>2 <RVOFF>-SATZ": PRINT" {DOWN}-.;"; 

14 GET C*:IF C*< ;"G"AND C*<;>"F"AND C*0"S» 
AND C* . >"Z"THEN 14 

15 PRINT C*:POKE 780, ASC(C*) :H*=W*: INPUT" { 
DOWN>F-NAME"; W*:SYS 3331 : W*=H*:H*="" 

16 OPEN 1,B,15,H«: INPUT#1 , A,H*: PRINT A;H«: 
IF A>0 THEN WAIT 198,1 

17 CLOSE 1: RETURN 

18 POKE 63 1,34: POKE 198, 1 : H*=" " : I NPUT" {CLR 
, DOWN }".-H*: GOTO 16 



■-058> 
<207> 
',035> 

< 1 1 7 > 

<238> 

<059> 
<217> 

* 148> 

•156. 



•096 
<069; 



'. 152> 
•-208.: 
<093> 
<213> 

:003; 

<144> 
<210> 



19 
20 
21 



23 
24 



26 



27 



A=8075:GOTO 21 

A=8079 

D=PEEK (8074) : C=PEEK (A+D) : PRINT" {CLR, DOW 

N>F"2»D+1:PRINT"S-WEITE: "C, 

INPUT C:IF C<1 OR CM60 THEN 22 

POKE A+D.C: RETURN 

A=4:LOAD"HI-P(ITOH8510) ",8,1 

INPUT" {CLR, DOWNJSl:B-NR. (0=KB> " : C: POKE 

3-415, C AND 7: IF C=0 THEN D=40:GOTO 27 

INPUT"SSP. (<=39;0=VOLL) {2SPACE J0{3LEFT> 

";D:IF D;0 OR D>39 THEN 26 

POKE 3388,D:C=40+D: IF C>40 THEN C=4(o 

INPUT" {D0WNJS2:B-NR. (0=KB) •• ; D: POKE 3435 

,D AND 7: IF D=0 THEN SSI 

PRINT"ESP. (>0;< = -';C;"{LEFT>) ";C;: INPUT 

"{5LEFT!":D:IF D< 1 OR D>C THEN 29 

POKE 3451 ,D: C=640- (40-PEEK (3388) +D) »8 

PRINT" {DOWN;SPC(=.-0;< = ";C;" {LEFT}) {2SPA 

CEJ";C;: INPUT" {6LEFTV ; D: IF D<0 OR D>C 

THEN 31 

C=INT(D/256):P0KE 3383, C: INPUT" {DOWN J DR 

UCK{2SPACE)J{3LEFT>";C*: IF C*<>"J"THEN 

34 

POKE 3381, D-C*256: SYS 3328: INPUT" {DOWN> 
N0CHMAL{2SPACE;j<3LEFT>"jC*: IF C*="J"TH 
EN 25 
A=l:GOTO 1 



%059: 
<160> 

'. 165> 

<125.: 
<180> 
<215> 

<236> 

<222> 
<U9> 

<041> 

•. 191 > 
'.024 5 



<194> 



<106> 



<058:: 
<016> 



© wee- 
Listing 5. »HI-E(ltoh8510)«. Bitte beachten Sie die Eingabe- 
hinweise auf Seite 159. 



10 REM ###« PROGRAMM ZUR ERZEUGUNG ##### 
20 REM ## VON HI-P(ITOH8510) AUF DISK ## 
30 REM AUTOR: F.ZIESCHE' AM: 13. 2.85 *# 
40 RESTORE: PS=0: REM DATA'S UEBERPRUEFEN 
50 PRINT" {CLR, DOWN, SPACE>DATA-ZEILEN WERDE 

N UEBERPRUFT ■ " 
60 READ BY : IF BY < THEN 80 
70 PS = PS + BY : GOTO 60 
80 IF PS+BY <> THEN PRINT"FEHLER IN DATA 

-ZEILEN !":LIST 160- 
90 INPUT" {DOWN, SPACE>DISKETTE EINGELEGT{3S 

PACEJJA{4LEFT>";IN*:IF IN*<>"JA"THEN 90 
100 RESTORE : OPEN 3,8,3, "HI-P ( ITOH8510) .P 
,W" 

110 PRINT#3,CHR*(0);CHR*(13);:REM STARTADR 

ESSE 
120 READ BY : IF BY < THEN 140 
130 PRINT#3,CHR#(BY); : GOTO 120 
140 CLOSE 3 : PRINT" {DOWN, SPACE >PROGRAMM W 

URDE ERZEUGT ! " 
150 END 



< 190> 


160 


<124> 


170 


<068> 




<136> 


180 


<100> 


190 


<145> 




<016> 


200 


<036> 


210 


<159> 


220 


<061> 


230 


<115> 


240 


<233> 




<044> 


250 


<107> 


260 


<152> 





REM DATA-ZEILEN FUER HI-P( ITOHB510) <01B> 
DATA 165,1,72,169,55,133,1,173,87,13,3 
2,186,13,141,170,14,173,107,13,32 <217> 
DATA 186,13,141,223,14,169,0,141,164,1 
4, 141, 217, 14, 141, 174, 13, 32, 24B, 13 <145> 
DATA 32,212,13,169,27,32,111,14,169,70 
,32,111,14,169,0,160,0,32,47,14 <162> 
DATA 169,0,141,148,14,169,0,141,201,14 
,169,27,32,111,14,169,83,32,111 <055> 

DATA 14,169,0,160,0,32,47,14,169,0,240 
,16,32,135,14,32,241,14,238,148 <007> 
DATA 14,173,148,14,201,40,144,240,169, 
0,240,16,32,188, 14,32,241,14,238 <092> 
DATA 201,14,173,201,14,201,0,144,240,2 
4,173,164,14,105,64,141,164,-14,173 <187> 
DATA 170,14,105, 1,141,170,14,24,173,21 
7,14,105,64,141,217,14,173,223,14 <1B5> 
DATA 105,1,141,223,14,169,13,32,111,14 
,169,10,32,111,14,238,174,13,169 <197> 
DATA 0,201,25,176,3,76,42,13,104,133,1 
,96,162,7,221,149,31,240,4,202,208 <247> 
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1 REM»»*»»* SCREENSAVE *#»«»» <192> 
10 DATA 32,3,178,166,184,32,201,255,152,32 

,210,255,165,252,32,210,255,169 <217> 

20 DATA 210,133,248,162,32,36,250,48,2,162 

,4,36,250,48,12,177,253,32,0,178 <165> 
30 DATA 145,253,177,251,56,176,14,120,169, 

52,133,1,177,251,72,169,54,133 <104> 

40 DATA 1,88,104,32,0,178,145,251,200,203, 

29,230,252,230,254,202,208,22,240 <075> 
50 DATA 26,234,32,3, 178, 166, 184,32, 19B, 255 

,32,207,255,32,207,255,169,207 <176> 

60 DATA 208,180,234,169,195,36,144,240,183 

,32,204,255, 165, 1B4, 32, 195,255 <077> 



70 DATA 76,42,130,108,248,0,32,219,131,32, 
35, 129, 160,0, 132,251 , 132,253, 165 

80 DATA 185,106,106,133,250,48,8,169,216,1 
33,254,169,4,208,2,169,224,133 

90 DATA 252,169,255,133,249,96,234 

100 S=0:FDR 1=45455 TO 4560B:READ A:S=S+A: 
POKE I, A: NEXT I 

110 IF SO22096 THEN PRINT"FEHLER IN DATA 
S":END 

120 PRINT"DK" 



<107> 



<220> 
<215> 



<253> 



<061> 
<212> 



@ B4'er 

Listing 7. Screensave: Erweiterung fur Simons Basic. Bitte 
beachten Sie die Eingabehinweise auf Seite 159. 



1 REM»*»*»« SAVER ««*»#» 


<0B1> 


100 POKE 56,112:CLR 


<079> 


10 DATA 198,1,169,96,141,123,129,162,2,32, 




110 FOR 1=32605 TO 32767: READ A:S=S+A 


<000> 


201 ,255, 162,97, 160,0, 185, 159, 127 


<015> 


120 POKE I, A: NEXT I 


<034> 


20 DATA 32,210,255,200,202,208,246,169,0,1 




130 IF S021569 THEN PRINT"FEHLER IN DATAS 




33,253,169,128,133,254,162,64,160 


<045> 


":GOTO 200 


<034> 


30 DATA 0,177,253,32,210,255,200,208,248,2 




140 INPUT "NAME DER NEUEN VERSION" ; N* 


<254> 


30,254,202,208,243,185,77,198,32 


<00B> 


150 OPEN 15,8,15:0PEN 2,8,2,N*+" ,P,W" 


<075> 


40 DATA 210,255,200,208,247,32,204,255,230 




160 GOSUB 170: SYS 32605 .-CLOSE 2:G0SUB 170: 




,1,96,1,8,13,8,191,7,158,40,50 


<137> 


CLOSE 15: GOTO 200 


<197> 


50 DATA 48,54,51,41,0,0,0,120,169,96,133,2 




170 INPUT#15,A,B*,C,D:PRINT A;B*;C;D 


<103> 


52,169,8,133,253,169,0,133,254 


<045> 


180 IF A>0 THEN CLOSE 2: CLOSE 15: GOTO 200 


<156> 


60 DATA 169,128,133,255,162,64,32,69,8,32, 




190 RETURN 


<24B> 


10,128,169,169,141,123,129,169 


<251> 


200 POKE 56,128:CLR:END 


<019> 


70 DATA 96,133,252,169,72,133,253,169,77,1 








33,254,169,198,133,255,162,1,32 


<251> 


© 64'er 




80 DATA 69,8,76,123,129,160,0,177,252,145, 
254 , 1 36 , 208 , 249 , 230 , 253 , 230 , 255 


<009> 


Listing 8. So kann Simons Basic erweitert werden. Bitte 


90 DATA 202,208,242,96,0,0,0,0,0,0,0,0,0,0 


<207> 


achten Sie die Eingabehinweise auf Seite 159. 





30 REM* LADEN VON HI-EDDI-BILDERN » 


<222> 


EM VIC-ADRESSBEREICH AB *C000 


<212> 


100 INPUT"FILENAME";N* 


<042> 


230 M2=PEEK (53272): POKE 53272,8: REM VIDEO 




110 POKE 78 1,8: REM GERAETEADRESSE 


<091> 


RAM- UND GRAFIK-ADRESSEN 


<070> 


120 POKE 782,0: REM SEKUNDAERADRESSE 


<225> 


240 M3=PEEK (53265): POKE 53265, M3 OR 32: REM 




130 SYS 65466: REM FILEPARAMETER SETZEN 


<203> 


HIRES EINSCHALTEN 


<024> 


140 POKE 780,LEN<N*> 


<1B1> 


250 F=16*7+6:REM 16«V0RDERGRUNDFARBE+HINT 




150 POKE 781,192:P0KE 782,2: REM POINTER A 




ERGRUNDFARBE 


<037> 


UF FILENAMEN 


<063> 


260 FOR 1=49152 TO 50152: POKE I, F: NEXT 


<13B> 


160 FOR 1=1 TO LEN(N»):POKE 703+1 ,ASC (MID* 




270 POKE 198,0:WAIT 198,1:REM AUF TASTE W 




(N*,I) ):NEXT:REM FILENAME 


<239> 


ARTEN 


<030> 


170 SYS 65469: REM NAMENSPARAMETER SETZEN 


<01B> 


280 POKE 56576,M1:P0KE 53272, M2: POKE 53265 




180 POKE 780,0: REM LOAD-FLAG 


<112> 


,M3:REM WIEDER NORMALZUSTAND 


<030> 


190 POKE 7B 1,0: POKE 7B2,224:REM ADRESSE=* 




e »♦'«- 




E000 
200 SYS 65493: REM LOAD 


<220> 
<0B3> 


Listing 9. »PIC.LADER« Hi-Eddi-Bilder in eigenen 


Pro- 


210 REM GRAF IK EINSCHALTEN 


<002> 


grammen verwenden. Bitte mit dem MSE (Seite 159) 


220 M1=PEEK(56576> : POKE 56576, Ml AND 252:R 




eingeben. 
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C64 





»Master- 
Spell« - 

Das Ende 

aller Tipp- 

fehler 



Auch Gutes laBt sich noch verbessern: Master- 
Text, unser Textverarbeitungs-Star aus dem Son- 
derheft 16, bekommt ein leistungsfahiges 
Begleitprogramm, mit dem die Beseitigung von 
Tippfehlern erheblich vereinfacht wird. 



N 



eben Vizawrite zahlt Master-Text, das wir Ihnen erst- 
mals in Ausgabe 6/1986 des 64'er-Magazins und in 
I Version 2.0 in Sonderheft 16 vorstellten, zu den be- 
liebtesten und leistungsstarksten Textprogrammen fur den 
C64. Eine automatische Hilfe zur Oberprufung der Recht- 
schreibung fehlte aber bislang. Mit dem hier vorgestellten 
Programm »MASTER-SPELL« (Listing 1) brauchen nun je- 
doch auch Benutzer von Master-Text 64 auf einen solchen 
Spell-Checker nicht langer zu verzichten. "MASTER- 
SPELL" ist ahnlich aufgebaut wie das ebenfalls in diesem 
Sonderheft enthaltene Programm »VIZA.SPELLER« (Seite 
61) und verwendet sogar dasselbe Wortverzeichnis, so daB 
Sie Ihre individuellen Verzeichnisse bei einem Wechsel von 
einem zum anderen Programm weiterverwenden konnen. 
Diese alphabetische Worterliste wird mit dem Hilfs- 
programm »DICTIONARY.GEN« (Listing 5 des Beitrages 
ilber die Vizawrite-Werkzeuge) erzeugt und ist zunachst 



leer, laBt sich aber mit Hilfe vorhandener Texte leicht aufful- 
len und an individuelle Bedurfnisse anpassen. Auf der 
Programmservice-Diskette befindet sich bereits eine sol- 
che Sammlung von deutschen Wdrtern, die als Ausgangs- 
basis fur ein umfangreiches elektronisches Wdrterbuch 
dienen kann. 

Die Arbeitsweise von »MASTER-SPELL« ist im Prinzip 
recht einfach. Vor dem eigentlichen »Spell-Checking« wird 
von dem zu prufenden Text erst einmal eine alphabetische 
Wortliste erzeugt. Diese Wortliste vergleicht das Programm 
anschlieBend mit seinem Wdrterbuch. Unbekannte, das 
heiBt nicht im Verzeichnis vorhandene Worter konnen in 
das Wdrterbuch aufgenommen, ignoriert Oder - falls es 
sich urn falsch geschriebene Worter handelt - fur einen 
spatere Korrektur vorgemerkt werden. Dieser letzte Schritt 
muB von Hand vorgenommen werden, ist aber nur eine klei- 
ne Miihe, zumal dann, wenn sich nicht sehr viele falsche 
Worter im Text befinden. 

»MASTER-SPELL«wird unabhangig von Master-Text wie 
ein Basic-Programm geladen und gestartet. Nach dem 
Start erscheint in der zweiten Bildschirmzeile ein kleines 
Menu, bestehend aus den Buchstaben »c«, »d«, »e«, »f«, »i«, 
»l«, »u«, »w«, »C«, »M« und »P«. Diese einzelnen Menupunk- 
te werden durch Druck auf die entsprechende Taste aufge- 
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rufen. Hinter den Buchstaben verbergen sich dabei folgen- 

de Funktionen: 

c - Check Wortliste 

Dies ist die eigentliche Check-Funktion, damit wird die 
Uberprufung der im Speicher befindlichen Wortliste des 
aktuellen Textes veranlaBt. Voraussetzung hierfur ist also, 
daB zunachst iiber den Menupunkt »l« ein mit Master-Text 
geschriebener Text geladen wurde, ferner, daB sich im Dis- 
kettenlaufwerk eine Diskette mit einer Wortschatz- 
Bibliothek befindet. Wird versehentlich ein falscher Filena- 
me eingegeben, der kein Textfile reprasentiert, so wird dies 
vom Programm erkannt und mit einer Fehlermeldung quit- 
tiert. 

Sollte wahrend des Korrekturvorganges ein unbekann- 
tes, also (noch) nicht in der Wortschatzliste vorhandenes 
Wort gefunden werden, so unterbricht das Programm die 
Suche, und es erscheint eine entsprechende Mitteilung auf 
dem Bildschirm. Sie konnen dann entscheiden, ob das un- 
bekannte Wort »gelernt«, also in die Liste aufgenommen, 
oder iibergangen werden soil. Driicken Sie dazu <J> 
oder < N > . Wollen Sie den Korrekturvorgang jedoch vor- 
zeitig abbrechen, so ist dies mit < RUN/STOP > an diesen 
Haltepunkten moglich. 
d - Directory 

Es wird das Inhaltsverzeichnis der eingelegten Diskette 
angezeigt. 
e - Worter loschen 

Wird ein Wort falschlicherweise ubernommen, oder wird 
es aus anderen Grunden nicht mehr benotigt (etwa ein 
nicht mehr benutzter Spezialausdruck oder Name), so 
kann es mit dieser Funktion wieder aus der Wortschatzliste 
gestrichen werden. Dazu geben Sie das jeweilige Wort 
oder zumindest den Wortanfang ein. Der Computer durch- 
sucht nun den gespeicherten Wortschatz und gibt jedes 
Wort, das mit der gesuchten Zeichenfolge beginnt, auf dem 
Bildschirm aus. Dabei konnen Sie sich dann jeweils ent- 
scheiden, ob Sie das Wort loschen wollen oder nicht. 
f - Suchen eines Wortes 

Wollen Sie wissen, welche Worter in Ihrem Verzeichnis 
enthalten sind, oder wollen Sie die Schreibweise eines be- 
stimmten Ausdrucks nachsehen, so geben Sie bei dieser 
Funktion wie bei »e« den Anfang des gesuchten Wortes ein. 
Das Programm durchsucht dann die Datei nach Wortern, 
die mit der entsprechenden Zeichenfolge beginnen und li- 
stet diese am Bildschirm auf. Die deutschen Umlaute wer- 
den selbstverstandlich am Bildschirm angezeigt. Fur die 
Suche nach den Sonderzeichen gelten folgende Regeln: 



Gesuchles Zeichen 

a 

D 

6 

6 



Eingabe auf der Tastatur 
[ (linke eckige Klammer) 
] (rechte eckige Klammer) 
£ (Pfund-Zeichen) 
I (Pfeil-oben-Zeichen) 



Die Eingabe der Umlaute muB im ubrigen auch beim Me- 
nupunkt »e« auf die gleiche Art vorgenommen werden. 
i - Wort-Statistik 

Es wird die Gesamtzahl aller Worter im Text sowie die 
Zahl der unterschiedlichen Worter angegeben. Hier ein 
Tip: 

Wer an seinem Schreibstil arbeiten will, hat mit dieser 
Funktion ein vorzugliches Hilfsmittel, urn sogenannte 
»Lieblingsworter« zu identifizieren. 
I - Textfile laden 

Dieser Menupunkt muB zu Beginn eines Korrekturvor- 
ganges angewahlt werden. Geben Sie dabei den Namen 
des gewiinschten Textfiles bitte ohne die bei Master-Text 
ubliche Kennung »t« an. Nach dem Laden wird automatisch 
die fur die Rechtschreibuberpriifung benotigte alphabeti- 
sche Wortliste des Textes erstellt. 



u - Unbekannte Worter ausgeben 

Nachdem Sie Ihr Dokument mit »c« oder »C« iiberpriift 
haben, konnen Sie mit diesem Menupunkt die unbekann- 
ten Worter auf dem Bildschirm auflisten. 
w - Ausgabe der Wortliste 

Dieser Menupunkt zeigt Ihnen die Wortliste des jeweili- 
gen Textes auf dem Bildschirm (Bild 1). 

Da bei diesem Programm Wert auf eine moglichst groBe 
Wortspeicherkapazitat gelegt wurde, konnen - wie schon 
erwahnt - nur die einzelnen Worter automatisch auf korrek- 
te Schreibung iiberpruft werden. Die im Text befindlichen 





decodierung A 


PBMHBSMMB VI 1J 
erstel 1 ung 




^T. fjllplfj h* ^H ^B M 


erzeugt 


4 


den 1 


eventuel ler 


2 


den 1 


folgende 


16 


der 1 


geandert 


i 


derzeit 4 


geloscht 


1 


des 1 


geschehen 


6 


die 1 


hauptMenu 


1 


dies 1 


hergeschaitet 


1 


diese 1 


bin 


I 


drucker 1 


hone 


1 


druckerausgabe 2 


in 


i 


durch 1 


ins . 


3 


ein 4 


ist 


2 


einer 1 


jetzt 


i 


eines 5 


kann 


1 


entsprechenden 1 


kein 




Bitte eine Taste 


driicken 



Bild 1. Eine von »MASTER-SPELL« erzeugte Wortliste 

falschen Worter mussen Sie aber anschlieBend von Hand 
korrigieren. Dazu gehen Sie folgendermaBen vor: Sie rufen 
nach dem Uberprufen der Worter die Wortliste des Textes 
mit »w« auf. Alle Worter, die nicht im Wortschatz vorgekom- 
men sind, werden jetzt in der Liste invers dargestellt (Bild 
1). Kontrollieren Sie nun einfach, welche dieser Worter 
falsch geschrieben sind. AnschlieBend rufen Sie wie ge- 
wohnt Master-Text auf und laden den soeben uberpriiften 
Text erneut. Sie konnen nun von dort aus mit <CTRL S> 
nach den fehlerhaften Wortern suchen und die endgiiltige 
Korrektur durchfiihren. 
C - Wortliste uberprufen 

Dieser Menupunkt (<SHIFT C>) iiberpruft die Wortli- 
ste, ohne daB Sie dabei am Computer verweilen mussen. 
Es wird nur der Inhalt der Wortliste iiberpruft und die unbe- 
kannten Worter markiert. Es erfolgt keine Abfrage, ob diese 
Worter gelernt werden sollen oder nicht. 
M - unbekannte Worter zufiigen 

Nach Uberprufung der Wortliste konnen Sie diese mit 
»M« in das Worterverzeichnis einfiigen. 
P - Ausdruck unbekannter Worter 

Unbekannte Worter konnen auf dem Drucker ausgege- 
ben werden, um sie spater im Text zu verbessern. Sie mus- 
sen darauf achten , daB sich der Drucker im Kleinschriftmo- 
dus befindet. Umlaute werden sonst nicht korrekt ausge- 
druckt werden. 

AbschlieBend noch ein Hinweis: Ein Spell-Checker ist 
nur so gut, wie das Worterverzeichnis, das er zur Kontrolle 
verwendet. Achten Sie deshalb sorgfaltig darauf, daB Sie 
sich systematisch einen fur Ihre Zwecke geeigneten Wort- 
schatz aufbauen. Erst danach kommen Sie in den vollen 
GenuB von »MASTER-SPELL«. Und noch etwas: Ein Spell- 
Checker iiberpruft lediglich die korrekte Schreibweise ein- 
zelner Worter. Ob die Worter an der jeweiligen Textstelle 
grammatikalisch, stilistisch oder sachlich richtig verwendet 
wurden, erkennt er nicht. Auch der beste Spell-Checker ist 
darum nur eine Hilfe fur eindeutige Schreibfehler und er- 
spart Ihnen nicht, Ihre Texte mit Verstand zu uberprufen. 

(Dieter Bayer/Dr. Rudolf Egg) 
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: Od 08 c3 07 9e 28 32 30 
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: 08 20 97 17 a9 00 85 c6 
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0bl9 


0819 


: 20 e4 ff a2 Oa dd 5f 08 


Id 


0b21 
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: fO 05 ca 10 f8 30 fl 8a 
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fe 


0b39 


0839 


: 19 aO 03 bd 28 04 09 80 


e3 


0b41 


0841 


: 9d 28 04 e8 88 dO f4 20 
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: Ob 8d 20 dO a9 Ob 8d 21 


eO 


0bB9 


0889 


: dO a9 Oc 8d 86 02 a2 00 


e6 


0b91 


0691 


9d 00 d8 9d 00 d9 9d 00 


5d 


0b99 


0899 


: da 9d 00 db ca dO fl a9 
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18 ad 6e 19 69 04 18 6d 41 
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19 e9 de ad 68 19 e9 76 18 
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52 c8 a2 00 bd 00 le 91 af 
52 e8 c8 ec 6e 19 dO f4 54 

18 60 38 60 ad 62 19 85 a9 
58 ad 63 19 85 59 ad 67 c4 
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dO 02 e6 5b 38 a5 58 e5 dd 
52 a8 a5 59 e5 53 aa 8c 09 
4e 19 38 a5 58 ed 4e 19 17 
85 58 bO 02 c6 59 38 a5 a2 
5a ed 4e 19 85 5a bO 02 23 
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OeOl 

0e09 

Oell 

0el9 

OeZl 

0e29 

0e31 

0e39 

0e41 

0«s49 

0e51 

0e59 

0e61 

0e69 

0e71 

0e79 

0e81 

0e89 

0e91 

0e99 

Oeal 

0ea9 

Oobl 

0eb9 

Oecl 

0ec9 

Oedl 

Oed9 

Oeel 

0ee9 

Oefl 

0ef9 

OfOl 

0f09 
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0fl9 

0f21 

0f29 
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0f49 

0f51 

0f59 

0f61 

0f69 

0f71 

0f79 

0f81 

0f89 
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0fa9 

Ofbl 

0fb9 
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0fc9 

Ofdl 

0fd9 
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0fe9 

Offl 

0ff9 

1001 
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1011 
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1041 
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lObl 
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lOcl 
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85 53 
8e c6 
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dO f 8 
ae 14 
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20 cd 
Oe 20 

19 a9 
8d 71 
ad c6 
fO fl 

20 43 
19 20 
69 05 
91 dl 
05 ec 

19 fO 
16 ad 

69 19 
ad 69 

70 19 
8d 69 
a9 27 

18 60 
Oe fO 
f5 60 

59 d9 
5c 2d 
5a da 

27 23 
c6 19 

20 dd 
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14 20 
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00 If 
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Bd cO 
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00 8d 
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10 bO 
ad 00 
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Of 20 
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28 10 
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dd 10 
If ad 
12 bO 
dO la 

20 e4 
20 f9 
Oe 4c 
20 ae 
15 c9 
22 c9 
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Muster-Text und MPS 801/803: 
verbesserte Drudtroutine 



Das Textverarbeitungsprogramm »»M aster-Text" 
kann zwar reverse Schrift generieren, aber nicht 
fiir die Drucker MPS 801/803. Eine neue Druck- 
routine setzt diesem Manko ein Ende. 

Die in Ausgabe 2/87 vorgestellte Druckeranpassung fur 
Master-Text und den Commodore-Drucker MPS 803 
erlaubte keinen Ausdruck in Revers-Schrift; diese 
Routine kann auch das. Man hat damit alle Vorteile der bis- 
herigen Routine, also Drucken in Breitschrift, Unterstrei- 
chen und das Anfuhrungszeichen unten und oben. Zusatz- 
lich erhalt man die Moglichkeit der Reversschrift. 

Hier noch ein paar Besonderheiten: Bei der Breitschrift 
muB man ein wenig aufpassen, da die doppelte Breite der 
Zeichen vom Hauptprogramm nicht erkannt wird. Dadurch 
kann es Probleme geben, wenn die Zeile zu lang wird. 
Steuerzeichen kdnnen auch innerhalb der Anfuhrungszei- 
chen benutzt werden, weil dafur ein anderer Code zum 
Drucker geschickt wird . Leerzeichen am Anfang einer Zeile 
werden normalerweise nicht unterstrichen oder revers 
gedruckt. Wer dies dennoch mdchte, muB anstatt (SPACE) 
ein (SHIFT SPACE) setzen. Das Programm (Listing 1) 
belegt den Speicher von $9A00-$A000 und zusatzlich noch 
den Speicher von $C400-$C600 zum Zwischenspeichern 
von Druckerdaten. 

Nun zur eigentlichen Bedienung, die sehr einfach ist: 
Zunachst muB die neue Druckerroutine abgetippt und unter 



dem ublichen Namen »UMLAUT1« gespeichert werden. 
Sie wird dann wie gewohnt geladen, es braucht also an der 
Laderoutine nichts geandert zu werden. Auch nicht, wenn 
mit dem »INST-PACKER« gearbeitet wird. Es miissen dann 
nur noch einige Druckercodes geandert werden. Dazu wird 
Master-Text geladen und im Dienstmenu der Punkt 
»Drucker« gewahlt. In der Steuerzeichentabelle miissen 
folgende Werte eingegeben werden: 
Reversschrift 12 und 92, 
Breitschrift Oe und Of (wie gewohnt), 

Unterstreichen 0b und Oc. 

Im Menu »Druckertabelle« folgt die Eingabe der Codes 
fur die Sonderzeichen: 



a = 166 
A = 168 
6 =223 
6 = 172 
u = 188 



U = 190 

B = 191 

§ =220 

„ = 126 



Sonderzeichen = 187 
(SHIFT SPACE) = 160 



Das Sonderzeichen fiir Code 187 kann mit dem Zeichen- 
editor definiert werden und z.B. auf die Tastenkombination 
(CBM*) gelegt werden. Zu beachten ist noch, daB die drei 
Schriftarten so lange eingeschaltet bleiben, bis sie wieder 
abgeschaltet werden. Daher ist es wichtig, am SchluB einer 
Seite das Abschalten vorzusehen, wenn mehrere Oder ver- 
schiedene Ausdrucke gewunscht werden. 

(Guido Barnert/Dr. Rudolf Egg) 
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Werkzeugkasten - drei neue 
Erweiterungen zu Vizawrite 64 



Die im 64'er-Magazin begonnene Serie der 
Zusatzprogramme fiir Vizawrite 64 wird hier fort- 
gesetzt. Drei neue Erweiterungen prasentieren 
sich als Komplett-Paket fiir noch mehr Komfort 
bei der Textverarbeitung. 

In Ausgabe 9/86 des 64'er-Magazins stellten wir Ihnen 
auf S. 156 ff. erstmals eine als »Vizaspell-Trick« bezeich- 
nete Moglichkeit zur Erweiterung des bekannten Text- 
programms Vizawrite 64 vor. Dabei geht es darum, daB sich 
im Texteditor von Vizawrite uber die Tastenkombination 
(CBM) (SHIFT RUN/STOP), die iiblicherweise dafiir vorge- 
sehen ist, die englische Rechtschreibhilfe Vizaspell 64 von 
Diskette nachzuladen, verschiedene Zusatzprogramme 
aktivieren lassen. Diese diirfen bis zu 6000 Byte ($5DC0 
bis $752F) oder 23 Blocke einer Diskette lang sein; der Pro- 
grammname muB mit den Buchstaben »VIZA« beginnen. 
Die dadurch gebotenen Moglichkeiten sind enorm und im 
Grunde nur durch Fantasie und Geschick der Programmie- 
rer begrenzt. Dieser Trick funktioniert - wie sich leider her- 
ausgestellt hat - jedoch nicht bei der Modul-Version von 
Vizawrite. 

Wir stellten Ihnen in diesem Zusammenhang bislang 
eine leistungsfahige Taschenrechner- und Kalender- 
Routine (Vizacalc in Ausgabe 4/87) sowie ein System zur 
Benutzung von Grafik-Schriften und zur Einbindung von 
Grafiken in Texte (Viza-Print-System in Ausgabe 6/87) vor. 
In diesem Heft finden Sie gleich fiinf neue Erweiterungen, 
die ubrigens alle von dem Autor des Viza-Print-Systems, 
Dieter Bayer, stammen. 

Weil Vizawrite 64 bei der Tastenkombination (CBM) 
(SHIFT RUN/STOP) stets nur das erste auf der Diskette 
befindliche Programm mit dem Namen »VIZA-« sucht, 
miiBte jedes dieser Teilprogramme auf einer eigenen Dis- 
kette gespeichertwerden, was natiirlichzu umstandlich ist. 
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Bild 1. Zeichensatze gestalten mit VIZA-EDIT. Durch gute 
Menufiihrung wird die Bedienung erheblich erleichtert. 

Wir bedienen uns daher eines einfachen Tricks, der bereits 
bei dem Viza-Print-System zur Anwendung kam und der ein 
muhsames Diskettenwechseln eriibrigt: Wir rufen uber 
(CBM) (SHIFT RUN/STOP) zunachst das Ladeprogramm 
•A/IZA BOOTER» (Listing 1) auf, dessen Name im Directory 
selbstverstandlich vor alien anderen Zusatzprogrammen 
stehen muB. »VIZA BOOTER« erlaubt uns dann das Nach- 
laden der hier vorgestellten, aber auch anderer Vizawrite- 
Erweiterungen, die den eingangs erwahnten Regeln fol- 
gen. 

»VIZA BOOTER« bietet uns zunachst ein Menu mit drei 
Punkten: 
(Fl) Directory 

Uber diesen Meniipunkt wird das Inhaltsverzeichnis der 
Diskette auf dem Bildschirm ausgegeben. Die Anzeige laBt 
sich wie gewohnt mit (CTRL) verlangsamen; bei Druck auf 
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(CBM) wird die Ausgabe bis zu einer erneuten Betatigung 
von (CBM) unterbrochen. 
(F3) Boot-Programm 

Mit dieser Funktion wird das Aktivieren der einzelnen 
Vizawrite-Erweiterungen ermoglicht. Dabei erscheint 
zunachst im unteren Bildschirmteil die Liste der gultigen 
Programme (»VIZA*«) der eingelegten Diskette. Mit den 
Tasten (CURSOR-aufwarts) und (CURSOR-abwarts) lafit 
sich das gewiinschte Programm heraussuchen; (RE- 
TURN) ladt und startet die gewahlte Erweiterung. (RUN/ 
STOP) bricht diesen Programmteil ab und fuhrt zuruck ins 
Hauptmenii. 
(F8) Return to Vizawrite 

Wenn Sie den »VIZA BOOTER« versehentlich aufgeru- 
fen oder es sich anders uberlegt haben, gelangen Sie von 
hier aus wieder zuruck in den normalen Texteditor von 
Vizawrite. 

Der»VIZA BOOTER« ist also lediglich ein Hilfsmittel und 
wird erst dann sinnvoll, wenn wir einige oder alle der nach- 
folgend beschriebenen Programme von Vizawrite 64 aus 
benutzen wollen. Selbstverstandlich konnten diese Routi- 
nen aber auch direkt iiber (CBM) (SHIFT RUN/STOP) 
gestartet werden, allerdings - wie beschrieben - immer nur 
eine pro Diskette. Im einzelnen handelt es sich urn folgende 
Programm-Module: 

2) »VIZA-SQUEEZER« (Listing 2): Dam it lassen sich Viza- 
Textfiles in eine platzsparende, handliche Form komprimie- 
ren. 

4) »VIZA-EDIT« (Listing 3): Wenn Sie einmal den Bildschirm- 
zeichensatz bei Vizawrite verandern mdchten, bitte sehr, 
mit diesem Programm wird dies ein Kinderspiel. 

5) »VIZA-SPELLER« (Listing 4): Durch diesen sehr einfach 
zu bedienenden Spell-Checker lehren Sie Ihrem Tippfeh- 
ler-Teufel das Furchten. 

Viza-Squeezer — Datenfiles eng gepackf 

Wer seine Viza-Textfiles moglichst platzsparend speichern 
mochte, erhalt mit dem »VIZA-SQUEEZER« (Listing 2) 
einen praktischen und einfach zu bedienenden »Daten- 
Packer«, der die Blocklange gegeniiber dem Standardfor- 
mat urn etwa ein Drittel reduziert. Die auf diese Weise kom- 
primierten Files sind allerdings iiber die normale Laderou- 
tine von Vizawrite nicht mehr aufrufbar, sondern miissen 
stets iiber den kleinen Umweg dieses Hilfsprogramms 
geladen und wieder »entpackt« werden. Nach dem Starten 
des Programms erscheint ein Menu, das sich im wesentli- 
chen von selbst erklart. Trotzdem soil hier eine kurze 
Beschreibung der einzelnen Meniipunkte erfolgen: 
(F1) Directory 

Anzeige des Directory der eingelegten Diskette. Mit der 
(CTRL)-Taste kann das Scrollen verlangsamt und mit der 
(CBM)-Taste angehalten werden. 
(F3) Load Text 

Laden eines komprimierten Textes. Dabei wird zunachst 
das Directory der aktuellen Diskette eingelesen, und der 
Name des gewunschten Textes kann mit den Cursor-Tasten 
und (RETURN) ausgewahlt werden. Die (STOP)-Taste 
beendet diesen Meniipunkt vorzeitig. 
(F5) Save Text 

Speichern eines Textes. Der Text wird beim Speichern 
automatisch komprimiert, wobei der Computer in der unter- 
sten Bildschirmzeile anzeigt, womit er gerade beschaftigt 
ist. Soil ein alter Text iiberschrieben werden, so ist dem 
Dateinamen ein »s:« voranzustellen. Urn komprimierte 
Texte von anderen leichter unterscheiden zu konnen, emp- 
fiehlt sich die Verwendung eines Kiirzels, wie etwa ».SQ«, 
am Namensende. 



(F8) Return to Vizawrite 

Damit kehren Sie zuruck ins Vizawrite-Hauptprogramm; 
einen mit »VIZA-SQUEEZER« geladenen Text konnen Sie 
nun wie gewohnt bearbeiten. 

Viza-Edit — der Zeicheneditor 



Wenn Ihnen der Bildschirmzeichensatz von Vizawrite 64 
nicht gefallt, oder wenn Sie bestimmte Sonderzeichen (bei- 
spielsweise mathematische Symbole) vereinbaren wollen, 
so steht Ihnen mit »VIZA-EDIT« (Listing 3) ein sehr einfach 
zu bedienendes Hilfsmittel zur Verfiigung. Sie konnen 
damit jedes der 256 Zeichen des CBM-Zeichensatzes neu 
def inieren und diese geanderten Zeichensatze auf Diskette 
speichern. Anfangersollten zunachst vorsichtig mit diesem 
Programm arbeiten, oder sich erst einmal den Muster-Zei- 
chensatz (auf der Programmservice-Diskette) ansehen, 
weil man bei unsachgemaBer Behandlung auch ein heillo- 
ses Durcheinander der Zeichen schaffen kann. Wichtig ist, 
daB mit »VIZA-EDIT« lediglich die Bildschirm-, nicht aber die 
Druckausgabe der Zeichen beeinfluBt wird. 

Fur das Laden und Starten gilt dasselbe wie bei den 
bereits beschriebenen Programmen. Nach dem Start 
erscheint ein Menu mit funf Unterpunkten: 
(F1) - Display Directory 
(F3) - Load Zeichensatz 
(F5) - Save Zeichensatz 
(F7) - Edit Zeichensatz 
(F8) - Return to Vizawrite 

Die Punkte (F1) und {F8) erklaren sich von seibst (siehe 
auch bei »VIZA BOOTER-<), so daB hier nur die restlichen 
Funktionen zu erlautern sind. 
(F3) - Load Zeichensatz 

Damit wird ein auf Diskette gespeicherter Zeichensatz 
fur Vizawrite 64 in den Arbeitsspeicher ab $3800 kopiert. 
Die Auswahl aus dem Inhaltsverzeichnis erfolgt wie bei 
»VIZA BOOTER«. Zur Demonstration dieser Funktion 
befindet sich auf der Programmservice-Diskette der 
Muster-Zeichensatz»ZEICHEN-DEMO«. 

(F5) - Save Zeichensatz 

Der aktuelle Zeichensatz wird auf Diskette gespeichert. 
Dabei wird ein Zeichensatz gleichen Namens vor dem 
Speichern automatisch auf der Diskette geloscht. 
(F7) - Edit Zeichensatz 

Dieser Teil dient zum Editieren des Zeichensatzes. Beim 
Aufruf erscheint im unteren Bildschirmbereich ein weiteres 
Menu, auBerdem eine 8x8 Punkte groBe Zeichenmatrix, 
wobei das jeweils aktuelle Zeichen zusatzlich in Normal- 
groBe und mit der dazugehorigen Nummer links daneben 
steht (Bild 1). Die Unterpunkte des Menus sollen kurz 
beschrieben werden: 
(F1) - Invertieren 

Das aktuelle Zeichen (siehe Matrix) wird invertiert. 
(F2) - Automove an/aus 

Wenn der Automove-Modus angeschaltet ist, wird der 
Cursor beim Setzen und Loschen von Punkten in der Zei- 
chenmatrix immer in die Richtung weitergesetzt, in die man 
vorher den Cursor bewegt hat. 
(F3) - Zeichencode + 
(F5) - Zeichencode — 

Hiermit kann im Zeichensatz stufenweise nach oben 
beziehungsweise nach unten »geblattert« werden. Man 
gelangt so rasch zu denjenigen Zeichen, die man veran- 
dern mochte. 
(F7) - Copy Character 

Diese Funktion dient zum Kopieren eines Zeichens an 
eine andere Stelle im Zeichensatz. Es erscheint zuerst die 
Frage »Copy what ?«. Daraufhin wahlt man das zu kopie- 
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rende Zeichen mit (F3) Oder (F5) aus und ubernimmt es mit 
(RETURN). Durch Driicken der (RUN STOP)-Taste verlaBt 
man den Copymodus vorzeitig. Nach Driicken der 
(RETURN)-Taste fragt der Computer -Copy to where ?«. 
Jetzt sucht man das Zeichen aus, in dessen Matrix man das 
vorher bestimmte Zeichen kopieren will. Durch (RETURN) 
wird dies ausgefiihrt und der Kopiermodus wieder verlas- 
sen. Zur besseren Erkennung des Copy-Modus wird iibri- 
gens die Rahmenfarbe auf Hellgrau umgeschaltet. Weiter- 
hin kann man im Copy-Modus durch Driicken der (F1)-Taste 
das jeweils reverse Gegenstiick des aktuellen Zeichens 
anwahlen. Hierbei wird einfach zum Zeichencode der Wert 
128 dazuaddiert. Auf diese Weise ist es sehr einfach mog- 
lich, reverse Zeichen zu erstellen. 
(F8) - Return to Menu 
fiihrt ins »VIZA-EDIT«-Hauptmenii zuriick. 



Viza-Speller - Tippfehler ade 



Den Kniiller dieses Viza-Werkzeugkastens haben wir uns 
fur den SchluB aufgespart; dazu aber erst ein paar Vorbe- 
merkungen. Bekanntlich gibt es zu Vizawrite 64 das Recht- 
schreib-Korrekturprogramm »Vizaspell«, auf dem ja der 
ganze Trick mit den vielen weiteren von uns vorgestellten 
Zusatzprogrammen beruht. 

Leider eignet sich dieses kommerzielle Programm aber 
nur fur Texte ohne Umlaute, da es fur die englische Version 
von Vizawrite 64 geschrieben wurde. Die Anwendung von 
Vizaspell ist darum fiir deutschsprachige Texte mit Schwie- 
rigkeiten verbunden (Naheres dazu finden Sie in Ausgabe 
6/86 des 64'er-Magazins). Schon einmal stellten wir Ihnen 
(in Ausgabe 11/1986) darum eine auch fiir die deutsche Ver- 
sion von Vizawrite 64 geeignete Rechtschreibhilfe vor. Bei 
»SPELL CHECK-- handelte es sich urn ein Programm, das 
unabhangig von Vizawrite gestartet wird. Das hier vorge- 
stellte Programm »VIZA-SPELLER« (Listing 4) geht dage- 
gen denselben Weg wie das englische Vizaspell, es wird 
iiber (CBM) (SHIFT RUN/STOP) oder iiber den »VIZA 
BOOTER« aufgerufen. Wenngleich dieser »Spell-Checker« 
nicht ganz so viele Funktionen hat wie das Vizaspell- 
Original, so gefiel uns diese Losung doch so gut, daB wir sie 
Ihnen nicht vorenthalten wollten. »VIZA-SPELLER« iiber- 
priift einen im Arbeitsspeicher befindlichen Text anhand 
einer auf Diskette befindlichen Wortliste. Diese wird mit 
dem Hilfsprogramm »DICTIONARY.GEN« (Listing 5) 
erzeugt und ist zunachst leer, laBt sich aber mit Hilfe vor- 
handener Texte leicht auffiillen und an individuelle Bedurf- 
nisse anpassen. Auf der Programmservice-Diskette befin- 
det sich bereits eine solche Sammlung von deutschen Wor- 
tern, die als Ausgangsbasis fur ein derartiges elektroni- 
sches Worterbuch dienen kann. 

Die Arbeitsweise von »VIZA-SPELLER« ist im Prinzip 
recht einfach: Vor dem eigentlichen »Spell-Checking« wird 
von dem zu priifenden Text erst einmal eine alphabetische 
Wortliste erzeugt. Diese Wortliste vergleicht das Programm 
anschlieBend mit seinem Worterbuch. Unbekannte Worter 
konnen in das Worterbuch aufgenommen, ignoriert oder - 
falls es sich urn falsch geschriebene Worter handelt - fiir 
eine spatere Korrektur vorgemerkt werden. Dieser letzte 
Schritt muB von Hand vorgenommen werden. Dabei han- 
delt es sich aber nur urn eine kleine Miihe, die durch die 
voile Beriicksichtigung des deutschen Zeichensatzes 
mehr als ausgeglichen wird. 

Nach dem Laden von »VIZA-SPELLER« erscheint in der 
zweiten Bildschirmzeile ein kleines Menu, bestehend aus 
den Buchstaben »c, d, e, f, i, t, u, w, C, M, P« und »V«. Diese 
einzelnen Meniipunkte werden durch Druck auf die ent- 



sprechende Taste aufgerufen. Hinter den Buchstaben ver- 
bergen sich dabei folgende Funktionen: 
c - Check 

Dies ist die eigentliche Check-Funktion. Damit wird die 
Uberpriifung der im Speicher befindlichen Wortliste (siehe 
unter Funktion »t«) des aktuellen Textes veranlaBt. Voraus- 
setzung hierfur ist, daB sich im Diskettenlaufwerk eine Dis- 
kette mit einer Wortschatz-Bibliothek befindet. Sollte wah- 
rend des Korrekturvorganges ein unbekanntes, also (noch) 
nicht in der Wortschatzliste vorhandenes Wort gefunden 
werden, so unterbricht das Programm die Suche, und es 
erscheint eine entsprechende Mitteilung auf dem Bild- 
schirm. Sie konnen dann entscheiden, ob das unbekannte 
Wort »gelernt«, also in die Liste aufgenommen, oder uber- 
gangen werden soil (Bild 2). Driicken Sie dazu (J) oder (N). 
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Bild 2. Der Viza-Speller in Aktion 

Wollen Sie den Korrekturvorgang jedoch vorzeitig abbre- 

chen, so ist dies mit (RUN/STOP) an diesen Haltepunkten 

moglich. 

d - Directory 

Es wird das Inhaltsverzeichnis der eingelegten Diskette 
angezeigt. 
e - Worter loschen 

Wird einmal ein Wort falschlicherweise iibernommen, 
oder wird es aus anderen Griinden nicht mehr benotigt (bei- 
spielsweise ein nicht mehr benutzter Spezialausdruck oder 
Name), so kann es mit dieser Funktion wieder aus der Wort- 
schatzliste gestrichen werden. Dazu geben Sie das jewei- 
lige Wort oder zumindest den Wortanfang ein. Der Compu- 
ter durchsucht nun den Wortschatz und gibt jedes Wort, 
das mit der gesuchten Zeichenfolge beginnt, auf dem Bild- 
schirm aus. Dabei konnen Sie sich dann jeweils entschei- 
den, ob Sie das Wort loschen wollen oder nicht. 
f - Suchen eines Wortes 

Wollen Sie wissen, welche Worter in Ihrem Verzeichnis 
enthalten sind, oder wollen Sie die Schreibweise eines 
bestimmten Ausdrucks nachsehen, so geben Sie bei die- 
ser Funktion wie bei »E« den Anfang des gesuchten Wortes 
ein. Das Programm durchsucht dann die Datei nach Wor- 
tern, die mit der entsprechenden Zeichenfolge beginnen 
und listet diese auf dem Bildschirm auf. (Ein Tip: Durch Ein- 
gabe nur eines Anfangsbuchstabens erhalten Sie die kom- 
plette Liste der jeweiligen Sub-Datei Ihres Gesamtverzeich- 
nisses.) Fiir die Suche nach deutschen Sonderzeichen gel- 
ten folgende Regeln: 



Gesuchtes Zeichen Eingabe auf der Tastatur 



[ (linke eckige Klammer) 
] (rechte eckige Klammer) 
£ (Pfund-Zeichen) 

n- (Pi-Zeichen) 
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Die Eingabe der Umlaute mu8 im ubrigen auch beim 
Meniipunkt »e« auf die gleiche Art vorgenommen werden. 
i - Wort-Statistik 

Es wird die Gesamtzahl aller Worter im Text sowie die 
Zahl der unterschiedlichen Worter angegeben. 
t - Wortliste des Textes erstellen 

Aus dem aktuellen Text wird hiermit eine Wortliste mit 
alien vorkommenden Wortern erstellt. Diese Liste ist alpha- 
betisch sortiert. Sie mussen diesen Meniipunkt stets aufru- 
fen, bevor Sie einen Text mit Hilfe der Funktion »C« iiberpru- 
fen konnen. 

Die ubrigen Meniipunkte bedeuten: 
u - Unbekannte Worter ausgeben 
Nachdem Sie Ihr Dokument mit »c« Oder »C« uberpruft 
haben, konnen Sie sich mit diesem Meniipunkt die unbe- 
kannten Worter auf dem Bildschirm darstellen lassen. 
w - Anzeigen der Wortliste des aktuellen Textes 
C - Wortliste uberpriifen 

Dieser Meniipunkt (<SHIFT C>) uberpruft die Wortliste, 
ohne da8 Sie dabei am Computer verweilen mussen. Es 
wird nur der Inhalt der Wortliste uberpruft und die unbe- 
kannten Worter markiert. Es erfolgt keine Abfrage, ob diese 
Worter gelernt werden sollen oder nicht. 
M - Unbekannte Worter zufugen 
Nach Uberpriifung der Wortliste konnen Sie diese mit »M« 
in das Worterverzeichnis einfugen. 
P - Ausdruck unbekannter Worter 
Unbekannte Worter konnen auf dem Drucker ausgegeben 
werden, urn sie spater im Text zu verbessern. Sie mussen 
darauf achten, daB sich der Drucker im Kleinschrift-Modus 
befindet. Umlaute werden sonst nicht korrekt ausgedruckt 
werden. 
V - Rijckkehr zu Vizawrite 64 

Da bei diesem Programm Wert auf eine moglichst groBe 
Wortspeicherkapazitat gelegt wurde, konnen - wie schon 
erwahnt - nur die einzelnen Worter automatisch auf kor- 
rekte Schreibung uberpruft werden. Die im Text befindli- 




Bild 3. VIZA.SPELLER-Wortliste: Unbekanntes wird 
invertiert gezeigt 

chen falschen Worter mussen Sie aber anschlieBend von 
Hand korrigieren. Dazu gehen Sie folgendermaBen vor: Sie 
rufen nach dem Uberpriifen der Worter die Wortliste mit »w« 
auf. Alle Worter, die nicht im Wortschatz vorgekommen 
sind, werden jetzt in der Liste invers dargestellt (Bild 3). 
Kontrollieren Sie nun einfach, welche dieser Worter falsch 
geschrieben sind und merken Sie sich diese (in der fal- 
schen Schreibweise). Nach der Riickkehr in den Text kon- 
nen Sie dann mit (CBM) (SHIFT F) nach den entsprechen- 
den unkorrekten Wortern suchen und die Korrektur durch- 
fiihren. 

Ebenfalls in diesem Sonderheft befindet sich ein Spell- 
Checker fur unser Textverarbeitungsprogramm Master- 
Text (Seite 56). Die beiden Spell-Checker sind in bezug auf 
die Wortschatzdateien zueinander kompatibel. Dies be- 
deutet, daB Sie, falls Sie mit beiden Programmen arbeiten, 
sich nur ein einziges »l_exikon« anzulegen brauchen. 

(Dieter Bayer/Dr. Rudolf Egg) 
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aO 66 20 le ab IB a2 10 


a3 


6414 : 
64!c : 


6d 9d 00 6e 9d 00 6f 9d 


f 1 


dl 


00 70 9d 00 71 9d 00 72 


aS 1 




6114 : 

611c : 


aO 13 20 fO ff a2 00 20 
cf ff c9 Od fO 08 9d 58 


b9 

75 


6424 : 
642c : 


9d 00 73 9d 00 74 ca dO 
e2 60 ae Od 62 20 fO e9 






4a 




6124 : 


63 eB eO 10 dO fl Ba a2 


41 


6434 : 


20 24 ea aO Oa bl dl 49 


3d 




612c : 


56 aO 63 20 bd ff a9 08 


42 


643c : 


BO 91 dl ad B6 02 91 f3 


55 




6134 : 
613c : 


aa aO 6f 20 ba ff 20 cO 
ff a9 OB 20 c3 ff a9 OB 


be 
09 


6444 : 
644c : 


c8 cO le dO fO 60 a5 ac 
48 a5 ad 48 aS ae 4B aS 


10 

17 


Naae : viza-speller 5dbc 6o75 




6144 : 


aa a8 20 ba ff a9 00 B5 


fa 


6454 : 


af 4B a2 10 eB 20 fO e9 


f9 


5dbc : 53 ff 00 00 a2 Oa b5 50 01 
5dc4 : 9d 49 6e ca 10 f8 20 5f 03 


614c : 


50 a9 38 BS SI a9 50 a2 


18 


645c : 


eO 16 bO Oc bd fl ec 85 


If 


6154 : 


00 aO 40 20 dB ff 4c c6 


OS 


6464 : 


ac b5 da 20 c8 e9 30 ec 


lc 


5dcc : 5e 20 5f 6c a9 00 85 c6 de 


615c I 


5d a9 37 85 01 60 a9 30 


26 


646c : 


20 9d 64 ad Bd 02 c9 02 


3e 


. 5dd4 : 20 e4 ff a2 Ob dd la 5e 7f 


6164 : 


85 01 60 a9 lc aO 65 20 


54 


6474 : 


fO 10 c9 04 dO 16 a2 00 


a7 


5ddc : fO 05 ca 10 f8 30 fl 8a fl 


616c : 


le ab a9 eS aO 65 20 le 


79 


647c : 


a8 ea 88 dO fc ca dO f9 




5de4 : Oa aa bd 26 5e 8d 04 Se 97 


6174 : 


ab 18 a2 00 aO IB 20 fO 


01 


6434 : 


fO Oa ad 8d 02 dO fb ad 


B8 


5dec : bd 27 5e 8d 05 5e 8e 45 8e 


617c : 


ff a2 00 bd SB 63 fO 09 


f b 


648c : 


Bd 02 fO fb 68 85 af 68 


18 


5df4 : 6c aO 03 bd 28 04 09 80 f 3 


6184 : 


20 d2 ff eB eO 10 dO f3 


e4 


6494 : 


85 ae 68 B5 ad 68 85 *c 


c9 


5dfc : 9d 28 04 e8 88 dO f 4 20 ef 


618c : 


60 a9 20 20 d2 ff eB eO 


5f 


649c : 


60 aO 27 20 fO e9 20 24 


41 


5e04 : ff ff ae 45 6e aO 03 bd cb 


6194 : 


10 dO fB 60 18 a2 10 aO 


6f 


64a4 : 


ea a9 60 91 dl ad 86 02 


56 


5e0c : 28 04 29 7f 9d 28 04 e8 6e 


619c : 


07 20 fO ff 8e Od 62 20 


Oa 


64ac : 


91 f3 88 10 f4 60 a5 ac 


9d 


5el4 : 88 dO f 4 4c cd 5d 43 44 28 


61a4 : 


fc 64 20 cf ff a5 90 dO 


e5 


64b4 : 


48 a5 ad 48 a5 ae 48 a5 


7f 




61ac : 


4c 20 cf ff a5 90 dO 45 


a9 


64bc : 


af 48 a2 16 ca 20 fO e9 


40 




61b4 : 


20 cf ff a6 90 dO 3e aa 


6e 


64c 4 : 


eO 10 fO Oc bd fl ec 85 


94 


Listing 4. »VIZA-SPELLER«. 


61bc : 
61c4 : 


20 cf ff a4 90 dO 36 20 
cd bd 20 cf ff a6 90 dO 


01 

Bb 


64c c : 
64d4 : 


ac bS da 20 eS 64 30 ec 
e8 20 9d 64 6B 85 af 68 


2a 
02 


Durch diesen sehr einfach zu 


61cc : 


2c c9 20 dO 02 a9 aO 20 


2f 


64dc : 


BS ae 68 85 ad 6B B5 ac 


11 


bedienenden Spell-Checker lehren 


61d4 : 
61dc : 
61e4 : 


d2 ff dO ee a9 Od 20 d2 
ff ee Od 62 ad Od 62 c9 
17 dO 06 ce Od 62 20 4a 


el 
42 
bB 


64e4 : 
64p;c : 
64f4 : 


60 29 03 09 04 B5 ad 20 
eO e9 aO 27 bl dl 91 ac 
bl fo 91 ae 88 10 fS 60 


le 
17 
7b 


Sie Ihren Tippfehler-Teufel das 
Fiirchten. Bitte mit dem MSE 


61ec : 


64 18 ae Od 62 aO 07 20 


31 


64fc : 


a9 01 a2 Oc aO 62 20 bd 


69 


(Seite 159) eingeben. 
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TOOLS: TEXTVERARBEITUNG 
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02 
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20 
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20 


lc 


61 


90 
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bl 


52 


aa 
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04 


11 
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4e 
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54 


55 
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69 


20 


59 
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03 


4c 


a6 


f2 
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bl 


52 


a8 


b9 


56 


6e 


cd 


80 


31 
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56 


57 


5B 


59 


5a 
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7c 


7d 
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69 
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03 


04 


05 


06 


36 
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70 
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11 


bO 


lc 


18 


8a 


69 


ae 
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7e 


a 9 


00 


8d 


48 


6e 


20 
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08 


09 


Oa 


Ob 


Oc 
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Oe 


d4 
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04 


18 


65 


52 


85 


52 


90 


dc 


8f 
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65 


20 


d4 


65 


20 


96 


65 


bO 


09 
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12 


13 
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15 


16 
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52 
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70 


30 


26 


20 


fa 
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fd 
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6b54 


75 


c9 


03 


fO 


b6 
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9 4. 


(SchluB) 













1000 PRINT" {CLR, DOWN, RIGHT ,CTRL-N>2ITTE Dl 

E 5ISKETTE FUER DAS <142> 
1010 PRINT" <DOWN,RIGHT>HOERTERVERZEICHNIS 

EINLEGEN! <062> 

1020 POKE 198,0:WAIT 198,1 <230> 

1030 FOR 1=65 TO 90 <135> 

1040 AS=CHR*<I) <056> 

1050 PRINT" <H0ME,6D0WN,39SPACE,2UP>" <024> 
1060 PRINT" {RIGHT>yERZEICHNIS FUER 2UCHSTA 

BE : ";A* <239> 

1070 OPEN 1, 8,1, "SPELL. DICT. "+A* <00B> 

1080 PRINT#1,CHR*<255>; <036> 

1090 GOSUB 10000 <054> 



1100 CLOSE 1 <095> 

1110 NEXT I <17B> 

1120 PRINT" <DOWN,RIGHT>a£RZEICHNIS FERTI6 <136> 

1130 END <U6> 

10000 OPEN 15,8,15 <252> 

10010 INPUT#15,E,ES,T,S <077> 

10020 PRINT"£ISK-£RROR: ";E;E*;T;S <208> 

10030 CLOSE 15: RETURN <196> 

Listing 5. »DICTIONARY.GEN« erzeugt die Worter- 
buch-Dateien auf Diskette. Bitte mit dem Check- 
summer (Seite 159) eingeben. 
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Disk-Fuller: Retter in der Not 



Ab und zu passiert es, daB auf einer fast vollen 
Diskette nur ein paar Blocke fehlen, urn ein Pro- 
gramm zu speichern. Mit dem Disk-Fuller konnen 
in Notfallen bis zu 17 zusatzliche Blocke auf der 
Diskette genutzt werden. 

Das Problem ist wohl jedem bekannt, der eine gut sor- 
tierte Programmsammlung hat: Alle thematisch glei- 
chen Programme bis auf eines passen auf eine Dis- 
kettenseite. Und gerade dieses letzte Programm benotigt 
nur einige wenige Blocke. Aber hier kann in Notfallen Abhil- 
fe geschaffen werden. Auf der Spur 18, auf der sich unter 
anderem das Directory befindet, sind meist noch ein paar 
Blocke frei, die das DOS der 1541 aber nicht zur Programm- 
speicherung zur Verfiigung stellt. Mit dem Programm 
»Disk-Fuller« (Listing 1) konnen diese freien Blocke ausge- 
nutzt werden. Zu diesem Zweck werden Blocke von schon 
auf der Diskette befindlichen Programmen auf die freien 
Blocke der Spur 18 umkopiert und die Blockzeiger ange- 
paBt. Die ursprunglichen Programmblocke stehen dann 
zur freien Verfiigung. 

Das Programm ist weitgehend selbsterklarend, hier aber 
einige wichtige Hinweise: Nach dem Laden darf das Pro- 
gramm erst mit RUN gestartet werden, wenn die zu behan- 
delnde Diskette im Laufwerk liegt. AuBerdem durfen nur 
Disketten behandelt werden, deren BAM einwandfrei in 
Ordnung ist. Im Zweifelsfalle sollte vorher ein Validate mit 
OPEN 15,8,15,"V" durchgefiihrt werden. 
Hier ist die genaue Funktionsweise des Programms: 
Nach einer kurzen Erlauterung fur den Benutzer werden 
in den Zeilen 1050 und 1060 (Listing) zwei Kanale zum Lauf- 
werk geoffnet. Gleichzeitig wird die eingelegte Diskette ini- 



tialisiert. In Zeile 2000 werden drei Variablenfelder dimen- 
sioniert. Siedienen zum Ablegen derZeigerauf den jeweils 
nachsten Directoryblock sowie der Anzahl der Eintrage in 
diesem Block. Mit Zeile 2010 beginnt dann eine Schleife, 
die alle Directory-Blocke verfolgt, ihre Lage auf der Diskette 
in den dimensionierten Feldern speichert und ihre Anzahl 
in der Variablen B festhalt. Ab Zeile 2500 wird die Anzahl 
der freien Eintrage im letzten Directory-Block bestimmt. 
Dazu wird jeweils das Filetyp-Byte abgefragt. Hat es den 
Wert Null, ist dieser Eintrag noch frei. Sollte der Benutzer 
die Frage, ob der angezeigte Platz geniigt, negativ beant- 
worten, wird ein Block fur weitere acht Eintrage freigehal- 
ten. Als nachstes wird iiberpruft, welche Blocke der Spur 18 
noch frei sind. Dazu werden die entsprechenden Bytes der 
BAM in den Computerspeicher geholt und analysiert (Zeile 
3120 bis 3230). 

In Zeile 4000 beginnt das Verschieben schon belegter 
Blocke in die Spur 18. Dazu werden in einer groBen Schleife 
(bis Zeile 4680) alle Directory-Eintrage abgearbeitet. Dies 
geschieht folgendermaBen: Der Zeiger auf den ersten 
Block des ersten Eintrags wird in den Variablen AS und AT 
zwischengespeichert, der zugehorige Block eingelesen 
und der Zeiger auf den Fortsetzungsblock ebenfalls ge- 
speichert. Dann wird ein freier Block der Spur 18 gesucht 
und der alte Zeiger auf diesen umgelenkt. Der Computer 
gibt nun eine Protokollzeile aus. Dieser Block wird nun als 
belegt und der alte als frei gekennzeichnet. Als letztes wird 
endlich der Inhalt des zu verschiebenden Blocks auf den 
Block der Spur 18 geschrieben. Sollte nach dem ersten Ein- 
trag immer noch Platz auf der Spur 18 sein, fahrt das Pro- 
gramm mit dem zweiten Eintrag fort, bis die Spur 18 kom- 
plett belegt ist. (U. Gerlach/sk) 



DISK 
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VON UWE GERLACH 



BRUEHLSTR. 23 



6410 BEBRA 1 



IM APRIL 1985 



* 
« 



IBB REM 

HO REM » 

120 REM • 

130 REM • 

14B REM » 

15B REM * 

160 REM » 

17B REM • 

IBB REM • 

19B REM » 

2BB REM • 

210 REM » 

22B REM » 

230 REM • 

210 REM • 

25B REM • 

260 REM * 

27B REM » 

28B REM » » 

29B REM « » 

3BB REM «»««»««»•»»»#**»»»»»»»»»»» 

4BB : 

SBB : 

10BB POKE 53280,0: POKE 5328 1,B: REM FARBE 

1010 PRINT CHRS<14>;" <CLR,GREY 2,2SPACE>££ 

1541<4SPACE>S I S K<3SPACE>£ U E L L 

E R": PRINT: PRINT: PRINT 
IB 15 PRINT "DIESES PROGRAMM WURDE GESCHRIEB 

EN VON:": PRINT: PRINT 
1B2B PRINT," <LIG. BLUE, 2SPACE>iJWE fiERLACH": 

PRINT," <2SPACE>2RUEHLSTR. 23": PRINT 
: PRINT, "<2SPACE>644B 2EBRA 1 CGREY 2> 

1B25 PRINT: PRINT: PRINT"IS SCHAFFT AUF VOLL 

EN filSKETTEN NOCH" 
103B PRINT"ETWAS £LATZ, INDEM ES DIE EIGEN 

TLICH" 
1B35 PRINT"FUER DAS SI RECTORY VORGESEHENE 

SPUR 18" 



<14B> 
<159> 
<169> 
<115> 
<189> 
<199> 
<2B9> 
<B39> 
<229> 
<186> 
<249> 
<BB3> 
<164> 
<B23> 
<B33> 
<B43> 
<055> 
<238> 
<075> 
<BB5> 
.086.. 
<122> 
<222> 
<068> 



<B73> 
<B51> 

<B8B> 
<B12> 
<149> 
<2B9> 



1040 
1045 
1050 
1060 
1090 
1100 
1110 
1120 
113B 
2000 
2B1B 
2B2B 
2030 
2040 
2050 
2060 
2B7B 
2100 
211B 
212B 
213B 
214B 

2150 
2155 
2160 
2190 
2400 
2500 
2510 
2520 
2530 
2540 
2590 
2600 
2610 
2700 

275B 



PR I NT "BELEGT." :PRINT:PRINT 



FUER BEFEHLE 
PUFFERKANAL 



OPEN 1,8,15,"I": REM 
OPEN 2,8,2, "*" : REM 

: 

REM **»#»««»»»#*»#»«##»***»»»*»*» 

REM DIRECTORYLAENBE ERMITTELN 

REM *#*«»#»*»<HHHHHHHHHHHHHHHK**» 

DIM T<25): DIM S(25): DIM E<25> 

PRINT* 1, "Ul: "2;B;18;0: REM BAM 

SET* 2,T*,S*: REM ZEIGER AUF DIR. 

TCO>=ASC<T«+CHR*(0>>: REM TRACK 

S(B)=ASC(S*+CHR*<B)): REM SECTOR 

T=T(B): REM TRACK DIR. ANFANG 

S=S(0): REM SECTOR DIR. ANFANG 

B=l: REM BLOCKZAEHLER 

PRINT* 1, "Ul: "2;B;T;S 

GET* 2,T*,S»: REM ZEIGER 

T=ASC ( TS+CHR* ( B ) ) 

S=ASC (SS+CHR* (B) ) 

IF T=B OR T>35 OR S>2B OR B=25 THEN 

4BB: REM LETZTER DIRECTORY-BLOCK 

T(B>=T: S(B)=S: REM ZEIGER MERKEN 

E(B-1)=B: REM EINTRAEGE IM BLOCK 

B=B+1: REM ZAEHLER ERHOEHEN 

GOTO 2100 : REM NAECHSTER BLOCK 

M=B: REM DIR. BLOCKZAHL 

F=0: REM ZAEHLER FREIE EINTRAEGE 

FOR 1=2 TO 226 STEP 32 

I PRINT* 1, "8-P:"2,I: REM ZEIGER 

: GET* 2,W»: REM FILETYP 

s IF W*="" THEN F=F+1: REM FREI 

NEXT I I REM ALLE EINTR. IM BLOCK 

E(B-1)=8-F: REM EINTRAEGE /BLOCK 

IF F=8 AND M=l THEN 7800: REM LEER 

PRINT "fiENUEBEN":F; "FREIE flIRECTORY-£ 

LAETZE ? "; 

BET A»: IF A*="" THEN 275B 



<248> 
<BB5> 
<004> 
<091> 
<05B> 
<B96> 
<193> 
<1 16. 
<B9B> 
<001> 
<0B5> 
<111> 
<21B> 
<222> 
<167> 
<220> 
<212> 
<176> 
<065> 
<231> 
<172> 

<B43> 
<174> 
<111> 
<BB2> 
<174> 
<22B> 
<B71> 
<227> 
<BB6> 
<176> 

<a<7i> 

<B90> 
<232> 
<017> 

<B31> 
<23B> 
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2760 
2770 
2790 

3000 
3010 
3020 
3030 
3B5B 
3060 
3 IBB 
3110 
312B 
313B 
314B 
3150 
3160 
317B 
31B0 
3190 

3195 
32BB 
3085 
322B 
3230 
3310 
3390 

3990 
40BB 
4010 
4B20 
4021 
4025 
4027 
4030 
4035 
4B40 
4050 
4060 
4100 
4150 
4160 
4170 
4180 
4190 
4191 
4192 

4200 



B=B : REM 
L=19: REM 



IF ASO"N" THEN A*="J" 

PRINT A*: PRINT: PRINT: PRINT 

REM »»»»*»»»»»**»»•»»»*»»»»*»»»*»» 

REM LEERE DIR. BLOECKE FESTST. 

REM »»»»»»»*»»*•»»«»»»»»»»»»»»•»»» 

: 

PRINT* 1, "Ul:"2;Bsl8;0: REM BAM 

PRINT* 1, "B-P:"2,73: REM SPUR IB 

BLOCKZAEHLER 

ZAHL LEERE DIR-BLOECKE 
DIM Z (25) : REM ZUSTAND DER BLOCKS 
FOR 1=1 TO 3: REM BYTES SPUR 18 
: GET* 2, W«: REM BELEGUNGSCODE 
: W=ASC ( W*+CHR* ( ) > 
: FOR J=l TO 8: REM DUALSTELLEN 
: W=W/2 

I IF W~INT<W> THEN Z (B) =1 
1 IF Z<B)=0 AND A»="N" THEN A*="": Z 
(B)=l: REM EINEN BLOCK FREIHALTEN 
I IF Z(B>-1 AND B<19 THEN L=L-1 
: B=B+1 
1 W=INT<W> 
: NEXT J 
NEXT I 

IF L<1 THEN 8000 

PRINT: PRINT: PRINT "£S WERDEN NUN";L 
;" S-OECKE FREIGESTELLT ! " : PRINT 

REM »»»»»»»**#*»»»«»**»»»»»«#»«»» 
REM FUELLEN DER DIR-- BLOECKE 

REM »»*»**»**»»»»»*»»**»**»»»»*#* 

B=0: REM BLOCKZAEHLER, SIEHE OBEN 

FOR E=0 TO ECB>-1: REM EINTR/BLOCK 

AT=T(B): REM ALTER DIR-TRACK 

AS=S(B): NS=AS: REM ALTER SECTOR 

IF AT=0 AND AS=0 THEN 7050 

1=0 

Z=E»32+3: REM STELLE DES ZEIGERS 

R=0: REM MARKE DIR. -BLOCK AENDERN 

PRINT* 1, "U1:"2;0;AT;AS: REM ALT 

PRINT* 1, "B-P:"2,Z: REM ZEIGER 

GET* 2, T*,S«: REM ZEIGER FORTS. 

T=ASC(T*+CHR*(0) ) 

S=ASC <S*+CHR* (0) ) 

IF T=18 THEN 4670: REM BEARBEITET 

IF T=0 OR T>35 OR S>20 THEN Z-l: GOTO 

4520: REM FILEENDE 
FOR 1=0 TO 18 STEP 10: REM SUCHE NAC 
H FREIEM SECTOR IM SECTORABSTAND 



<234> 
<213> 
<226> 
<21B> 
<16B> 
<23B> 
<212> 
<109> 
<00B> 
<210> 
<082> 
<BB4> 
<154> 
<176> 
<B11> 
<2B7> 
<181> 
<203> 

<092> 
<093> 
<071> 
<134> 
<076> 
<010> 
<076> 

<233> 

<156> 
<202> 
<251> 
<222> 
<1B7> 
<163> 
<038> 
<099> 
<166> 
<0B4> 
<173> 
<170> 
<117> 
<111> 
<151> 
<185> 
<003> 
<20B> 
<245> 

<211> 

<037> 



4210 
4212 
4215 
4220 
4230 
4300 
4500 
4510 

4515 

4520 

4525 

4530 

4550 
456B 

4570 
45B0 
4650 
4655 
4660 
4670 
4680 

699B 
7BBB 
7010 
7B2B 
7030 
7B5B 



: IF Z(I)=0 THEN 45B0: REM LEER <196> 
: IF 1=9 THEN GOTO 4230 <056> 

z IF I>8 THEN 1=1-9: GOTO 4210 <096> 
NEXT I <240> 

Z=-l: REM MARKE: SPUR 18 VOLL <231> 
GOTO 4520: REM RUECK OHNE AENDER. <214> 
PRINT* 1, "B-P:"2,Z: REM ZEIGER <237> 
PRINT* 2, CHR*<18);CHR«(I>5: REM ZE 
IGER VERBIEGEN <111> 

IF AT=18 AND AS=NS THEN R=l: REM IN 

DEN BLOCK, AUS DEM GELESEN WURDE <1B1> 
PRINT " <6SPACE>S-0CK"; RIGHTS <" <2SPACE 
>"+STR# < AT) ,3) ; " , "RIGHT* ( " t2SPACE>"+S 
TR*(AS) ,3); 

IF R=l THEN PRINT" (2SPACE>2EIGER";E+1 
;"GEAENDERT": GOTO 4570 

PRINT "<2SPACE> — > C2SPACE> IB, "; RIGHT* 
C " C2SPACE>"+STR* (NS) ,3) 
PRINT* 1, "B-A:"0,18,NS:REM IN BAM 
PRINT* 1, "B-F:"0,AT,AS: REM ALTEN B 
LOCK FREIGEBEN 

Z(I)=1: REM BLOCK IN LISTE BELEGEN 
PRINT* 1, "U2:"2;0;1B;NS:REM RUEC 
AT=T: AS=S: NS=I: REM NORM. BLOCK 
IF Z=-l THEN GOTO 9000: REM OK 
IF ZOl THEN Z=0: GOTO 4100 
NEXT E: REM NEUER DIR.-EINTRAG 
B=B+1: GOTO 4027: REM WEITER MIT NAE 
CHSTEM DIRECTORYBLOCK 

REM *»** ••*••••»*••»»•••••••••••• 

REM FEHLERMELDUNGEN 

REM »»»»»*»#»»»»»*»»***»•«»»«»«»» 



PRINT: PRINT "ES WAREN NICHT GENUG BE 

LEGTE S.OCKS DA." 
7B6B PRINT " SPUR 18 1ST IMMERNOCH TEILWEI 

SE FREI ! " 
7090 GOTO 900B 
7BBB PRINT:PRINT:PRINT"flIE JJISKETTE 1ST LE 

ER!" 
7810 GOTO 9000 
BBBB PRINT "2JJT MIR LEID, DA 1ST NICHTS ZU 

MACHEN. " 
BB1B PRINT "filE GESAMTE SPUR 18 1ST VOLL B 

ELEGT !" 
9BBB PRINT 
9010 CLOSE 1: CLOSE 2: END 

Listing 1. »Disk- Fuller-. Bitte beachten Sie die 
Eingabehinweise auf Seite 159. 



<252> 

<023> 

<128> 
<251> 

<209> 
<254> 
<235> 
<035> 
<109> 
<234> 
<120> 

<087> 
<108> 
<154> 
<130> 
<174> 
<14B> 

<036> 

<099> 
<236> 

<146> 
<194> 

< 162/ 

<160> 
<212> 

<099> 



Schnelle RS232 ohne Hardware 



Bisher gab es mit dem C64 schon Probleme bei 
einer Ubertragungsrate von 1200 bit/s. Ein kleines 
Prog ram m schafft Abhilfe. Mit 4800 bit/s kommt 
Power in die serielle Schnittstelle. 

Im Handbuch des C64 steht gar nichts, im Programmier- 
handbuch nichts Genaues. Was ist mit der sogenannten 
»frei definierbaren« Ubertragungsrate? 

Die RS232 des C64 arbeitet mit einer bitseriellen, 
asynchronen Obertragung. Das heiBt ein Byte wird in Bits 
zerteilt und diese dann uber eine Leitung in Form von Span- 
nungswechseln gesendet. Eine asynchrone Datenuber- 
mittlung verwendet Kennzeichen fur Byteanfang und 
Byteende. Bei manchen Computern konnen die Daten 
wunschweise auch synchron ubermittelt werden. Der Com- 
puter sendet dann keine Start- Oder Stoppbit mehr.es wer- 
den nur noch die Daten iibertragen. Vorteil: Die Ubertra- 
gungszeit verktirzt sich, da die Steuerbits entfallen. 

Beim C 64 ist die Obertragung rein softwaremaBig ge- 
steuert. Er setzt dazu den CIA #2 ein. Dieser Baustein be- 
sitzt zwei 16-Bit-lntervall-Timer, die von einem bestimmten 
Wert auf Null zahlen und dann einen NMI auslosen konnen. 
Das nutzt die RS232-Schnittstelle aus. Die Software holt 



den Wert fur den Timer B, der als Interruptgenerator dient, 
aus einer im ROM gespeicherten Tabelle. Es existieren 
zwei verschiedene Tabellen, aber dazu spater mehr. Diese 
Werte werden in den Timer und in zwei Speicherstellen ge- 
bracht. Danach startet der Timer. 

RS232 mit 4800 bit/s 



Da beim C 64 das Senden und Empfangen uber RS232 in- 
terruptgesteuert geschieht, werden zwei Puffer (Zwischen- 
speicher) benotigt. Einer der beiden Puffer steht fur die zu 
sendenden Daten bereit. Die Daten werden nur in den Puf- 
fer geschrieben. Das Senden geschieht mit Hilfe des NMI- 
Interrupts, weil man ihn (im Gegensatzzum IRQ) nicht sper- 
ren kann. So werden die Daten in jedem Fall gesendet, es 
sei denn, man stoppt den Timer Oder verbiegt den NMI- 
Vektor. Da die Daten in den Puffer geschrieben werden und 
das Beschreiben des Puffers normalerweise schneller geht 
als das Senden der Zeichen, sollte man, nachdem ein Zei- 
chen gesendet wurde, das nachste Zeichen vorbereiten 
und warten, bis der Puffer frei ist. Beachtet man dies nicht, 
konnte versehentlich ein noch nicht gesendetes Zeichen 
uberschrieben werden. Die Folge ware eine fehlerhafte 
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Ubertragung. Das Empfangen geschieht auf ahnliche Wei- 
se, denn die RDX-Leitung (hier gelangen die Daten vom an- 
deren Computer zum C 64) ist nicht nur mit dem Port B 
des CIA #2 verbunden, sondern auch mit dem Eingang 
FLAG der CIA, der einen NMI auslosen kann. Das Empfan- 
gen geschieht also unabhangig vom Programm, daher 
werden die Daten in den Empfangspuffergeschrieben, der 
genauso groB ist wie der Sendepuffer: 256 Byte. Man sollte 
sich also darum kummern, daB die Zeichen rechtzeitig aus 
dem Puffer gelesen werden. Durch die Kernelroutine 
READST (ab $FFB7), oder beim C 64 auch durch Auslesen 
der Speicherstelle $90, laBt sich der Status abfragen. Bei ge- 
setztem Bit 2 lief der Empfangspuffer uber. Urn nun andere 
Obertragungsraten zu benutzen, kbnnten naturlich die 
Werte in den Timer und die entsprechenden Werte in die 
beiden Speicherstellen geschrieben werden. Dies hatte 
nur den groBen Nachteil, daB die so erstellten Programme 
schwer an andere (Commodore-)Computer anzupassen 
waren, da diese nicht die gleichen Speicherstellen benut- 
zen. Aber es geht auch viel eleganter! 
Die RS232-Schnittstelle offneten wir bisher folgender- 
maBen: 

Ida #2 ;Logische Filenuramer = 2 

ldx #2 ; Geratenummer der RS232 

ldy #3 jSekundaradresse (ohne Funktion) 

jsr setpar ; Werte setzen 
Ida #2 ;L§nge des Filenamens 

ldx #<fadr ;Adresse des Filenamens (low) 
ldy #>fadr ;(high) 
jsr setnam ;Name fiir OPEN setzen 
jsr open jDatei Sffnen 

ldx #<ebuf ;Zeiger fQr Empfangspuffer 
ldy #>ebuf ;und 
stx $f7 
sty $f8 
ldx 
ldy 
stx 



#<abuf ;Ausgabepuffer setzen 

# > abuf 

$f9 
sty $fa 

fadr .byte ^00000110 
.byte S500000000 



;Wert fur Steuerregister 
;Wert fiir Befehlsregister 



Ubrigens werden die Zeiger auf die Puffer auch vom Be- 
triebssystem gesetzt. Dieses legt die Puffer an das obere 
Basic-RAM-Ende. Dies ist auch der Grund, weswegen 
beim Offnen der Schnittstelle ein CLR ausgefiihrt wird, 
denn im gleichen Speicherbereich liegen ja auch die 
Stringvariablen. Darum legen wir die Puffer in uns ange- 
nehme Speicherbereiche, was man entweder vor oder 
nach dem OPEN-Befehl machen kann. Vorher deswegen, 
weil das Betriebssystem die Pufferadressen erst festlegt, 
nachdem es in den Speicherstellen nachgesehen hat, ob 
das vom Programm schon gemacht wurde. Ist das High- 
Byte der Pufferzeiger ungleich Null, wird davon ausgegan- 
gen, daB die Zeiger bereits auf die Puffer deuten. Deshalb 
wird nichts mehr verandert. 

Und nun geht's los! 

Der Filename kann auch vier Zeichen lang sein. Die er- 
sten beiden Zeichen behalten ihre Bedeutung bei, aber die 
nachsten beiden beinhalten den Wert fur die Ubertra- 
gungsrate. 

Der Filename sieht also wie folgt aus: 
»Steuerregister« »Befehlsregister« »0bertragungsrate-low« 
»0bertragungsrate-high« 

Wie gesagt, das untere Nibble vom »Steuerregister« muB 
%0000 sein! Die Werte fur »Ubertragungsrate-low« und 
»Ubertragungsrate-high« berechnet man wie folgt: 
Obertragungsrate-high = INT(Prozessortakt/ 
Obertragungsrate/2-100) /256) 



Obertragungsrate-low= INT ( Prozessortakt/ 
Obertragungsrate/2-100-u"bertragungsrate-hignx256) 

Der Prozessortakt betragt bei der deutschen PAL- 
Version 985259 Hertz, bei der amerikanischen NTSC- 
Version 1 022730 Hertz. Das heiBt nichts anderes, als daB 
die Programme auf amerikanischen Geraten schneller lau- 
fen als auf deutschen. Da dies naturlich auch Auswirkun- 
gen auf die Ubertragungskapazitat hat, sind im Betriebssy- 



Steuerregister 


Befehlsregister 


Bit 7: 


Bit 7,6,5: 


1 Stoppbit 


000 keine Paritat 


1 2 Sloppbits 


001 gerade Paritat 




011 ungerade Paritat 




101 8. Datenbit = 1 




111 8. Datenbit = 


Bit 5,6: 


Bit 4: 


00 8 Datenbils 


Vollduplex 


01 7 Datenbits 


1 Halbduplex 


10 6 Datenbits 




11 5 Datenbits 




Bit 0,1,2,3: 


Bit (Handshake): 


0000 selbstdef. Ubertr. 


3-Line (Software-) 


0001 50 bit/s 


1 X-Line (Hardware-) 


0010 75 bit/s 




0011 110 bit/s 




0100 134,5 bit/s 




0101 150 bit/s 




0110 300 bit/s 




0111 600 bit/s 




1000 1200 bit/s 




1001 1800 bit/s 




1010 2400 bit/s 





Tabelle 1. 

Ubersicht der 

Werte fur 

Steuer- und 

Befehlsregister 



stem zwei Tabellen fiir den Timer B vorhanden. Wenn Sie 
nun Programme mit selbstdefinierten Obertragungsraten 
schreiben, sollten Sie immer daran denken, daB diese Pro- 
gramme entweder nur auf dem deutschen oder dem ameri- 
kanischen C 64 richtig laufen, wenn Sie nur eine Tabelle 
verwenden. Durch Auslesen der Speicherstelle $02A6 kon- 
nen Sie ganz einfach feststellen, ob Sie eine PAL- oder eine 
NTSC-Version vor sich haben. Bei einer PAL-Version steht 
in besagter Speicherstelle der Wert 1, bei NTSC eine Null. 
Beispiel: 

Die Ubertragungsrate soil 1800 bit/s betragen. Also 
erhalten wir fiir »Ubertragungsrate-high«: INT((985250/ 





Name 


seq-trans.ob cd00 cded 


cd00 


20 fd ae 20 9e b7 86 02 94 




cd08 


20 fd ae 20 9e ad 20 a6 fc 




cdl0 


bo c9 05 b0 03 4c 08 af 14 




cdl8 


a6 22 a4 23 20 bd ff a9 a0 




cd20 


01 a2 08 a0 02 20 ba ff 95 




cd28 


20 c0 ff 20 b7 ff f0 08 fb 




cd30 


20 cc ff a9 01 4c c3 ff 6d 




cd38 


a2 01 20 c6 ff 20 b7 ff lc 




cd40 


d0 ee a2 01 a0 08 86 22 f 9 




cd48 


84 23 20 cf ff a0 00 91 88 




cd50 


22 e6 22 d0 02 e6 23 20 ac 




cd58 


b7 ff f0 ee 29 40 f0 d0 23 




cd60 


20 30 cd a9 01 a2 02 a0 af 




cd68 


03 20 ba ff a9 04 a2 eS 3b 




cd70 


a0 cd 20 bd ff 20 c0 ff bb 




cd78 


a2 03 bd e9 cd 95 f7 ca 47 




cd80 


10 f8 a2 01 20 c9 ff a2 6b 




cd88 


01 a0 08 86 14 84 15 sd cl 




cd90 


0e dc 29 fe 8d 0e dc 30 34 




cd98 


00 bl 14 24 02 30 15 c9 84 




cda0 


41 90 0f c9 80 b0 04 09 d6 




cda8 


20 d0 07 c9 c0 90 03 38 38 


Listing 1. 


cdb0 


e9 80 29 7f aa ad si 02 b6 


RS232 mit 


cdb8 


29 01 d0 f9 6a 20 d2 ff ca 


■ » ^-^ *— w *— ■■•»* 


cdc0 


e6 14 d0 02 e6 15 a5 22 17 


4800 bit/s. 


cdc8 


c5 14 d0 cb 35 23 c5 15 fs 


Bitte mit dem 


cdd0 


d0 c5 ad al 02 29 01 d0 31 


MSE (Selte 159) 


cdd8 
cde0 


f9 20 30 cd ad 0e dc 09 78 
01 Sd 0e dc 60 00 00 02 dl 


eingeben. 


cde8 


00 00 ce 00 cf ff 00 ff 99 
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4800/2-1 00)/256)=0 und fur »Ubertragungsrate-low«: 
INT(985250/4800/2-100-0x256)=2. Der Filename lautet al- 
so: o/oXXXXOOOO, o/oXXXXXXXX, %00000010, %00000000 
Achtung: Fiir die X-Bits setzen Sie die entsprechenden 
Werte aus der Tabelle 1 ein. 
Ubungen: 

Wir mochten ein sequentielles File mit 4800 bit/s, 7 Da- 
tenbits, 1 Stoppbit, 3-Line-Handshake und keiner Paritat 
senden. Also: Zuerst das sequentielle File in den Speicher 
laden. Jetzt miissen wir noch die RS232-Schnittstelle off- 
nen, wobei wir auf die Abfrage auf PAL- oder NTSC-Version 
verzichten. Das Programm zum Offnen ist bis auf den Fiie- 
namen und dessen Lange von dem altbekannten nicht zu 
unterscheiden. 

jlogische Filenummer = 2 

; Geratenummer der RS232 

;Sekundaradresse 

; Werte setzen 

;der Filename ist 2 Zeichen lang 

jAdresse des Filenamens (low) 

;(high) 

;Name fiir OPEN setzen 

Datei offnen 

; Datei mit der logischen Filenummer 

;#2 als Standardausgabegerat 
Nun miissen Sie einen Zeiger auf den Anfang des in den 
Speicher geladenen sequentiellen Files setzen und die 
Pufferzeiger entsprechend andern. 
(Zeiger »pt« auf Dateianfang setzen) 
sende ldy #0 jaktuelles Zeichen aus dem 

Ida (pt),y j File in den Akku holen 
(Zeichen nun bearbeiten, zum Beispiel in ASCII-Code 
wandeln) 



Ida 


#2 


ldx 


#2 


ldy 


#3 


,]sr 


setlfs 


Ida 


#4 


ldx 


# ( f adr 


ldy 


#) fadr 


jsr 


setnam 


jsr 


open 


ldx 


#2 


jsr 


chkout 



tax 
wloop Ida $02al 
and #1 
bne wloop 
txa 
jsr chrout 



; Zeichen merken 
; ist das vorherige Zeichen 
;bereits gesendet worden? 
jnein: =>warten 
;gemerktes Zeichen zuruckholen 
;auf RS232 ausgeben 
Der Zeiger »PT« muB nun erhoht und auf Fileende gete- 
stet werden. Ist die Datei noch nicht zu Ende, muB wieder 
zum Label SENDE gesprungen werden. 

jsr clrchn ; Standardwerte Ein-/Ausgabe 
Ida #2 ; setzen und Datei schlieBen 
jsr close 



fadr 



rts 
.byte 
.byte 
• byte 
.byte 



;das 
#00100000 
£00000000 
#00000010 
#00000000 



war's! 



Das folgende Programm (Listing 1, bitte mit dem MSE 
eingeben) sendet sequentielle Files mit 4800 bit/s, 8 Daten- 
bits, 1 Stoppbit, keine Paritat, Vollduplex und 3-Line Hands- 
hake. 

Die Syntax lautet: SYS 52480,konv-flag," Name" 

Wenn konv-flag = 0, werden die Zeichen erst in ASCII- 
Code gewandelt und dann gesendet. Bei konv-flag = 128 
erfolgt die Ubertragung unverandert. 

Mit dem Namen ist der Titel der sequentiellen Datei ge- 
meint. »,S,R"« wird vom Programm nicht automatisch er- 
ganzt. Sie miissen es also noch an den Namen anhangen. 
Beispiel: 
SYS 52480,128," TEST,S,R" 

Die Datei TEST wird unkonvertiert gesendet. 

(Martin Miiller/N. Heusler/kn) 



Assembler-Listings 
iibersiditlich ausgedruckt 



Das Drucken einspaltiger Assembler- oder Dis- 
assembler-Listings ist reine Papiervergeudung. 
Die Ubersichtlichkeit des Ausdrucks leidet eben- 
falls. Der »Multi-Lister« bietet fur den Star NL-10 
und Epson-kompatible Drucker eine wirkungs- 
voile Losung. 



Wenn man ein Assembler-Listing mit dem Hypra-Ass 
oder dem SMON ausdruckt, erhalt man einen Berg 
von Papier und argert sich, daB das Papier nur zur 
Halfte bedruckt ist. Der »Multi-Lister« (Listing 1) schafft 
noch mehr: Er druckt bis zu sechs Spalten pro Seite. 

Um den Multi-Lister zu verwenden, muB der zu 
druckende Text beziehungsweise das Assembler-Listing 
zuerst als sequentielles File auf Diskette erzeugt werden. 
Dies klingt komplizierter als es ist. Um beispielsweise ein 
Disassembler-Listing des SMON als sequentielles File auf 
Diskette zu erzeugen, geht man folgendermaBen vor: 
SMON laden. 
NEW 

OPEN 1,8,2, "SMON. TXT, S,W" 
CMD 1 



SYS 49152 

D C000 D000 

X 

PRINT #1 : CL0SE1 

Zuerst wird eine sequentielle Datei geoffnet. Anschlie- 
Bend wird die Ausgabe mit CMD 1 auf diese Datei umge- 
lenkt. Nun startet man den SMON und gibt mit »D C000 
D000« den Bereich von $C000 bis $D000 disassembliert 
aus. Nach dem CMD-Befehl sind Ihre Eingaben nicht mehr 
in gewohnter Weise auf dem Bildschirm sichtbar. Davon 
sollten Sie sich jedoch nicht storen lassen. Wenn der Com- 
puter sich mit READY zuriickmeldet, verlaBt man den 
SMON mit (X) und schlieBt die Datei. 

Nun ladt man den Multi-Lister und startet ihn mit RUN. 

Das Programm meldet sich mit dem Hauptmenu. Im 
AnschluB daran wahlt man durch Drucken der entspre- 
chenden Taste einen der fiinf Menupunkte aus. Mit (1) wird 
der Name der Textdatei abgefragt, die ausgedruckt werden 
soil. Zur Uberprufung des Textes stellt man mit (2) die Aus- 
gabe auf den Bildschirm um. Hierbei wird aber nicht das 
beabsichtigte Druckformat eingehalten, da dieser Punkt 
nur zur Kontrolle dient. 

Mit der Taste (3) gelangt man in ein Untermenu, in dem 
man das Format des Ausdrucks verandern kann. Sie kon- 
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nen dann zwischen der Schriftart »Normal« und »Micro« 
wahlen, die Zeichen pro Spalte, und die Zahl der Spalten 
festlegen. Die Zahl der moglichen Spalten errechnet das 
Programm aus der von Ihnen angegebenen Spaltenbreite. 
Die entsprechenden Einstellungen werden im Hauptmenu 
angezeigt. 

1st alles richtig eingestellt, offnen Sie mit (4) die Listing- 
Datei zum Lesen. Eventuelle Disk-Fehler werden dabei 
abgefangen. AnschlieBend druckt das Programm das 
Listing aus (Bild 1). Dabei kann man mit {— ) den Druckvor- 
gang abbrechen. 

Mit (5) das Programm verlassen. Ein Neustart ist mit 
RUN problemlos moglich. 

Das Programm ist speziell fur den NL-10 geschrieben 
und nutzt die Fahigkeit des Schubtraktors, das Papier auch 
wieder zuruckzuziehen. Das Programm funktioniert also 
prinzipiell auch auf Epson-kompatiblen Druckern, die sol- 
che Fahigkeiten haben. 

Hier die wichtigsten Zeilen fur die Druckeransteuerung: 
1740 Reset und Condensed-Schrift 
1750 Blatt Lange aus 12 Inch 
1770 Line-Feed auf 6/72 Inch 



1780 Superscript 
1820 Linken Rand einstellen 
1890 Reverse Form-Feed 
1900 Form-Feed 

Das kleine Maschinencode-Programm, das ab Zeile 
2290 in Form von DATA-Zeilen vorliegt, ist eine Inform- 
Routine, die den schwachen INPUT #-Befehl im Basic des 
C64 ersetzt. Diese Routine ist frei verschiebbar (Start- 
adresse $AD). 

Urn das Programm etwa fur den Epson FX-85 anzupas- 
sen, muS Zeile 1890 folgendermaBen geandert werden: 
1890 FOR RU = 1 TO 10: PRINT 2#, CHR$ (27) CHR$ 
(106) CHR$(216);: NEXT RU: GOTO 1820 

Der FX-85 kennt namlich nicht den reversen Form-Feed, 
sondern nur einen reversen Zeilenvorschub, der in n /2i6- 
Zoll-Schritten eingestellt werden kann. Durch die FOR- 
NEXT-Schleife wird genau dies 10mal veranlaBt. Um der 
besseren Lesbarkeit willen kann man beim FX-85 durch 
Einfugen der Zeile: 
1745 PRINT#2,CHR$(27) CHR$(71) 

zusatzlich Doppeldruck einschalten. 

(Andreas Elvers/U.Beenen) 



«aor. 


I0BC9 22 It 31 St 21 12 22 12 


cOIH 20 21 22 00 OE 01 92 01 


10449 55 IC 59 20 51 59 31 37 
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Bild 1. Ein Ausdruck mit dem »Multi-Lister«. Er druckt bis zu sechs Spalten auf einer Seite. 



1000 REM ******************** <232> 

1010 REM » MULTI-LISTER * <195> 

1020 REM * <C) 1987 BY » <206> 

1030 REM « ANDREAS ELVERS » <161> 

1040 REM ******************** <01B> 

1050 : <010> 

1060 AD=36864 <043> 
1070 FOR I=AD TO AD+77:READ A: POKE I,A:NEX 

T <141> 
1080 AU*= " 2RUCKER " : T X*= " {R VSON > KE I NE {R VOFF 

>" <200> 

1090 FO*="NORMAL/40/3" <065> 

1100 ZS=40:SP=3 <135> 

1110 OPEN 255,8,15 <239> 
1120 POKE 53280,0: POKE 53281 , 1 1 : PRINT CHR* 

_<14>CHR*<8> <15B> 

1130 : <090> 
1140 PRINT" <CLR, GREY 3,RVS0N, 12SPACE>ZLULTI 

-.LISTER £1.0<11SPACE,RVOFF>"; <153> 
1150 PR_INT"<WHITE>VT'TY TYTYT'rT ,, TYTVT'T'T'T , rTVlY 

1160 PRINT SPC(10) "{3D0WN>£IE HABEN DIE HA 

HL !" <015> 

1170 PRINT SPC ( 10) " {BLACK >YtYtYtYtYtYtYtYt' 

7TTT" <161> 

1180 PRINT"<D0WN,YELL0W,2SPACE>1.) IEXTDAT 

EI{3SPACE>:";TX* <135> 



1190 PRINT" <2SPACE>2.) fiUSGABE AUF : " ; AU* 

1200 PRINT" <2SPACE>3.) FORMAT I ERUNG :"; FO* 

1210 PRINT" <2SPACE>4.) JJtUCKEN ! !" 

1220 PRINT" <2SPACE>5. ) fNDE" 
1230 PRINT" <BLACK>t 

1240 PRINT" {WHITE, DOWN, 4SPACEXC) 3JJLY 19B 

7 BY ANDREAS S-VERS" 
1250 PRINT" {BLACK, 1 1SPACE> WEDDERSTE HEG 6" 
1260 PRINT" {12SPACE>3139{2SPACE>JSATEMIN" 

12B0 : 

1290 

1300 

1310 

1320 

1330 

1340 
1350 
1360 
1370 
1380 



GET A* : I F A*< " 1 " OR A* > " 5 " THEN 1 290 

POKE 214,15:PRINT 

FOR 1=1 TO 5: PRINT" {40SPACE}" ; : NEXT 

POKE 214, 15: PRINT 

ON VAL(A*)GOSUB 1380,1440,1490,1670,2 

090 

GOTO 1140 



PRINT" {2D0WN,BLACK>ilAME DER IEXTDATEI 



1390 LA=16:G0SUB 2140 
1400 TX*=T*:RETURN 



<001> 
<17B> 
<103> 
<131> 

<139> 

<170> 
<038> 
<149> 

<121> 
<242> 
<1B3> 

<088> 
<044> 
<108> 

<148> 
<154> 
<056> 
<066> 
<076> 

<057> 
<007> 
<171> 
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141(9 


. 


<116> 


1890 


PRINT#2,CHR*(27)CHR*(12>; : GOTO 1820 


<100> 


1420 


: 


<126> 


1900 


PRINT#2,CHR*(12);:G0T0 1800 


<030> 


1430 


: 


<136> 


1910 


: 


<108> 


1440 


IF AU*=",SRUCKER"THEN AU*="£ILDSCHIRM" 




1920 


CLOSE 1: CLOSE 2: RETURN 


<135> 




: RETURN 


<164> 


1930 


PR I NT " {DOWN , WH I TE , 5SP ACE > SI SK-fEHLER . 




1450 


AU*= "TRUCKER" : RETURN 


<025> 




.. (RETURN)"; 


<172> 


1460 


: 


<166> 


1940 


LA=0:GOSUB 2140:CLOSE 1 : RETURN 


<245> 


1470 


: 


<176> 


1950 


• 


<148> 


1480 


: 


<186> 


1960 


: 


<15B> 


1490 


PRINT" {DOWN>.§CHRIFTART (£> ORMAL/ (fl) IC 




1970 


OPEN 1,8,2,TX*:INPUT#255,FE 


<051> 




RO: {2SPACE,2LEFT>"; 


<229> 


1980 


IF FEO0 THEN 1930 


<001> 


1500 


LA=!:GOSUB 2140 


<171> 


1990 


PRINT" {CLR>"; 


<150> 


1510 


IF T*="N"THEN FO*= "NORMAL/ ": GOTO 1540 


<053> 


2000 


SYS AD, 39 


<147> 


1520 


IF T*="M"THEN FO*=" MICRO/": GOTO 1540 


<096> 


2010 


GET A*: IF A*="«-"THEN 2030 


<219> 


1530 


PRINT" <2UP>" ; : GOTO 1490 


<054> 


2020 


IF PEEK (250)0222 THEN 2000 


<005> 


1540 


PRINT" {DOWN >2E I CHEN PRO 5PALTE (1-134 




2030 


PRINT" {DOWN, 2SPACE>*« ENDE »*" 


<023> 




) : <3SPACE , 3LEFT > " ; 


<000> 


2040 


GET A*: IF A*=""THEN 2040 


<217> 


1550 


LA=3:G0SUB 2140 


<031> 


2050 


CLOSE 1: RETURN 


<145> 


1560 


ZS=INT<VAL(T*))5lF ZS<1 OR ZSM34 THE 




2060 




<004> 




N PRINT" <2UP>";: GOTO 1540 


<172> 


2070 




<014> 


1570 


FO*=FO*+MID*(STR*(ZS) ,2,3)+"/" 


<054> 


2080 




<124> 


1580 


MS=INT ( 136/ (ZS+2) ) 


<109> 


2090 


POKE 53280, 14: POKE 53281 ,6: PRINT" {CLR 




1590 


PRINT" <DOWN>HIEVIELE SPALTEN (1-";MS; 






,LI6.BLUE>"; 


<255> 




" CLEFT > ) : {SPACE , LEFT > " ; 


<028> 


2100 


CLOSE 255: END 


<030> 


1600 


LA=2-.G0SUB 2140 


<049> 


2110 




\VUt ,' 


1610 


SP=VAL(T*> 


<178> 


2120 




<064> 


1620 


IF SP<1 OR SP>MS THEN PRINT" {2UP>" ;: G 




2130 




<074> 




OTO 1590 


<U4> 


2140 


T*="":L=0 


<099> 


1630 


FO*=FO*+T*: RETURN 


•:044> 


2150 


PR I NT "■&"; 


<073> 


1640 


: 


<092> 


2160 


GET A*: IF A*=CHR* (20) THEN 2220 


<041> 


1650 


I 


<102> 


2170 


IF A*=CHR*(13)THEN PRINT CHR* (20): RET 




1660 


: 


<112> 




URN 


<105> 


1670 


IF TX*="{RVSON>KEINE{RVOFF>"THEN RETU 




21B0 


IF A*<CHR*(32)0R A*>"t"THEN 2160 


<020> 




RN 


<052> 


2190 


IF L=LA THEN 2160 


<242> 


1680 


IF AU*="aiLDSCHIRM"THEN 1970 


<052> 


2200 


T*=T*+A«: L=L+1 


<246> 


1690 


PRINT " {2D0WN , 2SP ACE > iCH DRUCKE ..." 


<061> 


2210 


PRINT" {LEFTVA*;: GOTO 2150 


<211> 


1700 


PRINT" {DOWN, SPACE >Z1JM STOPPEN BITTE ' 




2220 


IF L=0 THEN 2160 


<220> 




«-• DRUECKEN. " 


<048> 


2230 


L=L-1:T*=MID*(T*,1,L> 


<024> 


1710 


OPEN 1,8,2,TX»: INPUT#255,FE 


<045> 


2240 


PRINT CHR* (20) CHR* (20) ; 


<053> 


1720 


IF FEO0 THEN 1930 


<251> 


2250 


GOTO 2150 


<086> 


1730 


OPEN 2,4,1 


<200> 


2260 




<204> 


1740 


PRINT#2,CHR*(27)"e"sCHR*(27)CHR*(15>; 


<143> 


2270 




<214> 


1750 


PR INT#2 , CHR* (27 ) CHR* (67 ) CHR* <0 ) CHR* ( 1 




2280 




<224> 




2>l 


<126> 


2290 


DATA 32,253,174,32,158,183,134,250,16 




1760 


IF MID*(FO*,l,l)="N"THEN ML=62s60T0 1 






2,1,32,198,255,166,250,32,207,255,157 


<143> 




790 


<050> 


2300 


DATA 60,3,201,13,240,12,36,144,112,36 




1770 


PRINT#2,CHR*(27)CHR*(65)CHR*(6); 


<246> 




,202,208,239,169,13,157,60,3,32,204 


<0B4> 


1780 


PRINT#2,CHR*(27)CHR*(83)"0";:ML=128 


<113> 


2310 


DATA 255,162,2,32,201,255,166,250,189 




1790 


DF=INT < ( 136-SP*ZS) /SP) 


<206> 




,60,3,32,210,255,189,60,3,202,201,13 


<157> 


1800 


N=1:Z=1 


<094> 


2320 


DATA 208,242,32,204,255,96,202,169,13 




1810 


: 


<008> 




,157,60,3, 169,222,133,250,208,240,0 


<135> 


1820 


PRINTl*2,CHR*(27>CHR*(108>CHR*(N>s 


<234> 








1830 


SYS AD,ZS 


<192> 








1840 


IF PEEK (250) =222 THEN 1920 


<039> 








1850 


GET A*: IF A*="«-"THEN PRINT#2, " {2SPACE 










1B60 
1870 


>«»» BREAK »»«":GOTO 1920 
Z=Z+1:IF Z<ML THEN 1830 
N=N+DF+ZS:Z=1 


<192> 
<221> 
<090> 


Listing 1. »Multi-Lister« schafft Ubersicht bei SMON- 
und Hypra-Ass-Ausdrucken. 


1880 


IF NM36-ZS THEN 1900 


<117> 


Bitte mit dem Checksummer (Seite 159) eingeben. 
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C64 



Hypra-Comp bringt 
neuen Schwung 




Zugegeben - das Basic 2.0 des C64 ist nicht die 
schnellste aller Basic-Versionen. was es fiir man- 
che Anwendungen ungeeignet erscheinen laBt. 
Mit »Hypra-Comp« sind Sie dieser Probleme ent- 
hoben, da dieser Compiler aus Basic-Pro- 
grammen schnellen Maschinen-Code erzeugt. 



H 



I ypra-Comp ist ein Basic-Compiler, der nahezu das 
|gesamte Basic-Vokabular des C64 in Maschinen- 
sprache ubersetzen kann. Da Hypra-Comp im Ge- 
gensatz zu manchen anderen Basic-Compilern reinen 
Maschinencode erzeugt, ist ein compiliertes Programm bis 
zu "lOmal schneller als sein Quellprogramm. In Tabelle 1 
sehen Sie einen Geschwindigkeitsvergleich zwischen 
einer compilierten und einer uncompilierten Version eines 



Sortierte 


Feld fullen 


Feld sortieren 


Elemente 


normal compiliert 


normal compiliert 


10 


0,22 


0,1 


2,15 


0,32 


50 


0,82 


0,48 


13,6 


2,8 


100 


1.6 


0,97 


29,0 


5,6 


500 


8.1 


4.8 


172 


33,8 



Tabelle 1. Die Laufzeiten des uncompilierten und des com- 
pilierten Quicksort-Programms (Listing 3) in Sekunden 

Quicksort-Algorithmus (Listing 1). Auch der Hilbert-Algo- 
rithmus (Listing 2), der eine Grafik wie in Bild 1 liefert, wird 
erstaunlich beschleunigt. Das Besondere an Hypra-Comp 
ist allerdings, daB er selbst fast vollstandig in Basic 
geschrieben ist und sich vor der Benutzung erst einmal 
selbst compilieren muB. 

Urn mit Hypra-Comp arbeiten zu konnen, miissen Sie 
zunachst das Basic-Listing »Hypra-Comp« (Listing 3) mit 
dem Checksummer V 3.0 und den Maschinenspracheteil 
»RUNTIME« (Listing 4) mit dem MSE abtippen und auf eine 
ansonsten leere Diskette speichern. (Bitte beachten Sie 
hierbei die Eingabehinweise auf Seite 159). Es ist bereits 



jetzt moglich, Programme mit Hypra-Comp zu compilieren, 
doch wird die voile Geschwindigkeit beim Ubersetzen erst 
dann erreicht, wenn sich das Programm selbst compiliert 
hat. Dazu laden Sie den Compiler mit 
LOAD "HYPRA-COMP", 8 

von der Diskette und starten ihn mit RUN. Geben Sie auf die 
Frage nach dem Namen des Quelltextes »HYPRA-COMP« 
ein. Nun erfragt der Compiler die Langen einiger Variablen. 
Diese sind in der Reihenfolge, in der sie erfragt werden, 
in Tabelle 2 aufgefuhrt. Die ebenfalls in Tabelle 2 aufgefuhr- 
ten Bemerkungen iiber die einzelnen Variablen sind im 
Moment nicht weiter wichtig, und nur fiir denjenigen inter- 
essant, der den Compiler naher analysieren will. 

Sobald sich der Compiler selbst ubersetzt hat, was 
einige Zeit dauert, steht das compilierte Programm »C- 
HYPRA-COMP« zur Verfiigung. Mt ihm konnen nun nor- 
male Basic-Programme in Maschinensprache ubersetzt 
werden. 

Bei der Ubersetzung mussen Sie in zwei Schritten vorge- 
hen: 
1. Vorbereitung fiir eine Ubersetzung 

Da der Compiler nicht alle Befehle ubersetzen kann, 
mussen zunachst folgende Befehle ersetzt Oder entfernt 
werden: 

RUN, SAVE, VERIFY, CONT, LIST, NEW, DEF 

Da diese Befehle in der Regel nicht in Basic-Program- 
men vorkommen oder im Fall von DEFFN leicht zu ersetzen 
sind, sollte diese Hiirde nicht schwer zu meistem sein. 

Danach mussen Sie sich vergewissern, daB alle Feldva- 
riablen mit DIM im Programm dimensioniert werden, und 
zwar in einer Zeile, die sich vor derjenigen befindet, in wel- 
cher die Feldvariable zum ersten Mai benutzt wird. Zu 
beachten ist, daB beim DIM-Befehl nur einfache Zahlen, 
jedoch keine Ausdriicke Oder Variablen verwendet werden 
durfen. (Zum Beispiel ist DIM A% (1,3, 3) erlaubt, wahrend 
DIM A (X) oder DIM A (3 • 5) zu einer Fehlermeldung fuhren 
wurde.) Falls der Compiler auf eine Feldvariable stoBt, ohne 
vorher eine dazugehorige DIM-Anweisung zu erreichen, 
fragt er den Benutzer nach der Dimensionierung. 
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Fur seine Arbeit benotigt der Compiler die maximale 
Lange aller im Programm verwendeten Strings, die er bei 
der Compilation abfragt. Dem liegt das Prinzip zugrunde, 
daB im Compilat (das ist das ubersetzte Programm) alle 
Strings teste Platze im Speicher haben, wodurch die zeit- 
aufwendige Garbage Collection entfallt. Falls Sie die maxi- 
male Stringlange nicht ermitteln konnen Oder wollen, 
geben Sie eintach den groBtmoglichen Wert 255 an. Wenn 
das zu compilierende Programm jedoch sehr groB ist, oder 
wenn die Lange der Strings eines Stringfeldes angegeben 
werden soil, ist es ratsam, die maximale Lange genau zu 
bestimmen, urn Speicherplatz zu sparen. Beispiel: 

10 INPUT A$ 

20 K0$=" TEST-TEST" 

30 DIM C$(3) 

«40 FOR 1=0 TO 3 

50 READ C$(I) 

60 PRINT A$,K0$,C$(I) 

70 NEXT I 

80 DATA DIES, SIND, DIE, DATEN 
Erklarung: Die Variable A$ hat eine maximale Lange von 
80 Zeichen, weil mit INPUT keine langeren Texte eingege- 
ben werden konnen. Die Variable KO$ hat eine maximale 
Lange von neun Zeichen, da sie nach Zeile 20 nicht mehr 
verandert wird. Die Elemente des Feldes C$ (..) haben eine 
maximale Lange von funf Zeichen, da sie uber READ ein- 
gelesen werden und die Texte in der DATA-Zeile nicht langer 
als fiinf Zeichen sind. 
2. Compilation 

Nach der Vorbereitung kann nun der Compiler an die 
Arbeit gehen. Dazu muB das zu compilierende Programm 
und das File »RUNTIME« auf einer Diskette stehen, auf der 
noch reichlich Platz ist (zirka das Dreifache der Lange des 
zu compilierenden Programms). Nun wird Hypra-Comp 
geladen und gestartet. Nach der Eingabe des Quellpro- 
gramm-Namens beginnt der Compiler mit Pass 1 , wobei er 
die aktuelle Zeilennummer anzeigt. An den Stellen, wo er 
auf noch nicht benutzte Strings Oder nicht dimensionierte 
Feldvariablen stoBt, fragt der Compiler die oben erwahnten 
beschriebenen Werte ab. Beispiel: 

10 DIM A (12, 4) 

20 A (3, 0) = 1.45 

30 B% (7) = 30000 

40 A$ = "TEST-TEST" 

50 DIM A$ (2, 2, 2) 

60 A$ (1, 0, 0) = A$ + A$ 



Variablenname 


Lange 


(Bemerkung) 


TR 


5 


Variable fur Zahlen im MFLP-Format 


COS 




CHR$(0) 


GES 




CHR$(34) 


NA$ 


20 


Programmname 


CHS 




Variable fur alle GET* 


VA$() 




Feld fur alle Variablennamen 


1$ 




Hilfsvariable 


J$ 




Hilfsvariable 


ZLS 




Zeilennummer Lo 


ZH$ 




Zeilennummer Hi 


KOS 


80 


Speicher fiir Stringkonstanten des 
Quellprogramms 


HLS 


2 


Adresse im Hi/Lo-Format 


N1$ 


1 


Variablenname LBuchstabe 


N2$ 


1 


Variablenname 2.Buchstabe 


N3S 


1 


Variablentyp 


VAS 


3 


N1$ + N2S + N3S 


AR$() 


3 


Adressen der Maschinenroutinen 


PR$() 


1 


Daten der Datei £S 



Abf rage des Compilers: 


Eingabe: 


Feld B%(...): 


Anzahl der Dimensionen: 


1 




Dimension Nr.1: 


10 




(Dies wird nur abgefragt, weil das Feld 






B°/o ( ) nicht mit DIM dimensioniert 






wurde) 




Variable AS: 


Lange: 

(Sofern AS im weiteren Verlauf des 

Programms nicht gr6Ber werden kann.) 


9 


Variable A$(...): 


Lange: 

(Falls keinem Element des Feldes 
beim Programmlauf eine Zeichenkette 
zugewiesen wird, die ISnger als 18 Zei- 
chen ist. (AS+AS= Zeile 60)) 


18 



Tabelle 2. Die beim Ubersetzen von »Hypra-Comp« einzuge- 
benden Variablenlangen mit ihrer Bedeutung 



Nach Pass 1 bearbeitet der Compiler das Programm 
ohne weitere Eingaben. Sollte er auf einen Fehler stoBen, 
so wird diesergemeldet und die Compilation abgebrochen. 
Am Ende von Pass 1 gibt der Compiler den fur Konstanten, 
Variablen und DATAs benotigten Speicherplatz an. Am 
Ende von Pass 2 folgt die Angabe der Lange des reinen 
Programms, sowie die Zeilenzahl des Quellprogramms. 
Falls keine Fehler auftraten, meldet sich Hypra-Comp nach 
Ausfuhrung von Pass 3 mit READY. Das Compilat steht von 
nun ab unter »C-NAME« auf der Diskette und kann wie ein 
normales Basic-Programm geladen und gestartet werden. 
Programmbeschreibung 

Der Compiler arbeitet grab beschrieben so: Zuerst wer- 
den die Adressen aller Variablen festgelegt (Pass 1). AuBer- 
dem werden alle Konstanten und DATAs vom Programm 
getrennt in spezielle Datenfiles geschrieben. Danach wer- 
den in Pass 2 alle Befehle in Sprunge in die entsprechen- 
den Unterprogramme umgesetzt, die im Maschinencode- 
Teil »RUNTIME« zu finden sind. Die Ausdriicke, die im Pro- 
gramm auftauchen, werden dabei so umgewandelt, daB sie 
im laufenden Programm schnell abgearbeitet werden kon- 
nen (UPN-Notation). 

So arbeitet Hypra-Comp 

Nach Pass 2 ist das Maschinenprogramm fast fertig, in 
Pass 3 werden nur noch Programmspriinge ubersetzt, die 
zu hoheren Zeilennummem verzweigen (z.B.: 10 GOTO 30). 
SchlieBlich erfolgt noch die Verbindung aller Einzelfiles 
(SYS-Zeile; Runtime; Konstante; DATAs und das Maschi- 
nenprogramm). Die erwahnten Dateien, die nach der Com- 
pilation geloscht werden, also nur beim Compilationsab- 
bruch auf der Diskette bleiben, haben folgende Namen: 

»£S« 
enthalt die SYS-Zeile, die beim Auflisten des Compilats 
sichtbar wird, sowie eine Initialisierungsroutine fiir die 
Variablen im Compilat. 

»£1«, »£2«, »£3« 
enthalten das Programm in verschiedenen Entwicklungs- 
stufen (Nach Pass 1, 2 und 3). 

»£K« 
enthalt alle Konstanten des Quellprogramms. 

»£D« 
enthalt alle DATAs des Quellprogramms. 

»£X« 

besteht aus den Dateien »£K« und »£D« 

Hypra-Comp benutztzurBeschleunigung der Arbeitsge- 
schwindigkeit des Compilats einige Techniken, die von der 
normalen Abarbeitung von Basic-Programmen abweichen 
und dadurch eventuell zu Schwierigkeiten beim Compilat 
fiihren konnen. Diese lassen sich jedoch umgehen. Die 
nachstehenden Erlauterungen sind Ihnen sicher eine gute 
Hilfe: 
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Schnelle Integer-Beredniungen 



1. Integerarithmetik 

Der Basic-Interpreter stellt zwarlntegervariablenzurVer- 
fiigung, die im Speicherauch im Integerformatgespeichert 
werden; samtliche Rechnungen werden aber im FlieBkom- 
ma-Format durchgefiihrt. 

Damit geht der Geschwindigkeitsvorteil, den Integerva- 
riablennormalerweisebieten.verloren. Hypra-Comp dage- 
gen benutzt bei den Grundrechenarten, bei Vergleichen 
und bei logischen Operationen (AND, OR) spezielle Inte- 
gerroutinen, falls beide Operanden Integerzahlen oder 
-variablen sind. Beispiel: 
10 PRINT 3 *k% + B% - -k 

Das Compilat berechnet nun 3 * A% im Integer-Format, 
addiert im Integerformat B%, wandelt das Ergebnis ins 
FlieBkomma-Format und subtrahiert davon den Wert w. 
Wegen dieser Eigenart des Compilers kann es bei compi- 
lierten Programmen zu folgenden Problemen kommen: 

a) Uberlauf bei Addition und Multiplikation 

Beispiel: PRINT A% * 256. Das Compilat rechnetim Inte- 
gerformat, da beide Argumente ganze Zahlen sind. 1st A% 
nun groBer als 127, so wird das Ergebnis groBer als 32767, 
es kann folglich nicht mehr im Integerformat dargestellt 
werden. Daher wurde das Compilat im Gegensatz zum 
Quellprogramm, das im FlieBkomma-Format rechnet, 
einen falschen Wert ausgeben. 

b) Rundung bei Divisionen 

Beispiel: PRINT 9 / 4. Das Compilat rechnet wiederum im 
Integerformat und gibt 2 statt 2.25 aus, weil bei der Integer- 
rechnung nur ganze Zahlen auftreten. 

Probleme treten also immer dann auf, wenn eine Rech- 
nung mit zwei lntegerzahlen/-variablen erfolgt, deren Er- 
gebnis nicht als Integerzahl darstellbar ist. Man muB an 
den entsprechenden Stellen mindestens eines der beiden 
Argumente in eine FlieBkommazahl umwandeln. Sie soil- 
ten also in Beispiel Nummer 1 entweder statt »A%« »A« 
benutzen oder an die Zahl 256 einen Punkt anhangen 
(256.). Dies beeinfluBt den Interpreter nicht, aber der Com- 
piler behandelt die Zahl jetzt als FlieBkomma-Konstante. 
A% * 256. wird, weil nicht beide Argumente Intergerzahlen 
sind, im FlieBkomma-Format gerechnet, und so wird das 
gewunschte Resultat erzielt. 

2. GOSUB - RETURN 

Aufgrund einer einfacheren und schnelleren GOSUB - 
RETURN-Bearbeitung sind abgebrochene FOR - NEXT- 
Schleifen nicht mehr moglich. Beispiel: 
10 FOR A=l TO 10 : GOSUB 30 : NEXT 
20 END 
30 FOR 1=1 TO 20 : RETURN 

Der Interpreter akzeptiert diesen Unsinn und bezieht das 
NEXT auf das FOR in Zeile 10 und nicht auf das in Zeile 30. 
Das Compilat dagegen schlieBt bei RETURN die noch offe- 
nen FOR - NEXT-Schleifen nicht. Es wurde also das NEXT 
in Zeile 10 auf das FOR in Zeile 30 beziehen und sich an die- 
ser Konstruktion »aufhangen«. 

3. DATA-Bearbeitung 

Der Compiler nimmt bei den DATAs eine Vorubersetzung 
vor und legt alle Zahlen im MFPT- oder Integerformat im 
Speicher ab. Dadurch kdnnen numerische DATAs nur noch 
in Zahlenvariablen hineingelesen werden, nicht aber in 
Stringvariablen. Beispiel: 
10 READ A$ 
20 DATA 12345 

Eine solche Konstruktion wurde das Compilat mit einer 
Fehlermeldung quittieren. Urn diese Klippe zu umschiffen, 
miissen einfach Anfiihrungszeichen um die Zahl gesetzt 
werden: DATA "12345". "12345" wird vom Compiler als 




Bild 1. Das grafische Ergebnis des Hilbert-Algorithmus aus 
Listing 2 wird deutlich schnelier erzeugt 

String erkannt und entsprechend gespeichert. Es kann in 
String-, aber nicht mehr in Zahlenvariablen eingelesen wer- 
den. 
4. Verandertes Input/ Inputs 

Beim Input-Befehl verhalt sich das compilierte Pro- 
gramm etwas anders als das ursprungliche Basic-Pro- 
gramm. Beim Einlesen von Zahlenvariablen wird kein 
»?REDO FROM START, ausgegeben, falls die Eingabe 
Buchstaben enthalt, weil einer Zahlenvariablen immer der 
Wert VAL(Eingabe) zugewiesen wird. Bei alien Eingaben 
entfallt ein -7EXTRA IGNORED", da alle eingegebenen 
Zeichen bis zum (RETURN) der Variablen zugewiesen wer- 
den. Anfiihrungszeichen, Kommata und Doppelpunkt 
haben keine Sonderbedeutung mehr. Sie miissen beim 
Compilat alle Angaben, die mit einer Input-Anweisung 
gelesen werden sollen, durch (RETURN) trennen. 

Beispiel: 
10 INPUT A$, B, C% 
20 PRINT A$ : PRINT B : PRINT C% 

Eingabe: TEXT, 10.45, l (RETURN) 



Basic-Programm gibt aus: 


Compilat gibt aus: 


Text 
10.45 

1 


Texl,10.45,1 





Dieses Problem kann man umgehen, indem man fur jede 
Variable einen eigenen Input-Befehl benutzt. 

5. LOAD-Befehl 

Beim Nachladen von Programmen gibt es nur dann Pro- 
bleme, wenn mit LOAD "Name", 8 ein weiteres Basic-Pro- 
gramm gestartet werden soil. In diesem Fall muB das nach- 
geladene Programm ebenfalls mit Hypra-Comp compiliert 
sein, sonst stiirzt das Programm ab. 

6. Fehlerhafte Basic-Programme 

Hypra-Comp entdecktzwarsyntaktische, aber keine logi- 
schen Fehler. Diese Fehler, die im Basic-Programm zu nor- 
malen Fehlermeldungen fiihren wiirden, kdnnen das Com- 
pilat zum Absturz bringen. Deshalb sollten die zu uberset- 
zenden Programme griindlich ausgetestet sein. 

(Armin Biernaczyk/sk) 



78 



SONDERHEFT 24 



iJ^HJ* 



C64 



TOOLS GEMISCHT 



100 DIM F7.U0BB) ,L7.(50) ,RX(5B> 


<181> 


910 : 




<124> 


105 INPUT"fiNZAHL DER S.EMENTE: ";NX 


<09B> 


10000 




<070> 


110 PRINT"££LD FUELLEN. . . <2SPACE>" ; sT=TI 


<226> 


10001 • 


REM INITIALISIEREN 


<155> 


130 FOR 1 = 1 TO NX:FX ( I ) =RND< 1) »32000:NEXT 


<020> 


10002 




<072> 


140 T=TI-T: PRINT T/60"SEC" 


<012> 


10005 POKE 56576, 198: POKE 56578,63 


<056> 


160 PRINT" F£LD SORTIEREN... ";!T=TI 


<065> 


10020 POKE 53272, 120: POKE 648,92 


<240> 


180 LX(1)=1:RX<1>=NX:TX=0:GOSUB 500 


<230> 


10030 POKE 53265,187: IX=24576 


<066> 


190 T=TI-T: PRINT T/60"SEC" 


<062> 


10040 POKE IX, 


<017> 


220 GOTO 105 


<052> 


10045 


X=IX+1:IF I7.<=32575 GOTO 10040 


<140> 


230 : 


<206> 


10047 


X=23552 


<075> 


500 T7.=T7.+ 1 : I F LX ( TX > >=R7. < T7. ) THEN 600 


<176> 


10050 POKE IX, 16 


<118> 


5 1 L7.=L7. ( T7. ) : R7.=R7. ( TX > : VX=FX ( ( LX+R7. ) / 2 ) 


<18B> 


10052 


tX=IX+l:IF I •/.< =24551 GOTO 10050 


<238> 


520 IF L7.>R7.THEN 5B0 


<18B> 


1 0055 MX= 1 : AX= 4 : BX= 1 : YX= 1 70 : XX=60 


<040> 


530 IF FX(LXKVXTHEN LX=LX+l:GOTO 530 


<220> 


10057 MX (0X)=1 


<121> 


540 IF FX(RX)>V7.THEN R7.=R7.- 1 : GOTO 540 


<175> 


10062 BX(7)=1:BX(6)=2:BX(5)=4:BX(4)=8:BX(3 




550 IF L7.>R7.THEN 580 


<218> 




=16:BX(2)=32:BX(1)=64:BX(0)=12B 


<163> 


560 H7.=F7. ( LX > : F7. ( L7. ) =F7. ( R7. ) : F7. ( R7. ) =H7. 


<095> 


10070 RETURN 


<222> 


570 L7.=L7.+ 1:R7.=R7.-1:G0T0 520 


<049> 


1BB75 




<145> 


580 R7. ( T7.+ 1 ) =R7. : LX ( TX+ 1 > =LX ( TX ) : GOSUB 500 


<153> 


1B077 




<147> 


590 LX(TX+1>=LX:RX(TX+1)=RX(TX): GOSUB 500 


<223> 


10078 


REM PLOT 


<155> 


600 TX=TX-1: RETURN 


<136> 


1B08B 




<150> 


Listing 1. Das »Quicksort«-Programm fur den 




11000 JX=(XXAND 504)+40*(YXAND 24B)+(YXAND 
7) +24576 


<063> 


Geschwindigkeitsvergleich in Tabelle 1. 




11020 POKE JX,PEEK(JX)OR BX(XXAND 7):RETUR 




Bitte mit clem Checksummer (Seite 159) eingeben. 


N 


<133> 






11400 
11401 




<200> 
<201> 












REM MOVE 


<058> 
<203> 




11403 


1 DIM MX (7): DIM BX(7) 


<1B4> 


11410 


IX=MX 


<085> 


10 INPUT"TIEFE (1-7)"; OX 


<043> 


11420 ON MX AND 3 GOTO 11520,11540,11560 


<190> 


20 IF 0X<1 OR 0X>7 THEN 10 


<236> 


11440 




<240> 


30 MX=2t(7-0X) 


<050> 


11500 


< X= X X+ 1 : GOSUB 1 1 000 


<067> 


90 : 


<066> 


11505 


IX=IX-1:IF IXTHEN 11500 


<165> 


100 : 


<076> 


11510 RETURN 


<136> 


101 : REM HAUPTPROGRAMM 


<170> 


11520 


|'X=YX- 1 : GOSUB 1 1 000 


<253> 


102 : 


<078> 


11525 


IX=IX-1:IF IXTHEN 11520 


<191> 


120 GOSUB 10000: GOSUB 200: POKE 198,0: WAIT 




11530 RETURN 


<15B> 


198,1: GOSUB 14000: GOTO 10 


<165> 


11540 


«X=XX- 1 : GOSUB 1 1000 


<237> 


130 : 


<106> 


11545 


I X= I X- 1 : I F I XTHEN 11540 


<215> 


160 : 


<136> 


11550 RETURN 


<178> 


165 : REM HILBERT-PROZEDUR 


<144> 


11560 


CX=YX+1: GOSUB 11000 


<165> 


170 : 


<146> 


11565 


IX=IX-1:IF IXTHEN 11560 


<239> 


200 IF O7.=0 THEN OX=OX+BX: RETURN 


<244> 


11570 


RETURN 


<198> 


205 WX-WX-WX ( 07. ) : OX=OX-BX : WX ( 07. ) =-WX ( OX+BX 




13140 




<162> 


) : GOSUB 200 


<233> 


13150 




<172> 


220 GOSUB 11400:MX=MX+MX(OX> :07.=0X-BX: WX<0 




14000 


=OKE 53265,27: POKE 53272,21 


<243> 


7. ) =WX < OX+BX ) : GOSUB 200 


<10B> 


14005 


°OKE 648,4 


<159> 


26B GOSUB 1 1 4B0 : 07.=07.-BX : MX < OX ) =M7. ( OX+BX > : 




14010 


=OKE 56578, 63:P0KE 56576,151 


<239> 


GOSUB 200 


<037> 


14020 


RETURN 


<106> 


280 MX=MX+MX ( OX ) : GOSUB 1 1 4BB : 07. = 07. - BX : MX ( 
X) =-MX (OX+BX) : GOSUB 2BB 


<081> 


Listing 


2. Auch die Berechnung des Hilbert- 




290 MX=MX-MX (OX ) : OX=OX+BX : RETURN 


<026> 


Algorithmus bekommt Schwung. 




900 : 


<114> 


Bitte mit dem Checksummer (Seite 159) eingeben. 



10 REM HYPRA-COMP 

11 REM VON ARMIN BIERNACZYK 

12 REM AN DER PAPENBURG 41 

13 REM 4630 BOCHUM 6 

14 REM TEL. (0 23 27) 3 55 76 

15 : 

100 GOSUB 2210: GOSUB 8B1B:END 
13B : 
1BB1 : 

1002 : REM PASS 1 INITIALISIERUNG 

1003 : 

1010 POKE 53280, 14: POKE 532B1 ,6: TR*=" 1234" 

+ " 5 " : C0*=CHR* ( ) : GE«=CHR* ( 34 ) 
1015 PRINT" CCLR,DOMN,LIG. BLUE, RVS0N,4SPACE 

>»»»» BASIC V2 COMPILER VI. 4 *»»»<4SP 

ACE>" 
1025 INPUT" C2D0MN,5SPACE>PROGRAMMNAME :";N 

A*:OPEN 1,8, 15, "S: f?":OPEN 2,8,2,NA*+ 

",P,R" 
1030 INPUT#1,A:CL0SE 2: CLOSE 1:IF A=0 THEN 

1050 
1032 PRINT" DISK ERROR < SPACE >" 
1040 GET CH*:ON(CH*=" " ) +2 GOTO 1015,1040 
1050 PRINT" CDOMN,YELLOM>PASS 1 <LIG. BLUEV : 

OPEN 1,B,15,"UJ" :FOR 1=1 TO 3000: NEXT 

: CLOSE 1 



<188> 


1058 


<000> 


1060 


<148> 




<028> 




<212> 


1070 


<247> 


1075 


<077> 




<106> 


1B80 


<215> 




'000 


1097 


<217> 


109B 




1099 


<241> 


1210 



<225> 



<173> 

<252> 
<176> 
<1B8> 



<105> 



OPEN 5,8,5, "fD,P,M":PRINT#5: CLOSE 5 
OPEN 2,8,2,NA*+",P,R":GET#2,CH*,CH*:0 
PEN 4,8,4,"fK,P,M":0PEN 3,8,3, " £1 ,S,M 

PRINT#4:DIM DIX(3) ,VA*(120) ,VA(120) 

DFX=0: VZX=0: DZX=0: VA=40960: AN=5B30+1 : 

AD=AN:TTX=0 

FOR I=B2B TO 834: READ IX: POKE I,IX:NE 

XT: POKE 785, 60: POKE 786, 3: RETURN 

REM ZEILENNUMMER HOLEN 



GET#2,I«, J*: IF I»+J*=""THEN PRINT#3," 
It " ; : FLX=0: RETURN 
1225 GOSUB 40600:PRINT ASC (ZL*> +ASC (ZH*> *2 
56. " <UP>" : PRINT#3, ZL*ZH»; : FLX=-1 : RETU 
RN 



1241 
1242 
1243 

1250 



REM — 



KONSTANTE SPEICHERN 



IF DF7.THEN CLOSE 5:DFX=0:OPEN 4,B,4," 
£K,P,A" 



<233> 



<238> 
<093> 

<016> 

<064> 
<057> 
<214> 
<059> 

<012> 



<086> 
<201> 
<114> 
<203> 

<170> 



Listing 3. »Hypra-Comp«-Hauptprogramm. 

Bitte mit dem Checksummer (Seite 159) eingeben. 
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1252 ON 2-KT7.60T0 1270, 1275:PRINT#4,CHR*(L 
EN(KO*))KO*; 

1255 I=AD: GOSUB 40010: PRINT#3, CHR* (KT7.) HL* 
; : AD=AD+LEN (K0*> - (KT7.=2> : RETURN 

1270 IF K0>255 THEN I=K0:60SUB 40010: KO*=H 
L*:PRINT#4,K0*;:G0T0 1255 
PRINT#3, " <CTRL-G>"CHR*(KO> ; : RETURN 
I =USR ( KO ) : KO*=TR* : PR I NT*4 , KO* ; : GOTO 1 
255 



1272 
1275 



1301 
1302 
1303 
1310 

1315 
1320 

1325 
1330 
1341 
1350 
1355 



: REM KONSTANTE EINLESEN 

K0*="":KTX=2:I7.=CH*OGE*:IF I7.THEN KO 

*=CH* 

GET#2,CH*:IF CH*=""THEN RETURN 

IF CH*OGE*AND(CH*<>","OR NOT 17.) THEN 

KO*=KO*+CH*:GOTO 1315 
IF CH*OGE*THEN RETURN 
GOTO 2090 



KO*=CH*:KTX=-l 

GOSUB 2090: IF CH*<"0"OR CH*>"9"THEN 1 

365 

1360 KO*=KO*+CH*:GOTO 1355 
1365 IF CH*="E"OR CH*="."THEN KT7.=0:GOTO 1 

360 
1370 IF(CH*="B"OR CH*="T7")AND RIGHT* (KO*,l 

>="E"THEN 1360 
1375 KO=VAL<KO*>:KTX=-(KO=INT(KO>AND ABS<K 

0X3276B AND KT7.) : RETURN 



1500 
1501 
1502 
1510 

1515 
1520 
1525 
1527 
1530 



: REM BENUTZERABFRAGEN 

PRINT N1*N2*;:IF(ASC(N3*)AND 3>=1 THE 
N PRINT "7." j: GOTO 1520 
IF(ASC(N3*)AND 3) =2 THEN PRINT"*"; 
IF ASC(N3*)>3 THEN PRINT" (...)"; 
PR I NT: RETURN 



PRINT" <2D0WN,3SPACE>VARIABLE: "; : GOSU 

B 1510 
1535 INPUT" <D0WN,3SPACE>MAX. LAENGE " ; LE : LE 

=LE+1 
1540 PRINT" C3UP>";: FOR 1=1 TO 3:PRINT"<35S 

PACE>":NEXT 

PR I NT " <5UP > " ; : RETURN 



1545 
1601 
1610 

1615 



1620 

1625 

1630 
1635 
1640 
1645 

1650 
1655 

1660 

1665 

1670 

1701 
1702 
1703 
1710 
1715 

1720 
1725 
1730 

1735 
1740 
1745 



PRINT" <2D0WN,3GPACE>FELD: ";: GOSUB 15 

10:DI7.(3)=0:DIX<2>=0:DI7.(1>=0 

I NPUT " <DOWN , 3SPACE >W I E V I ELE D I MENS I ON 

EN";DI7.:IF DI7.>3 OR DI7.<1 THEN PRINT" 

<2UP>"; :GOTO 1615 

FOR 1 = 1 TO DIX: PRINT" <3SPACE JDIMENSIO 

N NR. "I"<3SPACE>:";: INPUT DIX(I> 

IF DIX (I XI OR DI7.(I)>32000 THEN PRIN 

T"<UP>";: 1=1-1 

NEXT: PRINT" <3SPACE>DK ? (J/N> " 

GET I*: IF I*=""THEN 1635 

PRINT LEFT*("<7UP>",DIX+4>; 

FOR 1=1 TO 7:PRINT"<34SPACE>":NEXT:PR 

INT"<9UP>"| 

IF I*<>"J"THEN 1610 

VA=VA-(DIX(1)+1)»(DIX(2>+1>*<DIX<3)+1 

)*LE:IF VA<=AD THEN 60070 

I=VA: GOSUB 40010: PRINT#4,HL*CHR* (DI7.» 

2+1); 

DI7.(3)=DIX(1>»DI7.(2)*LE:DIX(2)=DI7.(1> 

»LE:DIX(l)=LE:FOR J=l TO DI7.: I=DI7. ( J) 

GOSUB 40010:PRINT#4,HL*;:NEXT:AD=DI7.» 

2+3+AD: RETURN 

: REM VARIABLENNAME LESEN 

N 1 *=CH* : GET#2 , CH* : N2*=CH* : I X=- 1 

IF(CH*>"9"0R CH*<"0")AND(CH*>"Z"OR CH 

*<"A")GOTO 1725 

GET#2 , CH* : 1 7.=0 : GOTO 1715 

IF I7.THEN N2*=C0* 

N3*=CHR* ( - ( CH*= " X " > -2# ( CH*= " * " > ) : I F N 

3*=C0*THEN 1740 

GET#2,CH* 

IF CH*=" "THEN 1735 

I F CH*= " ( " THEN N3*=CHR* ( ASC ( N3* ) +4 > : G 
OSUB 2090 



<061> 



<198> 

<240> 

<169> 
<092> 
<107> 
<249> 

<212> 
<117> 

<185> 

<111> 

<252> 

<145> 
<153> 
<155> 
<155> 
<155> 

<044> 
<116> 
<140> 

<221> 
<050> 
<172> 

<050> 





1750 


<147> 


1801 




1802 


<208> 


1803 




1810 


<254> 


1811 


<095> 


1812 




1815 


<239> 


1820 


<007> 




<001> 


1825 


<009> 






1830 


<167> 


1835 


<184> 






1840 


<040> 




<209> 


1845 


<041> 




<047> 


1850 


<020> 






1855 


<109> 




<206> 


1860 


<192> 


1865 


<218> 


1870 




1875 


<1B1> 




<206> 


1900 


<087> 


1902 


<208> 


1903 




1910 


<246> 




<070> 


1912 


<012> 


1915 


<030> 




<233> 


1920 


<220> 


1925 


<222> 


1927 




1928 


<082> 


1930 


<125> 




<053> 


1932 




1935 



1940 

1945 
1950 
1955 
2000 
2001 
2002 
2010 
2012 
2020 
2022 
2023 
2024 

2026 

2028 
2032 
2034 
2035 
2036 
2037 
2038 
2040 

2042 
2050 
2052 
2054 

2056 
2060 
2062 



V A*=N 1 *+N2*+N3* : RETURN 

: REM VARIABLENADRESSE HOLEN 

GOSUB 1710:I7.= i 

IF VA*=LEFT*(VA*(IX> ,3>THEN 1820 
I7.= I7.+1:IF IX<=VZXTHEN 1811 
GOTO 1835 

I=VA( 17.): GOSUB 40010: PRINT#3, MID* (VA* 
(17.) ,3, DHL*; 

IF LEN(VA*(I7.))=4 THEN PRINT#3, RIGHT* 
(VA*(IX) ,1); 
RETURN 

IF VA*="ST"+C0*THEN PRINT#3, " CCTRL-C, 
CTRL-A> "CHR* (111);: RETURN 
IF VA*="TI"+C0*THEN PRINT#3, " CCTRL-O 
"C0*CHR* (112);: RETURN 

IF VA*="TKCTRI_-B>"THEN PRINT«3, " <CTR 
L-C , CTRL-B > " CHR* (113);: RETURN 
VZ7.=VZX+1:VA*(VZ7.)=VA*: IF N3*=C0*THEN 

VA=VA-5: VA(VZX)=VA: I7.=VZ7.: GOTO 1820 
IF N3*="CCTRL-A>"THEN VA=VA-2: VA (VZX) 
=VA: I7.=VZX:GOTO 1820 

IF N3*="<CTRL-B>"THEN GOSUB 1530; VA=V 
A-LE: VA (VZ7.) =VA: I7.=VZ7.: GOTO 1820 
IF N3*<"<CTRL-F>"THEN LE=- (N3*=" <CTRL 
-D>" ) »5- (N3*=" CWHITE>" ) »2: GOTO 1875 
GOSUB 1530 

GDSUB 1610: VA (VZ7.) =AD-3-2*DI7.: I7.=VZ7.: 
VA* ( VZ7.) =VA* (VZ7.) +CHR* (DI7.) : GOTO 1820 

: REM DATAZEILENBEARBEITUNG 

IF NOT DF7.THEN CLOSE 4: DF7.=-1 : OPEN 5, 

8,5,"£D,P,A" 

GOSUB 2090 

IF CH*=""OR CH*=":"THEN DZ7.=DZ7.+3:PRI 

NT#5 , " <CTRL-A > " C0*C0* ; : RETURN 

IF CH*=","THEN DZ7.=DZ7.+3:PRINT#5,"{CT 

RL-A>"C0*C0*;:GOTO 1912 

IF(CH*>"9"0R CH*<"0")AND CH*<>"+"AND 

CH*<>"-"THEN 1940 

IF CH*="+"THEN CH*="H" 

IF CH*="-"THEN CH*='"5" 

GOSUB 1350: ON KT7.GOTO 1932: DZ7.=DZ7.+6: 

I =USR ( KO ) : PR I NT#5 , C0*TR* ; : GOTO 1 945 

IF KO<0 THEN KD=65536+K0 

DZ7.=DZ7.+3: I=KO: GOSUB 40010: PRINT#5, " < 

CTRL-A>"HL*;:GOTO 1945 

GOSUB 1310: I7.=LEN (KO*) : DZ7.=DZ7.+ I7.+2:P 

RINT#5, " <CTRL-B>"CHR* (17.) KO*; 

IF CH*=""OR CH*=":"THEN RETURN 

IF CH*=","THEN 1912 

GOTO 60030 

: REM TOKENVORBEARBEITUNG 

CH7.=ASC(CH*):IF CH7.= 131 THEN 1910 

IF CH7.= 134 GOTO 2104 

IF CH7.= 136 THEN 2090 

IF CH7.0137 THEN 2032 

IF TTXTHEN PRINT#3, "R" ; : TT7.=0 

PRINT#3,CH*;:G0SUB 2090: IF CH*=","THE 

N 1=0: GOSUB 40200: GOTO 2024 

GOSUB 1350: I =KO: GOSUB 40200: IF CH*=", 

"THEN 2024 

RETURN 

IF CH7.= 139 THEN TT7.=-1:G0T0 2084 

IF CHX=141 THEN 2024 

IF CHX0143 THEN 2038 

GET#2,CH*:IF CH*O""G0T0 2036 

RETURN 

IF CHX0161 THEN 2050 

GOSUB 2090: IF CH*="#"THEN PRINT#3,CHR 

*(162) ; :60T0 2090 

PR I NT#3 , CHR* ( 1 6 1 > ; : RETURN 

IF CHX0167 THEN 2060 

PRINT#3,CH*;:TT7.=0:GOSUB 2090 

IF CH*>="0"AND CH*<="9"THEN PRINT#3,C 

HR*( 137);: GOSUB 1350: I =KO: GOTO 40200 

RETURN 

IF CH7X1B0 OR CHX>202 THEN 2070 

PRINT#3,CH*; 



<224> 
<255> 
<096> 
<001> 
<135> 
<092> 
<222> 
<010> 

<222> 

<152> 
<110> 

<123> 

<218> 

<1B2> 

<202> 

<009> 

<227> 

<106> 
<224> 

<117> 

<098> 
<122> 
<101> 

<144> 
<131> 

<197> 

<132> 

<021> 
<124> 
<12B> 

<199> 
<044> 

<214> 

<218> 
<110> 
<149> 
<117> 
<198> 
<216> 
<200> 
<191> 
<022> 
<170> 
<230> 
<093> 

<061> 

<190> 
<052> 
<116> 
<207> 
<232> 
<252> 
<061> 
<100> 

<159> 
<232> 
<202> 
<077> 

<181> 
<082> 
<233> 
<162> 



a^ff 



C64 



TOOLS GEMISCHT 



2064 


GOSUB 2090: IF CH*="("THEN 2090 


<174> 




> " : RETURN 


<210> 


2066 


GOTO 60040 


<039> 


3200 


: 


<128> 


2070 


IF CH7.=255 THEN PRINT#3,C0*"?S" ; : GOTO 




3201 


: REM »*»** AUSDRUCKSAUSWERTUNG 


<076> 




2090 


<077> 


3202 


: 


<130> 


20B0 


IX=CHX=138 OR CHX=148 OR CH7.= 149 OR C 




3210 


I7.=Sr/.(S17.,l):IF IX>12 THEN 3255 


<246> 




H7.= 150 OR CH7.= 154 OR CH7.= 155 OR CH7.= 1 




3215 


IF S27.<2 THEN 60020 


<184> 




62 OR CH7.=203 


<195> 


3220 


IF(S2X(S2X)0R S2X(S2X-1>)<2 GOTO 3235 


<067> 


2082 


IF I7.THEN 60050 


<239> 


3222 


IF S2X(S2X><2 OR S27. (S27.-1 )<2 GOTO 32 




2084 


PRINT#3,CH*; 


<184> 




30 


<056> 


2090 


GET#2,CH*:IF CH*=" "THEN 2090 


<109> 


3225 


IF I7.=0 THEN S2X=S2X-1:PRINT#4,AR*(0> 




2095 


RETURN 


<121> 




; : GOTO 3245 


<1B9> 


2100 




<044> 


3227 


IF I7.>6 AND I7.<13 THEN PRINTK4, AR* ( 10 




2101 


: REM DIM-ABFRAGE 


<031> 




7+17.);: GOTO 3240 


<055> 


2102 




<046> 


3230 


GOTO 60090 


<252> 


2104 


DI7.=0: DI7. ( 1 ) =0: DI7. (2) =0: DI7. (3) =0: GOSU 




3235 


PRINT#4, AR* (S2X (S2X) +2»S2X (S2X-1 > +4»I 






B 2090:GOSUB 1710: IF N3*< " <CTRL-D>"GO 






X+l); 


<107> 




TO 60090 


<112> 


3240 


S2X=S2X- 1 : S2X ( S2X > =- < S2X ( S2X > = 1 AND S 




2106 


GOSUB 1350:DI7.=DI7.+ 1: IF KO<0 OR KO>30 






27.(S27.+ 1)=1 AND I7.<>4> OR-( IX>6) 


<113> 




000 GOTO 60020 


<22B> 


3245 


GOSUB 40700: S1X=S1X-1: RETURN 


<082> 


2108 


DIX(DIX)=KO:IF DI7.<=3 AND CH*=" , "THEN 




3255 


IF IX>14 THEN 3267 


<046> 




GOSUB 2090: GOTO 2106 


<07B> 


3257 


IF S2X<1 THEN GOTO 60020 


<076> 


2110 


I7.= 1:IF CH*O")"G0T0 6B020 


<0B9> 


3260 


IF S2X(S27.)<2 THEN PRINT#4, AR* (2» ( IX- 




2112 


IF VA*=LEFT*(VA*(IX> ,3) THEN 2122 


<187> 




13) +53+S2X (S2X) > ; : GOTO 3245 


<164> 


2114 


IX=IX+1:IF IX<=VZXTHEN 2112 


<230> 


3265 


GOTO 60090 


<031> 


2116 


IF N3*<"<CTRL-F>"THEN LE=- <N3*=" CCTRL 




3267 


J 1 X=S 1 X ( S 1 X , 2 ) : J2X=S2X ( S2X ) 


<166> 




-D>")»5-(N3*="<WHITE>")»2:G0T0 2120 


<030> 


3269 


IF IX>38 THEN 3310 


<042> 


2118 


GOSUB 1530 


<218> 


3270 


IF S2X<(1-(IX>35)-(IX=3B))THEN 60020 


<062> 


2120 


VZX=VZX+1 : VA* (VZ7.) =VA*+CHR* (DIX) : VA (V 




3272 


IF(IX=32 OR IX=35)AND SRXTHEN SRX=0:P 






Z7.)=AD: GOSUB 1655 


<113> 




RINT#4,AR*(95);:G0SUB 40700 


<049> 


2122 


GOSUB 2090: IF CH*=" , "GOTO 2104 


<199> 


3275 


IF J1X=J2XTHEN 3300 


<227> 


2124 


RETURN 


<150> 


3280 


IF J1X=3 AND(J2X=0 OR J2X=1)THEN 3300 


<013> 


2200 


1 


<144> 


3285 


IF J1X=1 AND J2X=0 THEN PRINT#4, AR* ( 1 




2201 


: REM #»»** PASS 1 HAUPTPROGRAMM 


<233> 




03 ) ; : GOSUB 40700 : S2X ( S2X ) = 1 : GOTO 3300 


<000> 


2202 


1 


<146> 


3290 


IF J1X=0 AND J2X=1 THEN PRINT#4, AR* ( 1 




2210 


GOSUB 1010 


<166> 




04 ) ; : GOSUB 40700 : S2X ( S2X ) =0 : GOTO 3300 


<150> 


2215 


GOSUB 1210: IF NOT FL7.THEN 2300 


<058> 


3295 


IF J1X<>4 THEN GOTO 60090 


<187> 


2220 


GOSUB 2090 


<185> 


3300 


IF IX=15 OR IX=17 AND J2X=1 THEN 3302 


<059> 


2225 


IF CH*=""THEN PRINT#3,CHR*(13);:G0T0 




3301 


PRINT#4, AR* <2» < IX-16) +57- (S2X (S2X) =1 ) 






2215 


<015> 




) ; : GOSUB 40700 


<047> 


2230 


IF CH*>CHR*( 127) THEN GOSUB 2010: GOTO 




3302 


S2X=S2X+ ( I X >35 ) + ( I X=38 ) 


<228> 




2225 


<077> 


3305 


IF S1X<S1-/.,3K3 THEN S2X (S2X) =S1X (SIX 




2235 


IF CH*=GE*THEN GOSUB 1310: GOSUB 1250: 






,3) 


<199> 




GOTO 2225 


<05B> 


3306 


S 1 X=S 1 X- 1 s RETURN 


<229> 


2240 


IF(CH*>="0"AND CH*<="9")0R CH*=" . "THE 




3310 


IF J2X=2 THEN GOTO 60090 


<091> 




N GOSUB 1350: GOSUB 1250: GOTO 2225 


<100> 


3315 


IF J2X=0 THEN PRINT#4,AR*( 103);: GOSUB 




2245 


IF CH*=" ("OR CH*=")"OR CH*=";"OR CH*= 






40700 


<150> 




":"OR CH*=","THEN PRINT#3,CH*; : GOTO 2 




3320 


PRINT#4,"£"CHR*(S1X(S1X,4) ) " <SHIFT-SP 






220 


<149> 




ACE>"CHR*<S1X(S1X,5));:G0SUB 40720 


<132> 


2290 


IF CH*>="A"AND CH*<="Z"THEN GOSUB 181 




3325 


S2X=S2X-S1X (SIX, 6) +1 : S2X(S2X) =S1X (SIX 






0:GOTO 2225 


<054> 




,3) 


<043> 


2295 


GOTO 60060 


<140> 


3330 


IF FLXAND S1X=1 THEN PRINT#4, AR* (99) ; 




2300 


PR=DZ7.+2+AD:P2=PR: CLOSE 4: CLOSE 3:CL0 






:GOTO 3245 


<224> 




SE 2: CLOSE 5 


<204> 


3335 


PRINT#4,AR*(IX+66) ; : GOTO 3245 


<250> 


2305 


OPEN 5,B,5,"fD,P,A":PRINT#5,"±"; : CLOS 




3500 


: 


<174> 




E 5:OPEN 1 ,8, 15, "C: fX=£K, *D" :CLOSE 1 


<144> 


3501 


REM *»**» VARIABLE AUF DEN STACK 


<141> 


2315 


PRINT" {DOWN>VARIABLEN : "40960-VA" BYT 




3502 


: 


<176> 




ES" 


<163> 


3510 


IF IX>2 THEN 3550 


<033> 


2320 


PRINT"KONSTANTEN: "AD-AN" BYTES" 


<000> 


3520 


GOSUB 40100: I *=CH«: GOSUB 40100: PRINT* 




2325 


PRINT"DATAZEILEN: "DZX" BYTES<DOWN>" 


<134> 




4 , " 4" I * " <SH I FT-SPACE ) " CH*AR* ( I X+ 1 08 ) ; 




2330 


IF VA<=PR THEN 60070 


<089> 




: GOSUB 40710 


<173> 


2335 


RETURN 


<107> 


3525 


S2X=S2X+ 1 s S2X ( S2X > = I X : RETURN 


<021> 


3000 


: 


<182> 


3550 


IF IX>3 THEN 3570 


<145> 


3001 


: REM PASS 2 INITI ALISIERUNG 


<231> 


3555 


S2X=S2X+1 : GOSUB 40100: S2X (S2X) =ASC (CH 




3002 


: 


<184> 




*): GOSUB 40100: GOSUB 40700 


<038> 


3010 


DIM AR*(142) , SIX (20,6) ,S27.(20) ,FU7.(22 




3556 


IF CH*OCHR*( 112) THEN 3560 


<161> 




,1),PR7.(6) ,PR*(68> 


<208> 


3557 


IF SRXTHEN PRINT#4,AR* (95) ;: GOSUB 407 




3050 


FOR 1=0 TO 142: READ I IX, I2Xl AR* ( I > = " 






00 


<104> 




"+CHR*(I1X)+CHR*(I2X> :NEXT 


<135> 


3558 


SRX=0 : PR I NT#4 , " 8 " ; : PR=PR+ 1 . 


<064> 


3060 


FOR 1=0 TO 22:READ FUX < 1 ,0) ,FU7. ( I , 1 > : 




3560 


PRINT#4,AR*(ASC(CH*> );: RETURN 


<211> 




NEXT:FOR 1=0 TO 6:READ PRX ( I ) : NEXT 


<154> 


3570 


IF IX=7 THEN GOSUB 40100:PRINT#4, "£"C 




3070 


FOR 1=0 TO 68: READ IX: PR* ( I ) =CHR* ( IX) 






H*AR* (65) ; : PR=PR+5. : IX=1 : GOTO 3525 


<142> 




:NEXT 


<233> 


3580 


S1X=S1X+1sS1X(S1X,0)=1:S1X(S1X,1)=IX+ 




3072 


I=PR: GOSUB 40010: PR* < 19) =CHR* <LX> : PR* 






35:SlX(S17.,2)=l:S17.(SlX,3) = IX-4 


<058> 




(20)=CHR*(H7.) 


<087> 


3585 


KLX=KLX+1 : GOSUB 40100: SIX (SIX, 4) =ASC ( 




3076 


I = VA : GOSUB 40010: PR* ( 27 ) =CHR* < L7. ) : PR* 






CH*) 


<254> 




(22>=CHR*(H7.) 


<145> 


3587 


GOSUB 40100: SIX (SIX, 5>=ASC(CH*> 


<132> 


3080 


I=AD+l:GOSUB 40010: PR* <61 >=CHR* (LX> :P 




3590 


GET#2,CH*:S1X(S1X,6)=ASC(CH*> : ON 3-AS 






R*(65)=CHR*(H7.) 


<064> 




C(CH*)GOTO 3600,3605 


<212> 


3084 


PR* (53) =PR* (27) : PR* (57) =PR* (22) 


<008> 


3595 


GOSUB 40800 


<044> 


3090 


OPEN 4,8,4, "«S,P,W":FOR 1=0 TO 6B:PRI 
NT#4,PR*(I) ;: NEXT: CLOSE 4 


<236> 


3600 


GOSUB 40800 


<049> 


3095 


OPEN 4,8,4,"£2,P,W":OPEN 2,8,2,"fl,S, 












R": PRINT" <DOWN, YELLOW >PASS 2<LIG.BLUE 




Listing 3. (Fortsetzung) 





SONDERHEFT 24 



TOOLS GEMISCHT 



C64 



3605 RETURN 

3710 S1X=S1X+1:S1X(S1X,0>=1:S1X(S1X,1>=IX: 

S1X(S1X,2)=J1X:51X(S1X,3)=J2X 
3715 KLX=KLX+1:IF IX<36 THEN RETURN 
3720 ON IX-36 BOTO 3725,3735 
3725 BOSUB 40800: SIX (SIX, 2) =2: S17.(S1X,3> =2 

: RETURN 
3735 BOSUB 40800: BOTO 3725 
3910 IX— 1 1 IF CH*<"T"AND CH*>"£"THEN 1 7.= AS 

C(CH*> -170: GOTO 3975 
3920 IF CH*>"n"OR CH*<"r'THEN RETURN 
3925 PRX=5:I*=CH*:GOSUB 40100 
3930 IF CH*>"TJ"OR CH*<"T"THEN 3955 
3935 IF CH*=I*THEN 60020 
3940 IF CH*<>"T?"AND I *<>"■*" THEN IX=12:B0T0 

3975 
3945 IF CH*="r'OR I*="r'THEN IX=10:BOTO 39 

75 
3950 IX=ll:GOTO 3975 
3955 IF I*="r'THEN I X=7 : RETURN 
3965 IF I*="Tf"THEN 1 7.=9: RETURN 
3970 I X=8: RETURN 
3975 IF IX<7 THEN PRX=PRX (IX) 
3980 GOTO 40100 
4010 IF PRX>S1X (SIX, 0) THEN S1X=S1X+1 : SIX (S 

1X,0)=PRX:S1X(S1X,1)=IX:RETURN 
4015 IF S1X=0 THEN RETURN 
4020 RZX=IX:BOSUB 3210: IX=RZX: IF S1X(S1X+1 

,0) >1 THEN 4010 
4025 RETURN 

4500 : 

4501 REM »»*»» AUSDRUCK HAUPTPROGRAMM 

4502 : 
4510 FLX=0: FUX=-1 : RE7.=0: S1X=0: S2X=0: KO7.=0: 

KLX=0:SRX=-1 
4515 BOSUB 40100 

4520 IF CH*>"3."OR CH*<"H"THEN 4550 
4525 IF NOT FUXTHEN BOTO 4685 
4530 REX=0 : I X=ASC ( CH* ) - 1 64 : J 1 X=FUX ( I X- 1 6 , 

) :J2X=FU7.(IX-16, 1) : BOSUB 3710: BOTO 45 

15 
4550 IF NOT REXTHEN 4600 
4555 BOSUB 3910: IF IX— 1 THEN 4610 
4560 FUX=-1:REX=0: BOSUB 4010: BOTO 4520 
4600 IF CH*="W"THEN 4515 
4605 IF CH*="3"THEN S1X=S1X+1 : SIX (S17..0) =9 

: SIX (SIX, 1) =13: BOTO 4515 
4610 IF CH*="?"THEN S1X=S1X+1 : SIX (S17..0) =6 

:S1X(S1X,1)=14:REX=0:BOTO 4515 
4615 IF CH*<>"("THEN 4630 
4617 IF NOT FUXTHEN 4685 
4620 REX=0 : KLX=KLX+ 1 : S 1 X=S 1 X+ 1 : S 1 X ( S 1 X , ) = 

1:S1X(S1X,1)=15:S1X(S1X,2)=4 
4625 S1X(S1X,3)=3:G0T0 4515 
4630 IF CH*<>")"THEN 4650 
4635 IF KLX=0 THEN 4685 
4640 KLX=KLX- 1 : FUX=0 : REX=- 1 5 PRX= 1 : BOSUB 40 

10: IF S17.>0 OR NOT FL7.GOT0 4515 
4645 RETURN 

4650 IF CH*<>","THEN 4670 
4655 IF KO7.=0 THEN 4685 
4660 KOX=KOX-1:FUX=-1:REX=0:PRX=1.- BOSUB 40 

10: GOTO 4515 
4670 IF CH*>"{CTRL-G>"OR NOT FUXTHEN 4685 
4675 FUX=CH*>"<CTRL-C>"AND CH*< ■ <CTRL-G>" : 
REX=NOT FUX : I X= ASC ( CH* ) : GOSUB 35 1 : BO 
TO 4515 

4680 : 

4681 REM AUSDRUCK ENDAUSWERTUNG 

4682 : 

4685 IF KOXO0 OR KLXO0 THEN 60100 
4690 PRX=0: GOSUB 4010: IF S27.= l THEN RETURN <071> 



<107> 

<188> 
<145> 
<026> 

<216> 
<083> 

<196> 

<026> 
<005> 
<207> 
<062> 

<241> 

<165> 
<115> 
<166> 
<114> 
<245> 
<133> 
<190> 

<019> 
<212> 

<103> 
<017> 
<158> 
<195> 
<160> 

<027> 
<233> 
<194> 
<073> 



<243> 
<037> 
<031> 
<102> 
<026> 

<201> 

<160> 
<099> 
<243> 

<003> 
<078> 
<245> 
<23B> 

<120> 
<131> 
<143> 
<050> 

<004> 
<212> 



<107> 
<0B4> 
<006> 
<086> 
<038> 



4692 GOTO 60020 

4700 : 

4701 REM ZEILENNUMMER HOLEN 

4702 : 

4710 GOSUB 40600 

4720 IF ZH*="±"THEN FLX=-1 : RETURN 
4722 BOSUB 40900: ZN=LX+256. »HX: FLX=0: PRINT 
ZN" {UP >": RETURN 

4801 : 

4802 : REM AUSDRUCKSTYP PRUEFEN 



<252> 
<104> 
<073> 
<106> 
<078> 
<052> 

<051> 
<205> 
<111> 



4803 : 

4810 BOSUB 4510: IF S2X(1)=1 THEN RETURN 

4815 IF S27.(l)=2 THEN 60090 

4820 PRINT#4,AR*( 103);: GOTO 40700 

4910 BOSUB 4510: IF S2X ( 1 ) =0 THEN RETURN 

4915 IF S27.(l)=2 THEN BOTO 60090 

4920 PRINT#4,AR*(104) ; : GOTO 40700 

4960 GOSUB 4510: IF S2X ( 1 ) =2 THEN RETURN 

4965 GOTO 60090 

5001 : 

5002 : REM LET-BEFEHL, LINKE SEITE 

5003 : 
5010 PFX=0 

5012 LEX=ASC(CH*)AND 3:PHX=-1 

5015 IF CH*>" <CTRL-B>"THEN 5045 

5020 GOSUB 40100: I *=CH»: GOSUB 40100 

5025 IF PFXTHEN PRINT#4, "£" I*" <SHIFT-SPACE 

>"CH*;:GOSUB 40720:GOTO 40100 
5030 PLX= ASC ( I * ) : PH7.= ASC ( CH* > : GOTO 40100 
5045 IF CH*="<CTRL-C>"THEN 5070 
5050 FLX=-1 : FUX=-1 : REX=0: S1X=0: S2X=0: KOX=0 

:KLX=0:SRX=-1 
5055 IX=ASC(CH*): GOSUB 3580: GOSUB 4515 
5057 IF PFXTHEN PRINT *4,CHR* (165) CHR*( 71 >C 

HR* (164) CHR* (72) ;: GOSUB 40720: GOTO 40 

100 
5060 PRINT#4,"EGHEHH"; 
5065 PR=PR+6.:B0T0 40100 
5070 GET#2,CH*:IF CH*=" <CTRL-B>"THEN GET#2 

,CH*,CH«: RETURN 
5075 BOTO 60120 

5101 : 

5102 : REM »»»»* VARIABLENZUWEISUNB 

5103 : 

5110 BOSUB 5010: IF CH*<> " TF" THEN 60020 

5115 IF LEX=3 THEN 5135 

5120 ON LEX+1 BOSUB 4910,4810,4960 

5122 IF PHX=-1 THEN PRINT#4,CHR* ( 104) CHR* ( 

168) CHR* ( 104) ;: BOSUB 40700: BOTO 5130 
5125 PR I NT#4 , " £" CHR* ( PLX ) " <SH I FT-SPACE > " CH 

R* ( PHX ) ; : BOSUB 40720 
51 30 PR I NT#4 , AR* ( LEX+ 1 20+55» ( LEX=2 ) ) ; : BOTO 

40700 
5135 GOSUB 4510: IF S2X ( 1 ) <>2 THEN 60090 
5140 PRINT#4," S"CHR*(14)"i<CTRL-F>"CHR*(2 

40) " <CTRL-C>LH1FgF8"CHR*(233> " {CTRL-F, 

F 1 > " CHR* ( 34 > " <SH I FT-SPACE >fl" ; 
5150 PRINT#4,CHR*(132)"#"AR*<90>" "CHR* (23 

1>"£"; 
5160 PR=PR+27.: RETURN 

5201 : 

5202 : REM *«»»» TOKENAUSWERTUNG 

5203 : 

5210 CHX=ASC(CH*>: IF CHX>156 THEN ON CHX-1 
56 GOTO 6665,6715,6765,6865,6915,6960 

5212 IF CHXM43 THEN ON CHX-1 43 GOTO 6120, 
6162,6265,6320, , , ,6415,6465,6512, , ,66 
15 

5213 ON CHX-1 28 GOTO 5315,5415, ,5515,5615, 
,5715, 5815, 5862,, 5915, 5965, 6015, 6065 

5215 : 

5216 : REM END 

5217 : 

5250 PRINT#4,"L<F3>"CHR* (227);: BOSUB 40700 
:EOTO 40100 

5301 : 

5302 : REM FOR 

5303 : 

5315 GOSUB 40100:GOSUB 51 10: IF LEX>0 THEN 

60090 
5320 IF CH*O"0"THEN 60020 
5325 GOSUB 4910: IF CH*<>"i"THEN 5335 
5330 GOSUB 4910: GOTO 5340 
5335 PRINT#4,AR*( 123);: GOSUB 40700 
5340 IF CH*OCHR*(13)AND CH*<>":"THEN 6002 


5345 GOSUB 407101 I=PR: GOSUB 40010 
5355 PR I NT#4 , " T" CHR* ( LX ) " <SH I FT-SPACE > " CHR 

* (HX) AR* ( 124) ; : RETURN 
5401 

5402 : REM NEXT 

5403 



<207> 
<142> 
<248> 
<173> 
<243> 
<056> 
<027> 
<039> 
<209> 
<151> 
<24B> 
<153> 
<223> 
<016> 
<237> 
<129> 

<06B> 
<140> 
<107> 

<245> 
<206> 



<000> 
<126> 
<131> 

<032> 
<157> 
<251> 
<247> 
<253> 
<017> 
<175> 
<100> 

<025> 

<007> 

<202> 
<U2> 



<065> 

<103> 
<082> 
<097> 
<177> 
<099> 

<108> 



<211> 

<087> 
<111> 
<038> 
<113> 

<102> 
<197> 
<026> 
<199> 

<034> 
<242> 
<133> 
<022> 
<190> 

<045> 
<003> 

<215> 
<043> 
<215> 
<045> 



Z&& 



C64 



TOOLS GEMISCHT 



5415 
5420 

5425 
5430 
5435 
5440 
5445 
5450 
5501 
5502 
5503 
5515 
5520 



PRINT#4,AR*<125);:G0SUB 40700 

GET#2,CH*:IF CH*=":"OR CH*=CHR*< 13) TH 

EN RETURN 

IF CH*>"<CTRL-F>"THEN 60020 

I7.=3-(CH*>"<CTRL-C>"> 

GET#2,CH*:I7.= I7.-1:IF I7.THEN 5435 

IF CH*=" ,"THEN 5415 

IF CH*=":"OR CH*=CHR*(13)THEN RETURN 

GOTO 60020 

: REM INPUT* 

GOSUB 4810: IF CH*<>" , "THEN 60020 
PRINT#4,AR*< 130);: GOSUB 40700: GOSUB 4 
0100: GOSUB 5640sPRINT#4," TS" ; : GOTO 4 
0700 



<032> 

<017> 
<U0> 
<203> 
<095> 
<228> 
<087> 
<248> 
<143> 
<137> 
<145> 
<223> 



5601 
5602 
5603 
5615 

5620 

5625 

5630 

5640 
5645 

5650 

5655 

5660 

5665 
5701 
5702 
5703 
5715 

5720 

5725 
5730 
5735 
5801 
5802 
5803 
5815 
5851 
5852 
5853 
5862 
5865 

5870 
5880 

5885 

5890 
5901 
5902 
5903 
5915 

5925 
5930 
5951 
5952 
5953 
5965 

6001 
6002 
6003 
6015 
6051 
6052 
6053 



: REM INPUT 

GOSUB 40100: IF CH*<>" <CTRL-B>"THEN 56 

40 

GOSUB 40100: I*=CH»: GOSUB 40100: J*=CH* 

: GOSUB 40100 

IF CH*< >" ; "THEN LEX*2l PL"/.=ASC < I*) : PH7. 

=ASC(J*> :GOTO 5645 

CH*=J*: PF7.=-1 : GOSUB 5025: PRINT#4, AR* ( 

126);: GOSUB 40700 

GOSUB 5010 

PRINT#4," "CHR*(249>"S";:IF PH7.0-1 T 

HEN 5655 

PRINT#4,CHR*(104)CHR*(16B)CHR*(104> ; : 

PR=PR+6. :60T0 5660 

PR I NT#4 , CHR* < 1 69 > CHR* ( P IX > CHR* < 1 60 ) CH 

R* ( PHX >;: GOSUB 40710 

PRINT#4,AR*(LE7.+ 127> ; : GOSUB 40700: IF 

CH*=","THEN GOSUB 40100: GOTO 5640 

RETURN 

: REM READ 

GOSUB 40100: IF CH*>" <CTRL-F>"THEN 600 

20 

PF7.=-1: GOSUB 5012: PRINT#4, AR* (LE7.+ 131 

> ; : GOSUB 40700 

IF LE7.=3 THEN 60020 

IF CH*=","THEN 5715 

RETURN 

REM LET 

GOSUB 40100: GOTO 5110 

REM GOTO 

CH7.=76 

GOSUB 40100: GL7.=ASC(CH*>: GOSUB 40100: 

GH7.=ASC (CH*) : ZG=GH7.»256. +GL7. 

r/.=0:IF ZG>ZN THEN 58B5 

GOSUB 40520:PRINT#4,CHR*(CH7.>CHR*(L7.> 

CHR* ( H7. > ; : GOSUB 40700 : GOTO 40 1 00 

PR I NT#4 , " it" CHR* ( CH7. ) CHR* ( GLX ) CH*CHR* 

(ZZ7.AND 255)CHR*(ZZ7./256); 
GOSUB 40700: GOTO 40100 

REM IF 

GOSUB 4810: PR I NTt»4 , AR* C 101) "£<CTRL-C> 

" ; : GOSUB 40300 : PR=PR+8 . 

IF CH*OCHR*< 167) THEN 60020 

CH*=":":RETURN 

REM RESTORE 

PR I NT#4 , " ; <CTRL-H > " ; : GOSUB 40700 : GOT 
40100 

REM GOSUB 

CH7.=32:G0T0 5865 

: REM RETURN 



<035> 
<243> 
<187> 
<245> 

<148> 

<065> 

<181> 

<178> 
<072> 

<152> 

<043> 

<047> 

<049> 
<135> 
<0B9> 
<153> 
<091> 

<101> 

<142> 
<211> 
<056> 
<205> 
<189> 
<015> 
<191> 
<202> 
<239> 
<005> 
<241> 
<241> 

<081> 
<079> 

<250> 

<067> 
<215> 
<035> 
<076> 
<037> 

<183> 
<104> 
<180> 
<085> 
<064> 
<087> 

<040> 
<135> 
<197> 
<137> 
<116> 
<1B5> 
<217> 
<187> 



6065 
6070 
6101 
6102 
6103 
6120 

6151 
6152 
6153 
6162 

6164 
6166 
6170 

6180 

6185 

6190 
6192 

6195 

6200 
6210 
6220 
6251 
6252 
6253 
6265 
6270 
6275 
6280 
6285 

6301 
6303 
6320 
6325 
6330 

6340 
6345 
6355 
6401 
6402 
6403 
6415 
6420 

6425 
6430 

6451 
6452 
6453 
6465 
6501 
6502 
6503 
6512 
6515 
6517 
6520 

6525 
6530 

6535 
6540 
6545 

6550 
6552 
6555 



PR I NT#4 , CHR* ( 96 ) ; : PR=PR+ 1 . 
GOTO 40100 

: REM STOP 



PRINT#4,"BLKT'; : GOSUB 40720:GOTO 4010 


REM ON X GOTO/GOSUB 

GOSUB 4B10:CHX=ASC(CH*> : IF CHX=137 TH 

EN CHX=76:G0T0 6170 

IF CH7.= 141 THEN CH7.=32:G0T0 6170 

GOTO 60020 

PRINT#4,AR*(88)AR*(84)"<F1>"CHR*<9B)" 

<CTRL-J>"CHR*(101)CHR*(9B) ; 

IF CH7.=32 THEN PRINT#4, " <CTRL-J>" ; : PR 

=PR+1. 

I=PR+15. :GOSUB 40010: PRINT#4, CHR* ( 141 

>HL*"<BLACK>" 

GOSUB 40250: PR=PR+ 19. 

IF CH7.=32 THEN PRINT#4,CHR* (234) CHR* ( 

234) CHR* (234);: GOSUB 40700 

GOSUB 5865: IF CH7.=32 THEN GOSUB 40250 

: GOSUB 40700 

IF CH*=","THEN 6195 

IF CH*=":"THEN GOSUB 40900: OG7.=OG7.+ l 

RETURN 

REM WAIT 

GOSUB 4810: IF CH*<>" , "THEN 60020 

GOSUB 481B: IF CH*<>","THEN 6285 

GOSUB 4810 

PRINT#4,AR*(97);:G0T0 40700 

PR I NT#4 , " £" C0*AR* ( 65 ) ; : GOSUB 40730 : GO 

TO 6280 

: REM LOAD 

GOSUB 4960 

IF CH*=","THEN GOSUB 4B10:GOTO 6340 

PRI NT#4 , " £<CTRL-A > " AR* ( 65 > ; : GOSUB 407 

30: GOTO 6345 

IF CH*=","THEN GOSUB 4810: GOTO 6355 

PRINTtt4,"£"C0*AR*(65) ;: GOSUB 40730 

PRINT#4,AR*(134);:G0T0 40700 

REM POKE 

GOSUB 4510: IF S2X ( 1 ) =2 THEN 60090 

IF S27.(l)=0 THEN PRINT#4, AR* ( 135) ; : GO 

SUB 40700 

IF CH*<>","THEN GOTO 60020 

GOSUB 4810: PRINTB4, AR* ( 1 36) ;: GOTO 407 

00 

REM PRINT* 

GOSUB 6665:PRINT#4," T5" ; : GOTO 40700 

: REM PRINT 

CR7.=-1 

GOSUB 40100 

IF CH*="?"THEN CR7.=0:GOTO 6515 

IF CH*=","THEN CRX=0:PRINT#4,AR*(140> 

;: GOSUB 40700: GOTO 6515 

IF CH*OCHR*( 163) THEN 6540 

CR7.=0: GOSUB 4810: PRINT#4, AR* ( 138) ; : GO 

SUB 40700: IF CH*<>")"THEN 60020 

GOTO 6515 

IF CH*OCHR*( 166) THEN 6552 

CRX=0 : GOSUB 4810:PRINT#4,AR*(139);sGO 

SUB 40700: IF CH*<>")"THEN GOTO 60020 

GOTO 6515 

IF CH*=CHR*(13)0R CH*=":"THEN 6575 

CR7.=- 1 : FL7.=0 : FUX=- 1 : RE7.=0 : S 1 7.=0 : S27.=0 

: KO7.=0: KL7.=0: SR7.=- 1 : GOSUB 4520 



<134> 
<248> 
<235> 
<006> 
<237> 

<071> 
<031> 
<146> 
<033> 

<185> 
<053> 
<202> 

<126> 

<0B3> 

<047> 
<193> 

<085> 

<039> 
<1B7> 
<045> 
<182> 
<131> 
<145> 
<133> 
<211> 
<1BB> 
<063> 
<095> 

<043> 
<251> 
<183> 
<028> 
<033> 

<014> 
<224> 
<100> 
<204> 
<027> 
<124> 
<029> 
<055> 

<106> 
<17B> 

<106> 
<077> 
<165> 
<079> 
<198> 
<127> 
<165> 
<129> 
<107> 
<201> 
<255> 

<017> 
<00B> 

<132> 

<086> 
<081> 

<105> 
<101> 
<043> 

<215> 



Listing 3. (Fortsetzung) 



iJ^a? 
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6560 
6565 

6570 

6575 
6580 
6601 
6602 
6603 
6615 

6620 
6651 
6652 
6653 
6665 

6670 
6701 
6702 
6703 
6715 
6720 

6725 
6751 
6752 
6753 
6765 
6770 

6775 

6780 

6785 
6790 
6795 
6800 
6851 
6852 
6853 
6865 

6901 
6902 
6903 
6915 

6920 

6925 
6930 
6935 
6951 
6952 
6953 
6960 
6965 
6970 
7500 
8000 
8001 
8002 
8010 

8015 
8020 

8025 
8030 
8035 
8040 
8050 
8055 

8057 
8060 
8065 

8070 



IF S27.(l)=l THEN GDSUB 4920 

IF S2XUX2 THEN PRINT#4,AR* ( 137) ; : GO 

SUB 40700: GOTO 6517 

PRINT#4,AR*(141>; : GOSUB 40700: GOTO 65 

17 

IF NOT CRXTHEN RETURN 

PRINT#4,AR*(80);:GOTO 40700 

REM CLR 

PRINT#4," "CHR*<231)"i "CHR* (20) " {CTR 

L-H>";:PR=PR+6. 

GOTO 40100 



REM CMD 

GOSUB 4810: PRINT#4,AR*( 142) ;: GOSUB 40 
700: IF CH*<>","THEN 6580 
GOTO 6512 



REM 



SYS 



GOSUB 4510: IF S2X ( 1 ) =2 THEN 60090 
IF S27.(l)=0 THEN PRINTW4, AR* ( 135) j : GO 
SUB 40700 
PRINT#4,AR*(94);:G0T0 40700 

: REM OPEN 

GOSUB 4810: IF CH*=" , "THEN 6790 

PRINT#4,".£. {CTRL-AVAR* (65) ;: GOSUB 407 

30 

PR I NT#4 , " £." C0*AR* ( 65 ) ; : GOSUB 40730 

PRINT#4 , "£2{SHIFT-SPACE>S" AR» ( 1 10) ; : G 

OSUB 40710 

PRINT#4,AR*(78);:G0T0 40700 

GOSUB 4B10:IF CH*<>","THEN 6775 

GOSUB 4810: IF CH*<>","THEN 6780 

GOSUB 4960: GOTO 67B5 

: REM CLOSE 

GOSUB 4B10:PRINT#4,AR*(76);:GOTO 4070 


: REM GET 

GOSUB 40100: IF CH*>" {CTRL-FVTHEN 600 

20 

PFX=- 1 : GOSUB 50 1 2 : PR I NT#4 , AR* ( 70+2*LE 

7.) ;: GOSUB 40700 

IF LEX=3 THEN 60020 

IF CH«=","THEN 6915 

RETURN 

: REM GET* 

GOSUB 4810: IF CH*<>","THEN 60020 

PRINT#4, AR*(1 30) ;: GOSUB 40700 

GOSUB 6915:PRINT#4," TS" ; : GOTO 40700 



REM «**»» PASS 2 HAUPTPROGRAMM 



<135> 

<039> 

<202> 
<124> 
<111> 
<227> 
<179> 
<229> 

<191> 
<034> 
<021> 
<202> 
<023> 

<1B5> 
<030> 
<073> 
<048> 
<075> 
<101> 

<152> 
<020> 
<123> 
<116> 
<125> 
<227> 

<035> 
<022> 

<024> 
<092> 
<224> 
<085> 
<002> 
<223> 
<032> 
<225> 

<080> 
<017> 
<224> 
<019> 

<031> 

<051> 
<141> 
<026> 
<135> 
<069> 
<160> 
<071> 
<144> 
<022> 
<083> 
<110> 
<102> 
<053> 
<104> 



GOSUB 3010: ZN=0: OG7.=0: ZH*=C0*: ZL*=C0* 

:ZZ7.=0 

GOSUB 4710: IF FLXTHEN 8050 

GOSUB 40100: IF CH*>CHR* < 127) AND CH«C 

HR*( 163) THEN GOSUB 5210: GOTO 8030 

IF CH*<"{CTRL-H>"THEN GOSUB 5110 

IF CH*= THEN 8020 

IF CH*=CHR*(13)THEN 8015 

GOTO 60020 

PRINT#4, ■•L{F3>"CHR* (227) ;: GOSUB 40700 <012> 

PRINT" <D0WN>PR0GRAMM<2SPACE> : "PR-P2" 

BYTES" 

PRINT"ZEILEN<4SPACE>: "ZZX/4-0GX 

IF PR+256>VA THEN GOTO 60070 

CLOSE 4:CL0SE 2: OPEN 1 ,8, 15, "S: £D, £K, 

£1": CLOSE 1 



<000> 
<23B> 

<202> 
<023> 
<219> 
<121> 

<042> 



<127> 

<04B> 
<180> 



<210> 
<172> 



8071 REM #»*»» PASS 3 

8072 : 

8100 PRINT" {DOWN, YELLOW >PASS 3CLIG. BLUE>" : 
OPEN 2,8,2, "£2,P,R":OPEN 4,8,4, "£3,P, 
W":NZX=0:JA=P2 

8102 IF NZX=ZZXTHEN NA=60000 : GOTO 8110 

8105 NZ=PEEK (49152+NZX) +PEEK (49153+NZX) «25 
6.: PRINT NZ"<UP>" 

8106 NA=PEEK(49154+NZX)+PEEK(49155+NZX>»25 
6. : NZX=NZX+4 

8107 IF JA>NA THEN 8102 
8110 JA=JA+1: GOSUB 40100: I7.=ST: IF CH*<"t"T 

HEN 8145 
8115 JA=JA+1: GOSUB 40100: IF CH*<"i"THEN PR 

INT#4,"t";:G0T0 B145 
8120 GOSUB 40100: I *=CH»: GOSUB 40100: GL7.= AS 

C (CH*> : GOSUB 40100: GH7.=ASC (CH*> : JA=JA 

+ 1 
B125 GOSUB 40510:PRINT#4,I*CHR*(LX)CHR*(HX 

) ;:GOTO 8107 
B145 PRINT#4,CH*;: IF 17.064 THEN 8107 
8147 : 
8150 CLOSE 4:CL0SE 2: OPEN 1 ,8, 15, "S: C-"+LE 

FT*(NA*,14)+",f2" 

8510 PRINT#l,"C:C-"+LEFT*(NA*,14)+"=£S,RUN 
TIME,£X,£3" 

8520 PRINT#l,"S:£S,£X,£3":CLOSE 1 : RETURN 

40001 : 

40002 : REM »»»»» H ILFSROUTINEN 

40003 i 
40010 HX=I/256:LX=I-H7.*256. : HL*=CHR* (LX> +C 

HR*(HX): RETURN 
40100 GET#2,CH*:IF CH*=""THEN CH*=C0* 
40110 RETURN 
40200 GOSUB 40010 
40210 PRINT#3,HL*;: RETURN 
40250 I=ZN:GOTO 40310 
40300 I=ZN+1. 
40310 GOSUB 40010:PRINT#4,"ilL"HL*CHR*(ZZX 

AND 255) CHR*(ZZX/256);: RETURN 
40510 GOSUB 40100sLX=ASC(CH*):GOSUB 40100: 

IX=LX+256»ASC (CH*) 
40520 IF IX>=ZZXTHEN I=PR-3.:G0T0 40010 
40530 JX=PEEK(49153+IX):IF JX<GHXTHEN IX=I 

X+4:G0T0 40520 
40540 IF JX=GHXTHEN IF PEEK (49152+IXXGLXT 

HEN IX=IX+4:GOTO 40520 
40550 LX=PEEK(49154+IX) : HX=PEEK (49155+IX) : 

RETURN 
40560 : 
40600 GOSUB 40100: ZL*=CH*: GOSUB 40100: ZH*= 

CH*: RETURN 
40630 : 

40700 PR=PR+3. : RETURN 
40710 PR=PR+7.: RETURN 
40720 PR=PR+4. : RETURN 
40730 PR=PR+5. : RETURN 
40800 S17.=S17.+l!Sr/.(S17.,0)=l:S17.(S17.,l) = 15 

:S1X(S1X,2>=1:S1X(S1X,3)=1:K0X=K0X+1 
40810 RETURN 

40890 : 

40891 REM ===== ZEILENNUMMER SPEICHERN 

40892 : 
40900 I=PR:GOSUB 40010: POKE 49154+ZZX,LX: P 

OKE 49155+ZZX,HX:LX=ASC(ZL*) 
40910 HX=ASC(ZH*):POKE 49152+ZZX.LX: POKE 4 
9153+ZZX,HX: ZZX=ZZX+4: RETURN 

60000 : 

60001 REM *»**♦ FEHLERMELDUNGEN 

60002 : 

60020 PRINT" {YELLOW, DOWN >SYNTAX FEHLER !!{ 

LIG.BLUE>":GOTO 60080 
60030 PRINT" {YELLOW, DOWN >FEHLERHAFTE DATAZ 

EILE !! {LIG.BLUEV: GOTO 60080 
60040 PR I NT" { YELLOW, DOWN> ' ( ' WIRD NACH FUN 

KTIONEN ERWARTET • ! {LIG. BLUE>" : GOTO 

60080 
60050 PRINT" {YELLOW, DOWN > I LLEGALER BEFEHL 

f ! {LIG. BLUE)": GOTO 60080 
60060 PRINT" {YELLOW, DOWN > I LLEG ALES ZEICHEN 

! ! {LIG. BLUE>": GOTO 60080 
60070 PRINT" {YELLOW, DOWN >SPE I CHER 1ST VOLL 



<198> 
<174> 



<109> 
<061> 

<164> 

<016> 
<101> 

<151> 

<235> 

<007> 

<244> 
<171> 
<249> 

<156> 

<234> 
<207> 
<098> 
<096> 
<100> 

<027> 
<033> 
<033> 
<135> 
<033> 
<219> 
<063> 

<U5> 

<110> 
<104> 

<075> 

<030> 

<034> 
<149> 

<216> 
<219> 
<021> 
<037> 
<044> 
<055> 

<160> 
<227> 
<225> 
<109> 
<227> 

<1B5> 

<009> 
<029> 
<123> 
<031> 

<027> 

<122> 



<220> 
<192> 
<195> 
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! ! {LIG.BLUEV 


<246> 


61360 


DATA 


26,14, 33,19 -.REM COS, OPEN 


<207> 


60080 


CLOSE 2: CLOSE 3: CLOSE 4: CLOSE 5: END 


<231> 


61370 


DATA 


35,14, 28,19 sREM SIN,<CR> 


<059> 


60090 


PRINT" {YELLOW, DOWN >FALSCHER VARIABLE 




61380 


DATA 


44,14,131, 8 :REM TAN.PUSHA 


<217> 




N-/KONSTANTENTYP ! ! <LIG. BLUE>" : GOTO 




61390 


DATA 


53,14,144, 8 :REM ATN,POPA 


<196> 




60080 


<147> 


61400 


DATA 


39,16, 74,14 :REM PEEK 


<223> 


60 100 


PR I NT " {YELLOW , DOWN >KL AMMER-/KOMMAFEH 




61410 


DATA 


165,14,148, 8 :REM LEN.INCST 


<240> 




LER !! {LIG. BLUE>": GOTO 60080 


<194> 


61420 


DATA 


245,14,105,14 sREM STR*,PUTS 


<115> 


60110 


PR I NT " {YELLOW , DOWN >UNGUELT I GE SPRUNG 




61430 


DATA 


42,15, 83,14 :REM VAL,GLEN 


<168> 




ANWEISUNG !! {LI G. BLUE >": GOTO 60080 


<251> 


61440 


DATA 


210,14, 15,19 :REM ASC.SYS 


<043> 


60120 


PRINT" {YELLOW, DOWN >T I /ST KANN NICHT 




61450 


DATA 


74,12,182,14 :REM TOSS,CHR* 


<070> 




BESCHRIEBEN WERDEN ! ! {LIG. BLUE>" : GOT 




61460 


DATA 


251,17, 69, 9 :REM WAI.LEFT* 


<200> 




600B0 


<U6> 


61470 


DATA 


68, 8,110, 9 :REM <). RIGHT* 


<039> 


60130 


PRINT" {YELLOW, DOWN >FALSCHES GOTO/GOS 




61480 


DATA 


238,17,197, 9 : REM IF, MID* 


<191> 




UB !! {LIG. BLUE>": GOTO 60080 


<084> 


61490 


DATA 


138,11,170,11 :REM FLP<=>INT 


<253> 


61001 


s 


<014> 


61500 


DATA 


192, 8,216, 8,238, B:REM X(> 


<161> 


61010 


DATA 162,251,160,159,76,212,187 


<013> 


61510 


DATA 


197, 8,221, 8,243, BrREM X 


<225> 


61017 


: 


<030> 


61520 


DATA 


79,12, 90,12, 96,12:REM ST 


<169> 


61018 


REM ADRESSEN DER MASCHINEN- 


<201> 


61530 


DATA 


253,15, 4,16, ll,16sREM >< 


<175> 


61019 


REM ROUTINEN IN 'RUNTIME' 


<125> 


61540 


DATA 


18,16, 25,16, 32,16:REM >= 


<077> 


61020 


- 


<033> 


61550 


DATA 


76,16, 57,16, 92,16:REM LET 


<084> 


61100 


DATA 25, 9 


<078> 


61560 


DATA 


U9,16,126,16,151,16:REM FOR 


<102> 


61110 


DATA 195, 11, 192, 11, 1B6, 11, 169, 10 


<012> 


61570 


DATA 


240, 16 jREM "X" 


<176> 


61120 


DATA 213,11,210,11,204,11,193,10 


<194> 


61580 


DATA 


34,17, 58,17, U,17:REM INP 


<153> 


61130 


DATA 231,11,228,11,222,11,220,10 


<019> 


61590 


DATA 


76, 17 :REM IN# 


<047> 


61140 


DATA 249,11,246,11,240,11, 42,11 


<042> 


61600 


DATA 


88, 17,162, 17,212, 17:REM REA 


<237> 


61150 


DATA 11,12, B,12, 2,12, 50,13 


<201> 


61610 


DATA 


26,18,122,1B,138,18:REM LOA 


<163> 


61160 


DATA 29,12, 26,12, 20,12,107,10 


<225> 


61620 


DATA 


160, 18,185, 18,206, 18:REM PRI 


<099> 


61170 


DATA 47,12, 44,12, 38,12,130,10 


<156> 


61630 


DATA 


215,18,229,18 : REM PRI 


<195> 


61180 


DATA 204,12,201,12,195,12, 65,10 


<245> 


61640 


DATA 


3, 19 :REM PR# 


<052> 


61190 


DATA 220,12,217,12,211,12, 72,10 


<19B> 


61697 


: 




<204> 


61200 


DATA 236,12,233,12,227,12, 79,10 


<178> 


61700 


DATA 


3,3,3,3,3,3,0,0,1,1,1,1 


<094> 


61210 


DATA 252,12,249,12,243,12, B6.10 


<167> 


61710 


DATA 


0,0,0,0,0,0,0,0,0,0,0,0 


<071> 


61220 


DATA 12,13, 9,13, 3,13, 93,10 


<196> 


61720 


DATA 


0,0,0,0,3,1,2,1,0,2,2,0 


<205> 


61230 


DATA 28,13, 25,13, 19,13,100,12" 


<194> 


61730 


DATA 


2,1,1,2,1,2,1,2,1,2 


<116> 


61240 


DATA 65,12,121,11 


<038> 


61800 


DATA 


7,7,8,8,10,4,3 


<148> 


61250 


DATA 56,12,153,10 


<020> 


61900 


DATA 


1,8, 12,8,194,7,158,32,50,48 


<196> 


61260 


DATA 59,13, 82,13 : REM SGN 


<140> 


61910 


DATA 


54,50,0,0,0,32,20,8,76,0,0 


<186> 


61270 


DATA 123,13, 0, : REM INT 


<107> 


61920 


DATA 


169,0,141,31,8,162,0,169,0 


<044> 


61280 


DATA 132,13,141,13 :REM ABS 


<004> 


61930 


DATA 


157, 0,0, 224, 0.20B, 7, 172,31,8 


<063> 


61290 


DATA 167,13, 0, s REM USR 


<070> 


61940 


DATA 


192, 160,240,8,232,208,239 


<115> 


61300 


DATA 158,19,176,13 :REM BYTE.FRE 


<229> 


61950 


DATA 


238,31,8,208,234,169,0,133 


<147> 


61310 


DATA 118,19,181,13 z REM LET 2.P0S 


<171> 


61960 


DATA 


51,169,0,133,52,169,0,133,65 


<247> 


61320 


DATA 192,13,106,19 : REM SGR.GET F 


<071> 


61970 


DATA 


169,0,133,66,96 


<254> 


61330 


DATA 255,13, 81,19 :REM RND,GET I 


<239> 










61340 


DATA 8,14, 66,19 : REM LOG, GET S 


<140> 










61350 


DATA 17,14, 50,19 : REM EXP, CLOSE 


<213> 
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e6 


48 


a5 


47 
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a9 
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00 
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33 
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33 

4B 


02 
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88 
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bl 
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08 


33 

01 
fO 


aO 02 
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dl 
aO 

00 


33 

03 
bl 


dO 

dl 
33 


OB 
33 
10 


la 
28 
7f 
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3265 : 
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dO 


4* 


3375 : 


06 
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68 
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bl 


91 
33 
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c8 
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eb 
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4c 


4c 

eb 
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d9 
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33 


aB 
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03 


4c 


b6 


08 


20 


aa 
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09 


a2 
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02 


4c 


eb 


09 


00 


eingeben. 





3SS3L? 
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85 
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17 Super-Utilities fur den C 64 



Wollen Sie Ihre Basic-Programme schneller und 
kiirzer machen? Wollen Sie Betriebssystem oder 
Zeichensatz Ihres C64 andern? Dieses Maschi- 
nenprogramm lost Ihre Probleme. 

Das Programm Helps (Listing 1) entstand durch Zusam- 
menfiigen der in der praktischen Arbeit am haufig- 
sten gebrauchten Maschinensprache-Routinen zu 
einem einzigen groBen Utility-Paket. 

Die beiden Bereiche Optimierung von Basic- 
Programmen und Zeichen-Definition stehen im Mittel- 
punkt. Nach ordnungsgemaBem Laden kann man ein Me- 
nu mit SYS 49152 aufrufen (Bild 1), in dem alle Unterpro- 
gramme mit Namen und SYS-Adresse genannt werden. 

Nun zu den Programmen selbst: 
Space-Killer (SYS 49155): Hinter diesem martialisch an- 
mutenden Aufruf verbirgt sich nichts anderes als eine 
Maschinen-Routine, weiche iiberflussige Spaces aus ei- 
nem Basic-Programm entfernt. 

Nach dem SYS 491 55-Auf rut erscheint in der oberen Bild- 
schirmecke ein farbiges Symbol als Versicherung, daB al- 
les in Ordnung ist, denn die Routine kann durchaus bis zu 
V« Stunde laufen, wenn viele Spaces zu entfernen sind 
und das Programm entsprechend lang ist. 
Space-Expander (SYS 49158): Es erscheint auf den er- 
sten Blick befremdend, etwas einzufiigen, was man eben 
erst entfernt hatte. Doch die Aufgabe liegt auf der Hand: 
zwischen jeden Basic-Befehl ein Space einzufiigen, urn 
das Druckbild sauber und ansprechend zu gestalten. 
REM-Killer (SYS 49161): erklart sich selbst. Erwahnens- 
wert ist die Geschwindigkeit, mit der die Routine lauft. 20 
KByte-Programme werden in etwa 10 bis 30 Sekunden»ge- 
saubert«. 

Zeilen loschen (SYS 49164): Hiermit werden ganze Zei- 
lenbereiche geloscht. Beispiel: -SYS 49164,1000,1999« 
entfernt alle Basic-Zeilen mit den Nummern von 1000 bis 
1999 einschlieBlich. Mit Druck auf die < RETURN > -Taste 
ist der Befehl schon ausgefuhrt. 

Text suchen (SYS 49167,"Suchtext"): sucht eine Zei- 
chenkette »Suchtext« im Basic-Programm und gibt die ge- 
fundenen Zeilennummern aus. 

Eine Besonderheit ist das Jokerzeichen»?«:Hierwirdjedes 
Zeichen akzeptiert, es darf allerdings nicht an erster Stelle 
im Suchtext stehen. 

Colon-Maker (SYS 49170): ersetzt jedes Space am Anfang 
einer Basic-Zeile durch einen Doppelpunkt »:«. 
Space-Maker (SYS 49173): ersetzt jeden Doppelpunkt am 
Anfang einer Basic-Zeile durch ein Space » «. Beide Routi- 
nen dienen als Strukturhilfen. Da alle der Zeilennummer 
unmittelbar folgenden Spaces uberlesen werden, muB 
man erst einen »neutralen« Doppelpunkt setzen, diesen 
dann spater durch ein Space ersetzen. 
Package (SYS 49179): Hieristdie Notlosung fur jeden, der 
einfach mehr Platz braucht und das Basic-Programm ga- 
rantiert nicht mehr korrigieren muB. »Package« schmilzt 
namlich benachbarte Zeilen zusammen, so daB bei jeder 
Verschmelzung vier Byte freiwerden (ein Null-Byte, zwei 
Byte der Koppeladresse plus zwei Byte der Zeilennummer, 
abziiglich ein Byte fur den nun erforderlichen Doppelpunkt 
als Trennelement). 

Das braucht seine Zeit, weil einige Aspekte kontrolliert 
werden mussen, zum Beispiel ob die zu verschmelzende 
Zeile angesprungen wird, dann muB sie mit ihrer Zeilen- 



nummer prasent bleiben, sonst gibt's Arger mit dem Inter- 
preter, der sich dann mit »UNDEF'D STATEMENT ERROR« 
beschwert. Fur die Verschmelzungstiefe gibt es leider eine 
naturliche Grenze: Mehr als 255 Byte darf eine Zeile nicht 
lang sein, sonst kann der Interpreter die Zeilen nicht mehr 
binden und findet hinter einer solchen »Megazeile« keine 
Zeilennummer mehr. 

Urn Basic-Programme auf ein Minimum zu komprimie- 
ren, empfiehlt sich folgender Weg: 

- zuerst SYS 49161 eingeben. Danach sind alle REMarks 
weg, und die folgenden Routinen haben weniger Priifar- 
beit. 

- dann SYS 49155 eingeben. Hier werden alle Zeilen ge- 
staucht. 



sys49152 

sys49±55 
sys49i58 
sys49±6± 
sys49±64 
sys49±67 
sys49178 
sys49±73 
sys49±79 
sys49I82 
sys49185 
sys49I88 
sys49191 
sys49±94 
sys49197 
sys49288 
sys49283 
sys49286 

ready . 



Space-Ki Her 

Space-Expander 

REM-Killer 

Zeilen loeschen 

Text suchen 

Colon-Maker 

Space-Maker 

Package 

CPU-Register ein 

CPU-Register aus 

BASIC-Ende setzen 

Uariablen dunpen 

ROM => RAM 

Zeichensatz nach 28672 

Zeichensatz aendern 

Zeichensatz speichern 

Zeichensatz alt 



Bild 1. Mit folgendem Text meldet sich »Helps« nach der 
Eingabe SYS 49152 < RETURN > 

- zuletzt SYS 49179 eingeben, danach ist Ihr PRG redun- 
danzfrei. 

Fur spatere Anderungsarbeiten wird man sich natiirlich 
ein »augenfreundliches« Original verwahren, am besten 
benutzt man von alien Basic-Programmen zwei Versionen: 
eine originale zur Dokumentation, Korrektur, Ausdruck und 
eine komprimierte mit minimalen Platzanspruchen und 
schneller Ausfiihrung. 

CPU-Register ein (SYS 49182): zeigt fortwahrend die Re- 
gister des Mikroprozessors in den beiden oberen Bild- 
schirmzeilen an. 

AuBerdem werden der IRQ-, NMI- und der BRK-Vektor so- 
wie der Programmcounter angezeigt. Im Status-Register 
bedeutet »*« ein gesetztes Bit, ».« ein geldschtes. 
CPU-Register aus (SYS 49185): schaltet die Anzeige wie- 
der ab. 

Basic-Ende setzen (SYS 49188): setzt das Basic-Ende ge- 
nau hinter das im Speicherbefindliche Programm. Norma- 
lerweise erledigt das der Interpreter; wenn aber absolut ge- 
laden wurde, zum Beispiel in den $c-Block hinein, dann 
steht der Programm-Ende-Zeiger ebenfalls im $c-Block, 
und Eingabeversuche werden mit »out of memory«- 
Fehlermeldungen abgewehrt. 

Dump (SYS 49191): gibt alle def inierten Variablen unter An- 
gabe des Namens und des aktuellen Inhalts aus. 
Mit der < SHIFT> -Taste kann die Ausgabe angehalten, mit 
der <CBM > -Taste vorzeitig abgebrochen werden. 
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ROM kopieren (SYS 49194): kopiert Interpreter- und 
Kernel-ROM in das darunter liegende RAM. Es gibt zwar 
viele veroffentlichte Programme zu diesem Thema, doch ist 
die Geschwindigkeit dieser Programme oft nicht befriedi- 
gend. 

Zeichensatz RAM: Die letzten vier Routinen befassen sich 
mit dem Zeichensatz: 

(SYS 49197): verlegt den Zeichensatz nach $7000 und den 
Bildschirm nach $6c00. Die Absicht ist klar: Im RAM kann 
der Zeichensatz leicht verandert werden. 
Zeichensatz andern (SYS 49200): setzt voraus, daB vor- 
her durch SYS 49197 der Zeichensatz verlegt wurde, sonst 
funktioniert es nicht. Es wird eine Zeichen-Anderungsrou- 
tine aktiviert, die einfach zu bedienen ist. Man fahrt einfach 
mit dem Cursor iiber das zu andernde Zeichen, driickt 
< RETURN >, und schon sieht man wie durch eine Lupe 
die Punkte-Matrix des Zeichens. Auch hier kann man den 
Cursor innerhalb des Zeichens frei bewegen. Will man ei- 
nen Punkt loschen, driickt man die < SPACE > -Taste, zum 



Setzen gibt man ein Sternchen »*« ein. < RETURN > fuhrt 
wieder in das Menu zuriick. 

Zeichensatz speichern (SYS 49203, "filename", gerate- 
nummer): speichert den aktuellen Zeichensatz unter An- 
gabe des Filenamens (der wie bei SAVE dem SYS-Befehl 
in Anfiihrungsstrichen folgen muB), eines Kommas und der 
Geratenummer entweder auf der Floppy oder dem Kasset- 
tenrecorder. Damit nicht jedesmal wieder bei Null begon- 
nen werden muB, kann man einen Zeichensatz durch den 
Basic-Befehl: 

load "filename", geratenummer, 1 

absolut, das heiBt von $7000 bis $7fff laden. 
Die verbogenen Basic-Zeiger werden danach mit SYS 
49188 wieder gerichtet. 

Zeichensatz ROM (SYS 49206): schaltet den original Zei- 
chensatz ab $d000 ein. Der Bildschirm wird nach $400 ver- 
legt. 

(Johannes Mockenhaupt/sk) 



Name 


helps cOOO dOOO 


c200 
c208 
c210 


: 48 4S 
: 20 41 
: 4c d2 


4a 
4c 
f f 


53 41 

54 Od 
20 Oa 


34 


Sa 


2c 


61 


c410 : 


aO OO 


bl 


f d 


91 fb 


cB 


dO 


9a 


cOOO 


4c 39 cO 4c 47 c2 4c Oa 


7a 


00 

c2 


a9 

Bd 


Od 
00 


f8 

f6 


c418 > 
C420 ! 


f9 e6 
fe bO 


fc 
ef 


•6 
4c 


fe a5 
dS c3 


2e 

aO 


c5 
00 


02 
fa 


cOOB 


c3 4c d2 c3 4c 60 c4 4c 


92 


C21B 


I 04 38 


aS 


2d eS 


2b 


aa 


a5 


f5 


C428 : 


bl fb 


aa 


cB 


bl fb 


4c 


dc 


80 


cOlO 


•8 c4 4c 61 c5 4c 65 c5 


79 


C220 


i 2e e5 


2c 


20 cd 


bd 


a2 


00 


aS 


c430 i 


c3 B4 


8d 


aO 


00 bl 


f b 


85 


35 


cOlB 


4c 94 c5 4c cO c7 4c 42 


a9 


C22B 


: bd 34 


c2 


dO 01 


&0 


20 


d2 


03 


c43B : 


fd cB 


bl 


fb 


85 fe 


.i-l 


Bd 


83 


c020 


c9 4c 30 ca 4c 58 c2 4c 


aO 


C230 


I ff eS 


dO 


f4 20 


c2 


59 


54 


9c 


c440 : 


cO 05 


90 


cc 


88 bl 


f b 


c9 


da 


C02B 


39 ca 4c 16 cb 4c 6d cb 


09 


c238 


: 45 53 


20 


dO d2 


c7 


2d 


cc 


03 


C448 : 


3a fO 


f5 


c9 


20 fO 


f 1 


cS 


94 


c030 • 


4c 11 cc 4c 5a cf 4c la 


4b 


c240 


: 41 45 


4e 


47 45 


Od 


00 


20 


9d 


C450 : 


a9 00 


91 


f b 


3B 9B 


65 


fb 


b3 


C038 


cf 20 Ob c2 aO 00 a9 5e 


61 


c248 


i 13 c2 


at 


2b a5 


2c 


86 


fb 


99 


C458 : 


B5 fb 


90 


b4 


CO fc 


bO 


bO 


10 


c040 : 


a2 cO B5 fb B6 fc bl fb 


32 


C250 


: 85 fc 


aO 


01 bl 


f b 


dO 


29 


2c 


C460 : 


20 df 


c4 


B4 


fd B5 


fa 


20 


7a 


c04B : 


dO Oa a9 0* 20 16 e7 «9 


m* 


C2SB 


: 20 33 


aS 


a6 2b 


a5 


2c 


B6 


BB 


C46B : 


df c4 


84 


Bd 


85 Be 


20 


13 


fO 


c050 : 


OB 4c 16 e7 20 d2 ff cB 


2b 


c260 


• 2d 85 


2e 


aO 00 


bl 


2d 


aa 


87 


C470 I 


c2 a6 


2b 


a5 


2c 86 


fb 


85 


f7 


c058 ! 


dO ec a>6 fc dO a>8 S3 59 


4c 


c268 


i c8 bl 


2d 


dO f2 


aS 


2d 


IB 


af 


c47B : 


fc aO 


00 


bl 


fb aa 


c8 


bl 


96 


c060 : 


53 34 39 31 35 35 3a 20 


68 


c270 


69 02 


85 


2d 90 


02 


■6 


2e 


f2 


c480 : 


fb fO 


59 


dO 


06 aO 


01 


bl 


31 


C068 i 


d3 50 41 43 45 2d cb 49 


9c 


c278 


20 60 


a6 


20 13 


c2 


4c 


7b 


eS 


C4B8 : 


fb dO 


ea 


aO 


03 bl 


f b 


c5 


f 3 


c070 t 


4c 4c 45 52 Od 53 59 53 


♦5 


c280 


e3 aO 


03 


c8 bl 


fb 


fO 


5a 


01 


c490 i 


fe 90 


f 2 


dO 


07 88 


bl 


f b 


20 


c07B i 


34 39 31 33 38 3a 20 d3 


b9 


C288 


c9 22 


dO 


09 c8 


bl 


fb 


fO 


a3 


C49B : 


cS fd 


90 


■9 


a6 fb 


a5 


fc 


9B 


c080 i 


50 41 43 45 2d c5 58 50 


ad 


c290 


51 c9 


22 


dO f7 


c9 


20 


dO 


58 


c4a0 i 


B6 Bb 


85 


Be 


aO 00 


bl 


Bb 


c7 


c088 i 


41 4e 44 45 52 Od 53 59 


38 


c298 


ea a6 


f b 


a5 fc 


B6 


8d 


B5 


ca 


c4aB : 


aa c8 


bl 


Bb 


dO OB 


f 


19 


d7 


C090 s 


53 34 39 31 36 31 3a 20 


88 


c2a0 


Be 18 


9B 


65 fb 


85 


f b 


90 


Oa 


c4b0 t 


aO 01 


bl 


8b 


dO ma 


aO 


03 


9b 


c09S I 


d2 c5 cd 2d cb 49 4c 4c 


37 


c2aB 


02 e6 


fc 


aO 00 


c8 


bl 


fb 


75 


c4b8 : 


bl 8b 


c5 


Ba 


90 f2 


dO 


09 


68 


cOaO : 


45 52 Od 53 59 53 34 39 


30 


c2b0 


fO 04 


c9 


20 fO 


f7 


IB 


9B 


79 


c4c0 : 


88 bl 


8b 


c5 


8d 90 


•9 


f 


a3 


cOaB t 


31 36 34 3a 20 da 45 49 


c9 


c2bB 


65 fb 


85 


fd aS 


fc 


69 


00 


24 


c4cB : 


B7 aO 


00 


bl 


8b 91 


f b 


c8 


f c 


cObO : 


4c 45 4e 20 4c 4* 45 53 


31 


c2cO 


85 fa 


aO 


00 bl 


fd 


91 


fb 


36 


c4d0 : 


dO f9 


e6 


f c 


a6 Be 


a5 


2e 


be 


cOb8 : 


43 4B 45 4a Od 53 59 53 


b2 


c2cB 


c8 dO 


f 9 


e6 fc 


e6 


fe 


a5 


a2 


c4d8 : 


cS 8c 


bO 


ef 


4c 58 


c2 


20 


eO 


cOcO : 


34 39 31 36 37 3a 20 d4 


13 


c2d0 


2e c5 


(e 


bO ef 


aa 


00 


dB 


df 


c4e0 i 


fd as 


20 


Ba 


ad 4c 


f 7 


b7 


\M\ 


cOcB : 


45 58 54 20 53 55 43 48 


dO 


c2dB 


20 33 


a5 


a6 Bd 


a5 


Be 


4c 


a9 


c4eB : 


20 fd 


ae 


a2 


00 20 


73 


00 


d6 


cOdO : 


45 4a Od 53 59 53 34 39 


Sa 


C2e0 


4e c2 


aO 


00 bl 


fb 


aa 


cS 


■f 


c4f0 : 


fO Oa 


4B 


68 


9d 10 


02 


eB 


39 


cOdB l 


31 37 30 3a 20 c3 4f 4c 


aa 


c2eB 


bl fb 


4c 


4e c2 


aa 


cO 


05 


02 


c4f8 : 


eO 30 


90 


f 1 


a9 00 


9d 


10 


84 


cOeO : 


4* 4a 2d cd 41 4b 45 52 


84 


c2f0 


bO 03 


4c 


24 c3 


B8 


a9 


20 


21 


C5O0 : 


02 a6 


2b 


a5 


2c 86 


f b 


85 


c7 


c0e8 : 


Od 53 59 53 34 39 31 37 


aO 


c2fB 


dl fb 


fO 


04 cB 


4c 


75 


c3 


dO 


C50B : 


fc aO 


01 


bl 


fb dO 


Od 


68 


16 


cOfO : 


33 3a 20 d3 SO 41 43 45 


69 


c300 


c8 Ba 


4c 


SB c3 


a9 


c7 


4B 


63 


c510 : 


4B 60 


aO 


00 


bl fb 


AA 


cB 


eB 


cOfB : 


2d cd 41 4b 15 52 Od 53 


87 


c308 


a9 3c 


48 


4c 73 


00 


20 


13 


49 


c518 : 


bl fb 


dO 


e9 


aO 03 


cB 


bl 


al 


clOO : 


59 53 34 39 31 37 39 3a 


3d 


c310 


c2 a6 


2b 


a5 2c 


86 


fb 


85 


97 


c520 : 


fb fO 


ef 


cd 


10 02 


dO 


f 6 


Bb 


cioa ■ 


20 50 41 43 4b 41 47 43 


6f 


c318 


fc aO 


01 


bl fb 


dO 


03 


4c 


c6 


c528 : 


18 98 


84 


8d 


65 fb 


85 


fd 


■7 


clio ■ 


Od 53 59 53 34 39 31 38 


ca 


C320 


58 C2 


jO 


03 c8 


bl 


fb 


dO 


Od 


CS30 : 


aS fc 


69 


00 


B5 fe 


aO 


00 


91 


cllB ■ 


32 3a 20 c3 dO dS 2d d2 


fa 


C32B 


03 4c 


c7 


c3 c9 


22 


dO 


09 


bf 


c538 i 


c8 b9 


10 


02 


f 11 


c9 


3f 


5a 


cl20 i 


45 47 49 S3 34 43 52 20 


bf 


C330 


cB bl 


fb 


fO f4 


c9 


22 


dO 


bS 


c540 : 


fO f6 


bl 


f d 


48 68 


d9 


10 


27 


cl2B s 


45 49 4e Od 53 59 53 34 


<d 


c338 


f7 aa 


10 


b8 c9 


a3 


fO 


e4 


ad 


C548 : 


02 fO 


ed 


a4 


8d dO 


cf 


aO 


b2 


C130 : 


39 31 38 35 3a 20 c3 dO 


Oc 


c340 


c9 a6 


f 


bO c9 


a4 


fO 


aS 


BS 


C550 : 


02 bl 


fb 


aa 


c8 bl 


f b 


20 


c9 


C138 : 


d5 2d d2 45 47 49 53 54 


b6 


c34B 


c9 a7 


fO 


al c9 


a9 


f 


9d 


3a 


c55B : 


cd bd 


a9 


Od 


20 d2 


f f 


dO 


4a 


cue i 


45 52 20 41 55 53 Od 53 


a9 


c350 


c9 af 


f 


99 c9 


bO 


fO 


95 


71 


C560 i 


bl a9 


20 


dO 


02 a9 


3a 


85 


69 


C14B i 


59 33 34 39 31 38 38 3a 


a9 


c358 


c9 b4 


bO 


Oc C9 


aa 


90 


OB 


6d 


C568 : 


fd a6 


2b 


aS 


2c 86 


fb 


85 


2a 


cl50 : 


20 c2 cl d3 c9 c3 2d cS 


b7 


C360 


c9 af 


f 


04 C9 


bO 


dO 


be 


9c 


c570 : 


fc aO 


01 


bl 


fb dO 


03 


4c 


la 


cl58 i 


4e 44 45 20 53 45 54 Sa 


83 


c368 


cB bl 


f b 


fO 5a 


c9 


3a 


fO 


84 


C578 : 


58 c2 


aO 


04 


bl fb 


c5 


fd 


eB 


C160 : 


45 4a Od 53 59 53 34 39 


ee 


c370 


b3 c9 


20 


fO af 


a6 


fb 


a5 


99 


C5B0 : 


dO 04 


49 


la 


91 fb 


aO 


00 


63 


Cl68 : 


31 39 31 3a 20 d6 41 52 


2c 


C378 


fc 86 


Bd 


B5 Be 


18 


BB 


98 


cB 


c588 : 


bl fb 


aa 


c8 


bl fb 


4c 


6d 


01 


Cl70 I 


49 41 42 4c 45 4e 20 44 


44 


c3B0 


65 fb 


85 


fb 90 


02 


■6 


fc 


72 


C590 l 


c5 4c 


SB 


c2 


20 13 


c2 


20 


dO 


cl78 : 


55 4d 50 45 4e Od 53 59 


7a 


cV.SB 


IB a6 


38 


ca ca 


B6 


f e 


B6 


45 


C59B i 


05 c3 


B6 


41 


85 42 


20 


9e 


71 


c ISO : 


33 34 39 31 39 34 3a 20 


cO 


C390 


25 aS 


fb 


B5 24 


69 


01 


B5 


d4 


cSaO : 


c7 20 


93 


c7 


86 3b 


B5 


3c 


26 


clSB : 


d2 cf cd 20 3d 3a 20 d2 


aS 


C39B 


fd 90 


02 


e6 fe 


aO 


ff 


bl 


93 


c5aB : 


e4 41 


e5 


42 


bO 03 


4c 


4B 


d3 


C190 : 


cl cd Od 53 59 53 34 39 


59 


c3a0 - 


24 91 


fd 


BB dO 


f9 


bl 


24 


09 


cSbO : 


b2 20 


93 


c7 


86 3f 


B5 


40 


49 


cl9B i 


31 39 37 3a 20 da 45 49 


fb 


C3a8 


91 fd 


c6 


25 c6 


fe 


a5 


25 


d3 


c5bB : 


aO 01 


bl 


43 


fO d3 


a9 


7f 


01 


claO : 


43 48 45 4e 53 41 54 5a 


68 


c3b0 : 


c5 fc 


bO 


e9 aO 


01 


a9 


20 


56 


c5c0 i 


85 IS 


B5 


14 


20 05 


c3 


20 


2d 


claB : 


20 4a 41 43 48 20 24 37 


2d 


c3b8 : 


91 fb 


M 


00 dS 


20 


33 


a5 


a9 


c5cB : 


Be a6 


bO 


2f 


aO OO 


bl 


Bb 


a3 


clbO i 


30 30 30 Od 53 59 53 34 


Sc 


c3c0 : 


a6 3d 


a5 


Be 4c 


15 


c3 


aO 


26 


c5d0 i 


aa cS 


bl 


f b 


fO bb 


48 


cB 


6a 


clbB i 


39 32 30 30 3a 20 da 45 


b7 


c3cB : 


00 bl 


f b 


aa cB 


bl 


fb 


4c 


9B 


c5d8 i 


a5 3b 


91 


22 


cB aS 


3c 


bl 


dl 


clcO ■ 


49 43 4B 45 4a 53 41 34 


93 


c3d0 : 


15 c3 


20 


13 c2 


20 


33 


•5 


77 


c5e0 : 


24 B6 


43 


6B 


85 44 


aS 


3b 


ad 


clcB : 


5a 20 41 45 4e 44 45 32 


ac 


c3d8 : 


a6 2b 


a5 


2c 86 


f b 


85 


fc 


Sb 


cSeB : 


IB 65 


3f 


B5 


3b aS 


3c 


65 


dO 


cldO i 


4e Od 53 59 53 34 39 32 


cS 


c3e0 


aO 01 


bl 


fb dO 


03 


4c 


58 


f4 


c5fO : 


40 85 


3c 


90 


d7 b6 


7a 


dO 


54 


cldB : 


30 33 3a 20 da 45 49 43 


bB 


c3eB 


c2 aO 


03 


c8 bl 


fb 


fO 


36 


ff 


C5f8 : 


02 b6 


7b 


aO 


00 bl 


7a 


dO 


79 


cleO : 


48 45 4a 53 41 54 5a 20 


29 


c3f0 • 


c9 22 


dO 


09 c8 


bl 


fb 


fO 


Ob 


c600 i 


13 aO 


02 


bl 


7a fO 


c5 


aS 


ac 


cIbB : 


53 50 45 49 43 4B 45 52 


Oa 


c3fB . 


2d c9 


22 


dO f7 


c9 


Bf 


dO 


Sa 


C608 : 


7a 18 


69 


05 


85 7a 


90 


eb 


dO 


ClfO I 


4a Od 53 59 53 34 39 32 


e5 


c400 : 


ea cO 


OS 


bO 2c 


aO 


00 


bl 


cd 


C610 ■ 


e6 7b 


bO 


•7 


C9 22 


dO 


Ob 


e4 


clfB : 


30 36 3a 20 da 45 49 43 


59 


C40B 


fb 85 


fd 


c8 bl 


f b 


85 


fe 


6d 


c618 : 


20 73 


00 


cl 


OO fO 


e2 


c9 


d2 



88 



SONDERHEFT 24 



i*M? 



C64 



TOOLS GEMISCHT 



c620 : 


22 dO f5 c9 B9 fO 17 c9 


71 


C920 : 


aO 00 18 aS 8b 69 01 91 


a6 


cc20 : 


20 d2 ff c8 dO f2 13 11 


dS 




c628 : 


Ba fO 13 c9 8d fO Of c9 


58 


C928 : 


fb cB a5 Be 69 OO 91 fb 


57 


cc28 : 


11 11 4d 49 54 20 12 c3 


54 




c630 : 


a7 <0 Ob c9 i:b dO be 20 


ca 


c930 : 


cB bl 8b dO 03 4c 5B c2 


47 


cc30 : 


d5 d2 d3 cf d2 92 20 20 


eO 




c638 l 


73 00 c9 a4 dO bf ee 00 


79 


C938 .- 


20 33 a5 a6 fb a5 fc 4c 


a9 


cc38 : 


20 da 45 49 43 48 45 4e 


68 




c640 : 


dB 20 73 00 bO b7 B4 14 


OB 


e940 : 


c7 c7 ad 14 03 ac 15 03 


c9 


cc40 > 


20 45 49 4e 53 54 45 4c 


a4 




c648 : 


84 15 90 31 aa a5 15 85 


dB 


c948 : 


Bii Od ca 8c Oe ca a9 5b 


35 


cc48 : 


4c 45 4e 2c Od 4d 49 54 


59 




C650 I 


22 c9 19 bO aB a5 14 Oa 


cf 


C950 : 


aO c9 78 Bd 14 03 8c 15 


5a 


ccSO : 


20 12 d2 c5 d4 d5 d2 ce 


cb 




cfaSB l 


45 22 Oa a5 22 65 14 B5 


Be 


c95B I 


03 58 60 aO OO b9 7b c9 


03 


cc5B : 


92 20 20 20 57 41 45 4B 


2c 




c660 : 


14 a5 22 65 15 85 15 06 


Sa 


c960 : 


fO 42 29 3f 99 00 04 a9 


al 


CC60 : 


4c 45 4e 2b Od Id Id Id 


11 




c66B : 


14 85 15 8a 65 14 85 14 


Ob 


c968 : 


63 99 SO 04 ad B6 02 99 


77 


cc68 : 


Id 12 46 37 92 3a 20 20 


c3 




c670 : 


90 02 e6 IS c8 bl 7a c9 


♦ 5 


c970 : 


00 d8 99 28 dB 99 50 dB 


95 


cc70 : 


20 20 20 20 da 45 49 43 


30 




c67B : 


20 fO f9 c9 3a a5 14 c5 


75 


C97B : 


cB dO e2 49 S2 51 20 20 


fb 


cc78 : 


48 45 4e 53 41 54 5a Od 


9b 




c6B0 : 


41 a5 15 e5 42 90 4B 84 


69 


c9B0 : 


42 52 4b 20 20 4e 4d 49 


fe 


cc80 i 


Id Id Id Id 12 d2 dS ca 


c4 




c688 : 


ce 20 3c c7 38 a2 90 20 


B9 


c988 : 


20 20 20 50 43 20 20 53 


27 


ccBB i 


2f d3 d4 cf dO 92 3a cl 


da 




c690 : 


49 be 20 dd bd aO ff cB 


fid 


C990 : 


56 20 42 44 49 5a 43 20 


c4 


cc90 : 


42 42 52 55 43 4B 2a 11 


84 




c69B : 


b« 00 01 dO fa a5 7a a6 


cO 


c99B : 


41 43 20 SB 52 20 59 52 


be 


cc98 : 


Od Id Id Id Id Id Id Id 


88 




c6a0 i 


7b 85 5f 86 60 3B 98 eS 


7c 


c9a0 : 


20 53 50 00 ad Oe ca 20 


35 


ccaO : 


Id Id Id Id Id 00 a8 84 


b4 




c6aB : 


ce 30 26 fO 6a 85 ce a5 


Bf 


c9a8 : 


16 ca ad Od ca 20 16 ca 


cc 


ccaB : 


Bd 98 c9 20 bO 04 a9 20 


Oa 




c6b0 : 


2d B5 5a 18 65 ce 85 58 


cd 


c9b0 : 


ad 17 03 20 Of ca ad 16 


dB 


ccbO i 


dO 07 aa 10 04 c9 aO 90 


a3 




c6b8 : 


a5 2e 85 5b 69 00 85 59 


aO 


c9bB i 


03 20 16 ca ad 19 03 20 


9a 


ccbB : 


f5 20 d2 ff e6 Bd a5 8d 


fc 




c6c0 : 


c5 3B 90 06 a5 58 c5 37 


29 


c9c0 : 


Of ca ad 18 03 20 16 ca 


c2 


cccO ! 


29 Of dO 09 a9 Od 20 d2 


ef 




c6c8 : 


bO 6d 20 bf a3 fO 48 90 


33 


c9c8 : 


bd 06 01 20 Of ca bd OS 


15 


cccB i 


ff a9 Ob 85 d3 cB dO d9 


8a 




c6du : 


5a 49 ff aB cB a2 00 a5 


dl 


C9d0 ! 


01 20 16 ca a9 20 20 2b 


33 


ccdO : 


b9 db cc fO lb 20 d2 ff 


C6 




c6d8 : 


5f c5 2d a5 60 e5 2e bO 


69 


c9d8 : 


ca a9 08 B5 a4 bd 04 01 


74 


ccdB : 


c8 dO f5 13 11 11 11 11 


b8 




cfaeO : 


36 93 11 11 11 11 21 21 


a7 


c9e0 -. 


85 a5 06 a5 90 04 a9 2a 


92 


cceO : 


11 11 11 11 Id Id Id Id 


4a 




c6e8 : 


cb 50 49 42 4f 4f 46 54 


■7 


c9eS : 


dO 02 a9 2e 20 2b ca c6 


fe 


cce8 : 


Id Id Id Id Id Id Id 00 


aa 




c6f0 : 


21 ce 50 44 4c 46 4f 49 


dc 


c9f0 : 


a4 dO ef bd 03 01 20 Of 


B7 


ccfO : 


BS fb a9 00 BS fc 20 41 


20 




c6fB : 


42 56 51 55 Od 11 44 21 


11 


c9fB : 


ca bd 02 01 20 Of ca bd 


63 


ccf8 i 


cf c9 Id dO 25 b6 fc b6 


58 




c700 : 


32 3a 39 35 21 cc 50 46 


Bb 


caOO : 


01 01 20 Of ca Ba IB 69 


aO 


cdOO i 


d3 a6 fc eO 10 90 Bf c6 


54 




c70B : 


4d 4f 11 Id Id Od 00 e6 


ed 


caOB : 


06 20 Of ca 4c 31 ea 48 


c6 


cd08 : 


d3 c6 fc a4 fb cO Of bO 


75 




c710 : 


5f dO c4 e6 60 dO cO aO 


b6 


calO : 


a9 20 20 2b ca 6B 48 4a 


dc 


cdlO : 


e5 b6 fb a9 Od 20 d2 ff 


b9 




c718 : 


00 b9 00 01 fO 05 91 7a 


B8 


calS : 


4a 4a 4a 20 If ca 68 29 


5a 


cdlB : 


a9 00 BS fc 09 Ob 85 d3 


69 




c720 : 


c8 dO f6 20 9e c7 20 73 


al 


ca20 : 


Of c9 Oa 90 04 e9 09 dO 


fe 


cd20 : 


dO dO c9 13 dO 04 aO 00 


dd 




c728 : 


00 90 fb aO 00 c9 2c dO 


24 


ca28 : 


02 09 30 99 00 04 cB 60 


f2 


cd28 : 


fO a6 c9 9d dO Oa a6 fc 


83 




C730 i 


02 a9 89 aa 4c ff c5 a2 


eO 


ca30 I 


ad Od ca ac Oe ca 4c 52 


b9 


cd30 : 


fO c4 cfa fc c6 d3 dO bB 


9f 




C738 I 


10 4c 3a a4 02 aO 00 b9 


2a 


ca36 : 


c9 .)6 2d a5 2e 86 fb 85 


66 


cd38 : 


c9 11 dO Od a4 fb cO Of 


ab 




c740 : 


al c6 fO IB 48 29 7f c9 


23 


ca40 3 


fc 38 a5 fb b5 2f a5 fc 


a9 


cd40 i 


bO b4 20 d2 ff b6 fb dO 


75 




c748 : 


20 90 06 6B e9 01 4c 52 


bb 


ca4B : 


e5 30 bO 55 aO 00 84 d3 


eO 


cells : 


ad c9 91 dO Ob a4 fb fO 


00 




c750 : 


c7 68 20 d2 ff c8 dO e7 


07 


ca50 : 


bl fb 85 fd 29 7f aa cB 


ab 


cd50 : 


a5 20 d2 ff ct fb do 9e 


B7 




c758 : 


85 22 86 23 aO 02 84 d3 


cB 


ca58 : 


bl fb BS fe 29 7f a8 20 


b9 


cdSB i 


c9 03 dO 03 4c 58 c2 c9 


5d 




c760 : 


20 7b a4 bl 22 c5 14 cB 


cf 


ca60 : 


ec ca a5 fd 05 fe 30 3a 


58 


cd60 : 


Od fO Of c9 88 dO 08 ad 


fad 




c76B : 


bl 22 e5 15 bO 51 aO 00 


Se 


ca68 : 


a2 00 20 f 6 ca 18 a5 fb 


Bd 


cdfaB : 


18 dO 49 02 Bd IB dO 4c 


fO 




c770 : 


bl 22 aa cB bl 22 86 22 


SO 


ca70 : 


69 02 85 22 a5 fc 69 00 


68 


cd70 : 


f6 cc aS fc a4 fb fO ab 


9b 




c778 : 


85 23 bl 22 fO 41 a5 63 


b6 


ca78 : 


85 23 20 a6 bb 20 dd bd 


lb 


cd78 : 


18 69 10 BB dO fa 4B 29 


b2 




c7B0 : 


65 3f B5 63 a5 62 65 40 


d6 


caBO : 


20 le ab a9 Od 20 d2 ff 


ec 


cd80 : 


80 B5 fd 6B 29 7f c9 20 


45 




c788 : 


85 62 bO 04 c9 fc 90 cc 


4b 


caBB : 


ad Bd 02 fO 08 c9 01 fO 


4f 


cdBB : 


90 d9 c9 40 90 02 29 3f 


bb 




c790 t 


4c 48 b2 20 fd « 20 6b 


Se 


ca90 : 


f 7 c9 02 fO Oc 18 a5 fb 


lb 


cd90 : 


a4 fd fO 02 09 40 85 fb 


50 




c79B : 


a9 a6 14 a5 15 60 20 33 


89 


ca9B : 


69 07 aa a5 fc 69 00 90 


20 


cd9B : 


ad 18 dO 29 07 4a 09 Oe 


aa 




c7a0 : 


a5 IB aS 22 69 02 B5 2d 


16 


caaO : 


9c 60 a5 fd 30 2a a2 24 


bd 


cdaO : 


85 fc 06 fb 26 fc 06 fb 


f f 




c7a8 : 


a5 23 69 00 85 2e a5 41 


lc 


caaB : 


aO 3d 20 ec ca a9 22 20 


4f 


cdaB : 


26 fc 06 fb 26 fc a9 07 


4c 




C7b0 : 


at 42 B5 14 86 15 20 13 


13 


cabO i 


d2 ff aO 04 bl fb B5 fe 


39 


cdbO : 


85 Bd aO 00 b9 c2 cd dO 


ae 




c7bB : 


a6 a5 5f 85 43 86 44 60 


f4 


cab8 : 


88 bl fb 85 fd BB bl fb 


ab 


cdbB : 


03 4c 3B CB 20 d2 ff cB 


« 




c7c0 : 


20 13 c2 a6 2b a5 2c B6 


Bd 


cacO : 


BS 8d aO 00 c4 8d bO bb 


27 


cdcO : 


dO f2 13 11 11 11 11 11 


fO 




c7c8 : 


fb 85 fc ee 00 d8 Ba 18 


c4 


cacB : 


bl fd 20 d2 ff cB dO f4 


4e 


cdc8 : 


11 11 11 11 11 11 11 Id 


aO 




c7d0 : 


69 03 B5 f7 aS fc 69 00 


03 


cadO : 


a5 fe 10 b-1 a2 25 20 (fa 


SI 


cddO i 


Id Id Id Id Id Id Id Id 


dO 




c7dB : 


B5 fU aO 01 bl fb dO 03 


66 


cadB : 


ca 18 aS fb 69 02 85 64 


Id 


cdd8 : 


Id Id Id Id Id bO cO cO 


4b 




c7e0 : 


4c 58 c2 aO 00 B4 02 e6 


17 


caeO i 


a5 fc 69 00 85 65 20 61 


24 


cdeO : 


cO cO cO cO cO cO aB 11 


37 




c7eB : 


f7 dO 02 e6 fB bl f7 fO 


84 


cae8 : 


af 4c 7d ca Ba fO 03 20 


f2 


cde8 : 


9d dd 1 1 9d dd 1 1 9d dd 


04 




c7f0 : 


37 c9 22 dO Id e6 02 e6 


Bd 


cafO : 


d2 ff 98 4c d2 ff aO 3d 


9c 


cdfO : 


11 9d dd 11 9d dd 11 9d 


b2 




c7fB : 


f7 dO 02 e6 fB bl f7 fO 


94 


caf8 : 


dO f2 c2 cl d3 c9 c3 20 


05 


cdfB : 


dd 11 9d dd 11 9d dd 11 


18 




cBOO : 


27 c9 22 fO eO dO fO aO 


4c 


cbOO : 


2b 20 cb c5 d2 ce cl cc 


2b 


ceOO : 


9d dd 9d 9d 9d 9d 9d 9d 


If 




cBOB : 


00 bl fb aa c8 bl fb 4c 


dB 


cbOB : 


20 4a 45 54 5a 54 20 49 


85 


ceOB : 


9d 9d 9d 9d ad cO cO cO 


f4 




c810 : 


c7 c7 c9 B9 fO fl c9 Ba 


39 


cblO : 


4d 20 d2 cl cd 00 aO 00 


b9 


celO : 


cO cO cO cO cO bd 9d 9d 


24 




cB18 : 


fO ed c9 8e fO e9 c9 Bf 


eB 


cblB : 


a9 aO 84 fb 85 fc aV eO 


5a 


celB : 


9d 9d 9d 9d 9d 9d 9d 91 


ff 




cB20 : 


fO e5 c9 a7 dO bf fO df 


f 9 


cb20 : 


84 fd BS fe a2 20 bl fb 


ce 


ce20 : 


9d dd 91 9d dd 91 9d dd 


60 




C8ZB : 


aO 00 bl fb 8S fd cQ bl 


B3 


cb2B : 


91 fb bl fd 91 fd cB dO 


bl 


ce2B : 


91 9d dd 91 9d dd 91 9d 


7c 




C830 : 


fb 85 fe c8 bl fd 85 f9 


db 


cb30 : 


f5 e6 fc e6 fe ca dO ee 


lc 


ce30 : 


dd 91 9d dd 91 9d dd 00 


76 




c838 : 


cB bl fd 85 fa 38 aO 00 


■fd 


cb38 : 


b9 fa ca fO 06 20 d2 ff 


ec 


ce38 : 


a5 8d 49 07 aB bl fb 85 


ea 




cB40 : 


bl fd eS fb cB bl fd e5 


c6 


cb40 : 


cB dO f5 60 dO d2 c7 2d 


17 


ce40 : 


Be a9 Of B5 d3 aO OB a9 


cd 




cB48 : 


fc dO be a6 2b a5 2c B6 


4e 


cb48 : 


cb 4f 4c 4c 49 S3 49 4f 


4a 


ce4B : 


20 06 Bb 90 02 09 Oa 20 


f2 




c850 : 


f7 85 f8 aO 01 bl <7 dO 


7b 


cb50 i 


4e 2c 20 cl 45 4e 44 45 


57 


ce50 : 


d2 ff B8 dO f2 a9 Od 20 


4f 




cB58 : 


03 4c b7 cB 18 a5 f7 69 


ea 


cbSB : 


52 55 4e 47 20 4e 49 43 


f 1 


ce58 : 


d2 ff c6 Bd 10 da b9 69 


If 




c860 : 


03 85 7a a5 fB 69 00 B5 


Sf 


cb60 : 


4B 54 20 4d 4f 45 47 4c 


59 


ce60 : 


ce fO 24 20 d2 ff cB dO 


aS 




cB6B : 


7b aO 00 e6 7a dO 02 e6 


14 


cb6B : 


49 43 4B 21 00 a9 6c aO 


c9 


ce68 : 


fS 13 11 11 11 11 11 11 


4d 




cB70 : 


7b bl 7a fO 37 c9 22 dO 


6c 


cb70 I 


00 c5 2e bO Ob b9 44 cb 


lc 


ce70 : 


11 11 11 11 11 11 11 Id 


88 




cB7B : 


Oe e6 7a dO 02 e6 7b bl 


5b 


cb7B : 


fO c9 20 d2 ff cB dO fS 


25 


ce78 : 


Id Id Id Id Id Id Id Id 


78 




c880 : 


7a fO 29 c9 22 dO f2 c9 


fe 


cb80 : 


84 37 c5 3B bO 02 85 38 


ba 


ceflO : 


Id Id Id Id Id Id 00 B5 


dd 




cB88 : 


89 fO Oc c9 8a fO 08 c9 


a9 


cb8B : 


a2 10 a9 dO 84 fb 85 fc 


Bf 


ceBB : 


fB BS f7 20 41 cf c9 Id 


39 




cB90 : 


Bd fO 04 c9 a7 dO d4 20 


64 


cb90 : 


a9 70 84 fd 85 fe ad Oe 


75 


ce90 : 


dO Od a6 f7 eO 07 bO f3 


80 




cB9B : 


73 00 20 6b a9 a5 15 c5 


28 


cb9B : 


dc 29 fe Bd Oe dc a5 01 


da 


ce9B : 


b6 f7 20 d2 ff dO ec c9 


aa 




cBaO i 


fa dO c6 a5 14 c5 f9 dO 


62 


cbaO : 


29 fb 85 01 bl fb 91 fd 


86 


ceaO : 


9d dO Ob ab f7 fO b4 c6 


65 




c8a8 : 


cO 4c 07 cB aO 00 bl f7 


2a 


cba8 : 


c8 dO f9 e6 fc e6 fe ca 


cc 


ceaB : 


f7 20 d2 ff dO dd c9 11 


a9 




c8b0 : 


aa c8 bl f7 4c 4f c8 ee 


6a 


cbbO : 


dO f2 aS 01 09 04 85 01 


4c 


cebO 1 


dO Od a4 f8 cO 07 bO d3 


fe 




c8b8 : 


00 04 aO 00 IB a5 fd 69 


5c 


cbbB : 


ad Oe dc 09 01 8d Oe dc 


33 


cebB : 


20 d2 ff e6 fB dO cc c9 


fb 




cBcO i 


ff 85 Bb a5 fe 69 ff BS 


60 


cbcO : 


ad 00 dd 29 fc 09 02 8d 


45 


cecO : 


91 dO Ob a4 f8 fO c4 c6 


c8 




c8c8 : 


Be a5 02 fO 04 a9 22 10 


fc 


cbcB : 


00 dd a9 be Bd 18 dO a9 


B9 


cecB i 


fB 20 d2 ff dO bd c9 20 


e7 




cBdO : 


02 a9 3a 91 8b c8 c9 22 


d2 


cbdO I 


6c Bd 8B 02 b9 df cb fO 


11 


cedO : 


fO Ob c9 2a fO 2b c9 Od 


a7 




c8d8 : 


fO f7 IB a5 fd 69 04 85 


cS 


cbdB : 


35 20 d2 ff cB dO f5 93 


b4 


ced8 : 


dO bl 4c 16 cc a6 f7 eO 


fa 




c8e0 : 


24 a5 fe 69 00 85 25 e6 


52 


cbeO : 


11 11 11 Oe 24 36 43 30 


el 


ceeO : 


OB bO f3 20 d2 ff a9 80 


16 




cBs8 : 


Bb dO 02 e6 8c a4 02 fO 


11 


cbe8 : 


30 3a c2 49 4c 44 53 43 


ca 


ceeB : 


a6 f7 fO 02 4a ca dO fc 


3b 




cBfO : 


04 c6 02 fO f2 bl 24 91 


66 


cbfO -. 


48 49 52 4d Od 11 24 37 


73 


cefO : 


49 ff 85 fd a4 fB bl fb 


2b 




cBfB : 


8b c8 dO f9 e6 8c e6 25 


13 


cbfB : 


30 30 30 3a da 45 49 43 


17 


cefB : 


25 fd 91 fb e6 f7 4c Bb 


76 




c900 i 


a5 2e cS 25 bO ef a5 fb 


eb 


ccOO : 


48 45 4e 47 45 4e 45 52 


aB 


cfOO : 


ce a6 f7 eO 08 bO d6 20 


dd 




c90B : 


69 04 85 Bb a5 fc 69 00 


2a 


cc08 : 


41 54 4f 52 Od 00 4c SB 


44 


List inn 1 „HFI PR.. RiitP mit 






c910 : 


B5 8c bl 8b fO Oa e6 8b 


cb 


cclO : 


c2 a9 93 20 d2 ff aO 00 


3f 










c918 : 


dO fB e6 Be dO f4 fO f2 


Oe 


cclS : 


b9 26 cc dO 03 4c a6 cc 


fB 


dem MSE (Seite 159) eingeben. 
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cf08 : 


d2 


ft 


a9 


BO 


at 


*7 


*0 


02 


46 


cf6B : 


85 


Be 


a9 


8d 


4c 


dB 


■»* 


20 


lc 


cfc8 : 


00 00 00 00 


00 


00 00 00 


c9 


cflO : 


4a 


ca 


dO 


tc 


a4 


♦ B 


11 


+ b 


el 


cf70 : 


20 


ca 


4f 


48 


41 


4e 


4e 


45 


Id 


cfdO : 


00 00 00 00 


00 


00 00 00 


dl 


cflB : 


dO 


eO 


aV 


04 


•0 


9/ 


Bd 


BB 


SI 


c*78 : 


53 


20 


cd 


4f 


43 


4b 


4S 


4e 


79 


cfdB : 


00 00 00 00 


00 


00 00 00 


d9 


c*20 : 


02 


Be 


00 


dd 


20 


Sb 


*t 


aV 


54 


cfBO : 


48 


41 


55 


50 


54 


20 


20 


cb 


27 


cfeO : 


00 00 00 00 


00 


00 00 00 


al 


c*28 : 


Ob 


20 


di' 


tf 


aV 


OH 


20 


d2 


♦ 3 


cfB8 : 


4f 


45 


4c 


4a 


43 


20 


31 


39 


c3 


cfe8 : 


00 00 00 00 


00 


00 00 00 


e9 


c-f30 : 


<•» 


aV 


Oa 


20 


d2 


♦ ♦ 


•9 


Ob 


75 


cf90 : 


38 


34 


20 


d4 


al 


•2 


01 


B6 


c9 


cffO : 


00 00 00 00 


oo 


00 00 00 


11 


cf38 : 


Ud 


20 


dO 


Ud 


21 


do 


4c 


bB 


36 


cf9B : 


b9 


ca 


86 


Be 


aO 


dO 


a9 


cO 


e2 


cffB : 


00 00 00 00 


00 


00 00 00 


f9 


c«40 : 


c^ 


46 


cc 


46 


c+ 


20 


«4 


+ + 


b3 


cfaO : 


85 


Bf 


a9 


Bp 


4c 


dB 


II 


00 


b4 












cf48 : 


to 


*7 


IB 


e6 


cc 


•4 


d3 


bl 


c7 


cfaB : 


00 


00 


00 


00 


00 


00 


00 


00 


a9 












c*50 : 


dl 


29 


7f 


91 


dl 


68 


60 


20 


ea 


c«b0 : 


00 


00 


00 


00 


00 


00 


00 


00 


bl 












c*5B : 


Id 


ae 


20 


d4 


■1 


a 2 


01 


aO 


c7 


clbli : 


00 


00 


oo 


00 


00 


00 


00 


00 


b9 












cf60 : 


HO 


Bib 


bv 


ca 


86 


Bd 


•9 


70 


47 


cfcO : 


00 


00 


00 


00 


00 


OO 


00 


00 


cl 


Listing 1. (SchluB) 









Alte Texte im neuen Kleid 



Babylonische Verwirrung herrscht bei den Text- 
formaten verschiedener Textprogramme. Dies 
macht sich unangenehm bemerkbar, wenn man 
seine Dokumente grafisch ansprechend - etwa 
mit dem Printfox - drucken will. Die folgenden 
kurzen Programme schaffen Abhilfe. 

Wem das Programm »Printfox« (siehe Ausgabe 11/87 
des 64'er-Magazins) so gut gefallt, daB er damit 
auch seine alten Texte drucken will, dem wird jetzt 
geholfen. Mit den vier folgenden Konvertierungsprogram- 
men (Listing 1 bis 4) konnen Sie Texte in den Formaten von: 

- Textomat nach Printfox 

- Mastertext nach Printfox 

- Printfox nach Mastertext 

- Printfox nach Textomat 

umwandeln. Uber den Umweg eines Printfox-Textes kann 
so auch 

- Textomat nach Mastertext 

- Mastertext nach Textomat 

umkopiert werden. Die Bedienung der Programme ist sehr 
einfach. Nach Start eines der Konvertierprogramme mit 
RUN muB lediglich der Name des Originaltextes und der 
Name des Files, unter dem der konvertierte Text gespei- 



chert wird, eingegeben werden. Daraufhin wird eine Wand- 
lung samtlicher druckbarer Zeichen vorgenommen; For- 
mat-Steuerzeichen werden ignoriert. Der Kontrollausdruck 
am Bildschirm kann mitunter etwas chaotisch aussehen, 
aber keine Angst, denn bei den Grafikzeichen handelt es 
sich urn Umlaute, die im Textprogramm dann wieder als sol- 
che erscheinen. 
Beispiel: 

Sie haben einen Brief mit Textomat geschrieben und ent- 
decken nun, daB dies mit Printfox wesentlich schoner aus- 
zudrucken ware. 

1. Programm »FOX-TEXTO« in Rechner laden. 

2. Diskette mit Textomat-Text in das Laufwerk legen. 

3. Programm starten und Filenamen eintippen. 

Das Programm liest nun aus dem Quelltext (Textomat) 
Zeichen fur Zeichen ein, wandelt nach Bedarf urn und 
schreibt die neuen Zeichen in den Zieltext (Printfox). Paral- 
lel dazu erfolgt eine Ausgabe auf dem Bildschirm. Nach der 
Ende-Meldung kann der neue Text direkt von Printfox ein- 
gelesen und weiterverarbeitet werden. Ubrigens: Unbe- 
dingt darauf achten, daB die Anzahl der freien Blocke auf 
der Diskette grdBer als die Lange des Textes ist, sonst 
kommt es zu einem DISK FULL ERROR. 

Die vier Basic-Listings werden mit dem Checksummer 
eingegeben. (Peter Engels/Stefan Willmeroth) 



100 REM TEXTO-FOX <023> 

110 REM <1 72 > 

120 REM 01.03.87 BY P.ENGELS <148> 

130 REM <121> 

140 REM <202> 
150 PRINT CHR*(14)"<CLR,2DOWN}0EXTDMAT -> 

£RINT£DX"CHR* ( 13) " <D0WN,3SPACE>IEXTK0N 

VERTER<2D0WN>" <182> 

160 INPUT"flUELL-IEXT: , ';GF*:QF*=QF*+",P,R" <100> 

170 INPUT" £IEL-JEXT:";ZF*:ZF*=ZF*+",P,W" <201> 

180 OPEN 1,8,3,QF* <048> 

190 OPEN 2,8,4,ZF* <213> 

200 PRINT#2,CHR*(B4>;:REM TEXT-KENNUN6 <0B2> 

210 : <186> 

220 GET#1,A*:IF A*=""THEN A*=CHR* (0) <025> 

230 A=ASC(A*):B=0 <145> 
240 IF(A>64)AND<A<91)THEN B=A+32:G0T0 370: 

REM KLEIN <100> 
250 IF(A>192)AND(A<219)THEN B=A-128:G0T0 3 

70: REM GROSS <115> 
260 IF(A>31)AND(A<65)THEN B=A:GOTQ 370: REM 

ZIFFERN & ZEICHEN <094> 

270 IF A=160 THEN B=127:REM SHIFT SPACE <132> 

280 IF A=95 THEN B=13:REM ABSATZ <197> 

290 IF A=169 THEN B=91:REM AE <182> 

300 IF A=16B THEN B=92:REM OE <0B7> 

310 IF A=170 THEN B=93:REM UE <176> 

320 IF A=165 THEN B= 123: REM AE <025> 

330 IF A=161 THEN B=124:REM OE <079> 



340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 



IF A=166 THEN B=125:REM UE 
IF A=167 THEN B=126:REM SZ 

IF A=95 THEN PRINT CHR* ( 13) ; : GOTO 390 

PRINT CHR* (A); 

IF ST=2 GOTO 430: REM FILE-ENDE 

IF B=0 GOTO 220 

PR I NT#2 , CHR* ( B > ; : GOTO 220 

PRINT#2,CHR*(0) ;CHR*(0) 

CLOSE 1: CLOSE 2 

PR I NT : PR I NT : PR I NT " {RVSON , SPACE > JEXT I S 

T KONVERTIERT ! ! <RVOFF>" 



<002> 
<212> 
<082> 
<006> 
<179> 
<176> 
<016> 
<188> 
<142> 
<166> 
<008> 

<170> 



Listing 1. »TEXTO-FOX«. Textomat wird zu Printfox. 
Bitte mit dem Checksummer (Seite 159) eingeben. 



MASTER-FOX 
01.03.87 BY P.ENGELS 



100 REM 
110 REM 
120 REM 

130 REM 

140 REM 

150 PRINT CHR*(14)"<CLR,2D0WN>BASTERTEXT - 

> £RINT£DX"CHR*<13> " <DOWN, SPACE >IEXTKO 

NVERTER <2D0WN > " 
160 INPUT"aUELL-J£XT: " ; QF*: QF*=QF*+" ,P,R" 



<005> 
<172> 
<148> 
<166> 
<202> 



<156> 
<100> 



90 
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. 170 


INPUT" ZIEL-JEXT: " ; ZFS: ZF*=ZF*+" ,P,W" 


<201> 


360 PRINT CHR*<B> ; 


<191> 


180 


OPEN 1,8,3,QF* 


<048> 


370 IF ST=2 GOTO 420: REM FILE-ENDE 


<154> 


190 


OPEN 2,B,4,ZF*:PRINT#2,CHR*C84);:REM T 




380 IF B=0 GOTO 220 


<252> 




EXT-KENNUNG 


<01B> 


390 PRINT#2,CHR*<B>; : IF B=13 GOTO 460: REM 




200 


PRINT: PRINT 


<152> 


SPACES UEBERLESEN 


<215> 


210 


GET#1,A*:GET#1,A*:REM START ADRESSE UE 




400 GOTO 220 


<114> 




BERLESEN 


<165> 


410 3 


<132> 


220 


GET* 1, A*: IF A*=""THEN A»=CHR*<0> 


<025> 


420 PRINT#2,CHR*<0> ;CHR*<0):REM ENDEKENNUN 




230 


A=ASC(A*>:B=0 


<145> 


G 


<049> 


240 


IF(A<27)THEN B=A+96:G0T0 360: REM KLEIN 


<001> 


430 CLOSE 1: CLOSE 2 


<254> 


250 


IF(A>31>AND(A<91)THEN B=A:GOTO 360: REM 




440 PRINT: PRINT: PRINT" <RVSON>IEXT 1ST KONV 






Z I FFERN , ZE I CHEN , GROSSBUCHST . 


<068> 


ERT I ERT ! ! (FfVOFF > " : END 


<061> 


260 


IF A=160 THEN B= 127: REM SHIFT SPACE 


<122> 


450 I 


<172> 


270 


IF A=142 THEN B=13:REM ABSATZ 


<110> 


460 GET#1,A*:IF A*=""THEN A*=CHR* (00) : GOTO 




280 


IF A=91 THEN B=91:REM AE 


<093> 


460 


<050> 


290 


IF A=92 THEN B=92:REM OE 


<050> 


470 IF A*=CHR*(32)THEN 460: SPACES UEBERLES 




300 


IF A=93 THEN B=93:REM UE 


<006> 


EN 


<203> 


310 


IF A=27 THEN B= 123: REM AE 


<191> 


480 GOTO 230 


<210> 


320 


IF A=2B THEN B= 124: REM OE 


<033> 






330 


IF A=29 THEN B=125:REM UE 


<126> 






340 


IF A=30 THEN B=126:REM SZ 


<13B> 


Listing 2. »MASTER-FOX« Master-Text wird zu Printfox. 


350 


t 


<072> 


Bitte mit dem Checksummer (Seite 159) eingeben. 



100 


REM FOX-TEXTO 


<008> 


300 


IF A=92 THEN B= 168: REM OE 


<204> 


110 


REM 


<172> 


310 


IF A=93 THEN B= 170: REM UE 


<161> 


120 
130 


REM 01.03.87 BY P.ENGELS 


<148> 
<121> 


320 
330 


IF A=123 THEN B=165:REM AE 
IF A=124 THEN B=161:REM OE 


<151> 




< 176> 


140 


REM 


<202> 


340 


IF A=125 THEN B=166:REM UE 


<224> 


150 


PRINT CHR*(14)"<CLR,2DOWN>£P,INT£0X -> 




350 


IF A=126 THEN B=167:REM SZ 


<179> 




TJEXT0MAT"CHR#(13> " <D0WN,2SPACE> JEXTKON 




360 


: 


<0B2> 




VERTER<2D0WN>" 


<245> 


370 


IF(A>31)THEN PRINT CHR*(A); 


<062> 


160 


I NPUT " SUELL-IEXT : " ; QF* : QFS=QF»+ " , P , R " 


<100> 


3B0 


IF A=13 THEN PRINT CHR*(A>; 


<113> 


170 


INPUT" ZIEL-JEXT: " : ZF*: ZF*=ZF*+" ,P, W" 


<201> 


390 


IF ST=2 GOTO 430: REM FILE-ENDE 


<176> 


180 


OPEN 1,8, 3, OF* 


<048> 


400 


IF B=0 GOTO 210 


<015> 


190 


OPEN 2,8,4,ZF* 


<213> 


410 


PRINT#2,CHR*(B> ; : GOTO 210 


<156> 


200 


PR I NT : PR I NT : GET* 1 , A*: REM TEXTKENNUNG 


<153> 


420 


: 


<142> 


210 


GET#1,A*:IF A*=""THEN A*=CHR*(0> 


<015> 


430 


PRINT#2 


<163> 


220 


A=ASC(A*):B=0 


<135> 


440 


CLOSE 1: CLOSE 2 


<00B> 


230 


IF(A>96)AND(A<123)THEN B-A-32:G0T0 370 




450 


PRINT: PRINTS PRINT" <RVSON>3EXT 


1ST KONV 




:REM KLEIN 


<0B5> 




ERT I ERT f ! <RVOFF>":END 


<071> 


240 


IF(A>64)AND(A<91)THEN B=A+12B:G0T0 370 




460 


: 


<182> 




:REM GROSS 


<1B0> 


470 


GET#1,A*:IF ASC(A*)<>13 GOTO 470:ZEILE 


250 


IF(A>31)AND(A<65)THEN B=A:GOTO 370: REM 






UEBERLESEN 


<229> 




Z I FFERN !< ZEICHEN 


<082> 


480 


GOTO 210 


<17B> 


260 


IF A=2 THEN GOTO 470: REM FORMATZEILE I 
GNORIEREN 


<162> 








270 


IF A=16B THEN B= 127: REM SHIFT SPftCE 


^ 1 T1% 








280 


IF A=13 THEN B=95:REM ABSATZ 


<115> 


Listing 3. »FOX-TEXTO« Printfox wird zu 


Textomat. 


290 


IF A=91 THEN B= 169: REM AE 


<139> 


Bitte mit dem Checksummer (Seite 159) 


eingeben. 



100 


REM FOX-MASTER 


<075> 


340 


IF A=125 THEN B=29:REM UE 


<055> 


U0 


REM 


<172> 


350 


IF A=126 THEN B=30:REM SZ 


<07B> 


120 
130 


REM 02.03.87 BY P.ENGELS 

ppM ______________________ 


<164> 
<166> 


360 
370 


IF(A>31)0R(A=13)THEN PRINT CHR*(A>; 


<082> 


t\c.n 


< 183> 


140 


REM 


<202> 


380 


IF ST=2 GOTO 440: REM FILE-ENDE 


<168> 


150 


PRINT CHR*(14)"<CLR,2D0WN>£RINT£0X -> 




390 


IF B=0 THEN 220 


<141> 




flASTERTE X T " CHR* ( 1 3 )" {DOWN , SPACE >IE X TKO 




400 


PRINT#2,CHR*(B); 


<009> 




NVERTER<2D0WN>" 


<201> 


410 


SZ=SZ+1:REM SPALTENZAEHLER 


<218> 


160 


INPUT"fiUELL-IEXT:";QF*:QF*=GF*+",P,R" 


<100> 


420 


IF B=142 THEN GOSUB 480: REM ZEILE AUFF 




170 


INPUT" ZIEL-J£XT:";ZF*:ZF*=ZF*+",P,W" 


<201> 




UELLEN 


<061> 


1B0 


OPEN 1,B,3,QF* 


<048> 


430 


GOTO 220 


<144> 


190 


OPEN 2,8,4,ZF*:PRINT#2,CHR*(0)CHR#(08) 




440 


PR I NT#2 , CHR* ( > CHR* < > : REM ENDE 


<171> 




; : REM START-KENNUNG 


<166> 


450 


CLOSE 1: CLOSE 2 


<018> 


200 


PRINT: PRINT 


<152> 


460 


PRINT: PRINT" {DOWN, RVSON>JEXT 1ST KONVE 




210 


GET#1,A*:REM TEXT-KENNUNG UEBERLESEN 


<114> 




RT I ERT ! ! <RVOFF > " : END 


<027> 


220 


GET#1,A*:IF A*=""THEN A*=CHR*(0> 


<025> 


470 


■ 


<192> 


230 


A=ASC(A*> :B=0 


<145> 


480 


IF SZ> 79 THEN PRINT#2," "; 


<035> 


240 


IF(A>96)AND(A<123)THEN B=A-96:G0T0 370 




490 


IF SZ>159 THEN PRINT#2," "; 


<027> 




:REM KLEIN 


<227> 


500 


IF SZ>319 THEN PRINT#2," "; 


<163> 


250 


IF(A>31)AND(A<91)THEN B=A: GOTO 370:REM 




510 


IF SZ>399 THEN PRINT#2," "; 


<177> 




Z IFFERN , ZEICHEN , GROSSBUCHST. 


<196> 


520 


FOR Z=SZ TO 79»(INT<SZ/79)+l):PRINT#2, 




260 


IF A=2 THEN GOTO 540: REM FORMATZEILE I 






" ";:NEXT:SZ=0: RETURN: REM AUFFUELLEN 


<006> 




GNORIEREN 


<157> 


530 


: 


<254> 


270 


IF A=127 THEN B=32:REM SHIFT SPACE 


<078> 


540 


GET#1,A*:IF ASC(A*><>13 GOTO 540: ZEILE 




280 


IF A=13 THEN B=142:REM ABSATZ 


<U1> 




UEBERLESEN 


<221> 


290 


IF A=91 THEN B=91:REM AE 


<103> 


550 


GOTO 220 


<010> 


300 


IF A=92 THEN B=92:REM OE 


<060> 








310 


IF A=93 THEN B=93:REM UE 


<016> 








320 


IF A=123 THEN B=27:REM AE 


<248> 


Listing 4. »FOX-MASTER« Printfox wird zu Mastertexi 


330 


IF A=124 THEN B=28:REM OE 


<154> 


Bitte mit dem Checksummer (Seite 159) eingeben 
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Die Super-Dial 
fiir Ihre Programme 




Einen Programm-Kompressor und Packer vom 
Feinsten bieten wir Ihnen mit dem »64'er-Packer«. 
Dank eines ausgefeilten Kompressionsverfah- 
rens kurzt er sogar mehrteilige und sehr lange 
Programme radikal. Durch frei wahlbare Packver- 
fahren ist er auBerst flexibel und jedem »Pro- 
gramm-Monster« gewachsen. 

Der 64'er-Packer ist ein sehr leistungsfahiger MehrpaB- 
Kompressor mit vielen Kombinations- und Einstell- 
mbglichkeiten, wobei jeder PaB ein fur sich lauffahi- 
ges Programm liefert. Er enthalt ferner mit einem der Vor- 
kompressoren einen »Linker«, der zum Zusammenfugen 
mehrteiliger Programme fast den ganzen RAM-Speicher- 
platz zur Verfiigung stellt. Lucken zwischen den einzelnen 
Teilen verschwinden beim Komprimieren fast ruckstands- 
los. 

Aus 115 much 52 

So gelang es in der Redaktion beispielsweise, die 115 
Blocks lange compilierte Version unseres Basic-Compilers 
»Hypra-Comp« aus dieser Ausgabe auf sage und schreibe 
52 Blocke zu kurzen. Unser Textverarbeitungsprogramm 
Master-Text war als einteilige gepackte Version gar nur 
noch 48 Blocke lang. Der Kompressor und das eingebaute 
Fastload stellen zum Packen und Laden den RAM-Bereich 
von $01 EO bis $FFFF (also mehr als 63,5 KByte!) bereit. Die 
maximale, vom Vorkompressor verarbeitete Programmlan- 
ge betragt $FE1E Byte. 

Urn all dies zu ermoglichen, muBte ein kleiner KompromiB 
eingegangen werden: 



Der 64'er-Packer (Listing 1) muB vor der Inbetriebnahme 
auf ein 8-KByte-EPROM vom Typ 2764 gebrannt werden. 
Dieses EPROM muB dann auf einer handelsublichen 
EPROM-Karte, die den Bereich ab $8000 adressiert, in den 
Expansion-Port desC 64 gesteckt werden. Das Listing stellt 
den (ubrigens ungepackten) Packer in direkt brennfahiger 
Form dar. 

Urn Ihnen ein angenehmeres Arbeiten zu ermoglichen, 
wurden in den 64'er-Packer ein Schnellader (ca. 5mal 
schneller als die Standardbetriebsystem-Routinen) fur die 
zu packenden Programme und ein komfortables Directory- 
Auswahlmenii integriert. Aus diesen Grunden kann es zu 
Inkompatibilitaten mit manchen Hardware-Speedern kom- 
men. Mit Speeddos und Dolphin-DOS abeitet der Packer 
jedoch problemlos zusammen. 

Bei der Realisierung der Verfahren und der Dekompres- 
soren beziehungsweise der Abstimmung der Dekompres- 
soren aufeinander, wurde sehr viel Wert darauf gelegt, not- 
falls etwas mehr Aufwand zu treiben, urn sicher zu sein, das 
entstehende Programm nicht unnotig urn 1 Byte verlangert 
zu haben. 

Nachdem Sie das EPROM eingeschaltet haben, kann 
der 64'er-Packer durch einen Reset (Druck auf den Reset- 
taster oder Einschalten des Rechners) oder auch durch 
SYS 64738 gestartet werden. Es erscheint dann ein Menu 
(Bild 1), bei dem man ftinf verschiedene Funktionen perTa- 
stendruck anwahlen kann: 



<v> 


Vorkompressor 


<D> 


Directory 


<Z> 


Zwischenkompressor 


<E> 


Exit 


<N> 


Nachkompressor 
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Vor der Beschreibung der verschiedenen Kompressorty- 
pen, erhalten Sie zunachst eine Anleitung zum Directory- 
Auswahlmenu. 

Haben Sie einen der drei Kompressoren (iiber <V>, 
<Z> oder <N) im Hauptmenii angewahlt, so werden Ih- 
nen zunachst die (maxima!) 21 ersten Files der eingelegten 
Diskette angezeigt. Nun stehen folgende Tasten zur Wahl: 
< SPACE > 

Auswahl des ersten angezeigten Files. Ein ausgewahltes 
File wird revers dargestellt. 
< CURSOR aufwarts > 

Scrollen um einen Fileeintrag nach oben 

< CURSOR abwarts> 

Scrollen um einen Fileeintrag abwarts 
<A> 

Auswahl aller Files ab dem an erster Stelle angezeigten 
<B> 

Anzeigen des letzten Files 
<C> 

Desaktivieren aller Files ab dem an erster Stelle ange- 
zeigten 
<T> 

Anzeigen der (maximal) 21 ersten Files (wie zu Anfang) 

< — > 

Beenden der Auswahl 

Fur die ausgewahlten Filenamen stehen insgesamt 160 
Byte zur Verfugung, wobei ein Eintrag »Namenslange+1« 
Byte belegt. Somit konnen bei einbuchstabigen Namen 
maximal 80 Files vermerkt werden. Alle angewahlten Files 
werden dann spater mit einem Schnellader, der ungefahr 
die 5fache Geschwindigkeit der Standardbetriebssystem- 
Routinen besitzt, geladen - das im Directory am weitesten 
hinten liegende zuerst. 

Tritt hierbei ein Fehler auf, kann man durch Drucken von 

< SPACE > ein erneutes Laden des entsprechenden Files 
versuchenodermittels < RUN/STOP > einen Abbruchher- 
beifiihren. 

<V> Vorkompressor/Linker 

Zuerst erfolgt die Auswahl des beziehungsweise der zu 
komprimierenden Files wie oben beschrieben. Es durfen 
so viele Files angewahlt werden, wie in den 160 Byte groBen 
Namensspeicher aufgenommen werden konnen. Es wird 
nochmals darauf hingewiesen, daB in der Directory weiter 
hinten stehende Files zuerst geladen werden. Dies ist je- 
doch nur bei sehr vielen Files, die zu einem Programm ge- 
packt werden sollen, relevant. 

Drei Fndcer-Verfahren 



Danach werden Sie zunachst nach dem Namen des zu er- 
zeugenden, vorkomprimieren Files gefragt und dann nach 
der Kompressions-Art, wobei die drei Mbglichkeiten »A«, 
»B« oder »C« zur Auswahl stehen: 
TypA 

Dieser Typ gilt fur alle Maschinenprogramme, bezie- 
hungsweise Programme oder Grafikbilder, die keine Basic- 
Zeilen beinhalten, beziehungsweise auf die Zeropage- 
Adressen $2D/$2E (Zeiger auf Basic-Programmende/Va- 
riablenanfang) angewiesen sind. Die Endadresse eines so 
gepackten Programms steht nach dem Dekomprimieren in 
$AE/ $AF. 

iypB 

Dieses Packverfahren gilt auch fur die Ausnahmen bei 
Typ »A«. Die Endadresse nach dem Dekomprimieren steht 
in $AE/ $AF und $2D/$2E. Geeignet ist dieses Verfahren 
besonders fur Maschinenprogramme mit Basic-Start. Pro- 
gramme, die mit diesem Verfahren gepackt werden, sind in 
der Regel 8 Byte langer als solche vom Typ A. 



TypC 

Fur Basic-Programme geeignet. Das Verfahren ist ahn- 
lich Typ »B«, jedoch erfolgt der Programmstart nach dem 
Dekomprimieren mit RUN, statt mit SYS. Die gepackten 
Programme sind daher in der Regel 11 Byte langer als bei 
Verwendung von Typ »A«. 

Tips zur Vorgehensweise 



1. Mehrteiiige Programme mit Lader 

Naturlich darf ein eventuell vorhandener Lader, der nor- 
malerweise die einzelnen Programmteile in den Speicher 
ladt, nicht mitkomprimiert werden. Sonst wurde bei mehr- 
teiligen, komprimierten Programmen ja noch einmal alles 
nachgeladen.ErfullteinsolchesLadeprogrammallerdings 
noch andere Aufgaben, so muB das zu komprimierende 
Programm entsprechend modifiziert werden (Einfiigen der 
Routinen). Eine andere Moglichkeit besteht darin, alle 
LOAD-Befehle etc. aus dem Ladeprogramm zu entfernen. 
Beim Programm »LADER« von Master-Text funktionierte 
diese Methode beispielsweise einwandfrei. 

2. Basic-Programme und Maschinenroutinen 
Wollen Sie Basic-Programme und Maschinenroutinen 

zusammen komprimieren, sollte nicht unbedingt immer 
Typ »B« oder »C« gewahlt werden, wie man vielleicht anneh- 
men konnte. Dazu das folgende Beispiel: 

Man mochte ein Basic-Programm zusammen mit Ma- 
schinenroutinen, die ab $C000 liegen, packen. Da bei Typ 
»B« beziehungsweise »C« die Endadresse nach dem De- 
komprimieren in $AE/$AF und $2D/ $2E liegt und groBer als 
$C000 ist, wurde man bei Start des Basic-Programmes ei- 
nen »OUT OF MEMORY ERROR« erhalten, da gemaB$2D/ 
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Bild 1. Das Hauptmenii des 64'er-Packers 

$2E kein Speicherplatz mehr fur die Basic-Variablen vor- 
handen ist. Diesem kann man mit zwei verschiedenen Me- 
thoden begegnen, wobei man allerdings die Endadresse 
des unkomprimierten Basic-Programmes wissen muB (sie- 
he Adressen 45/ 46 = $2D/ $2E): 

a) Die ersten Befehle des Basic-Programmes mussen lau- 
ten: 

1 POKE 45, XXX: POKE 46,YYY: CLR 

Fi)r »XXX« setze man nun (3stellig, notfalls fiihrende 
Null(en)!) den Wert ein, den man mit PRINT PEEK(45) 
erhalt. Fur »YYY« setzt man analog den Wert: 
PRINT PEEK (46) 

Dieser muB ebenfalls 3stellig eingegeben werden. Da- 
nach darf die Programmlange auf keinen Fall verandert 
werden, es sei denn, man setzt danach die neuen PEEK- 
Werte in Zeile 1 ein; 

b) Man schreibt ein kurzes Maschinenprogramm, das man 
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am besten im freien RAM-Bereich (beispielsweise ab 
$0334) plaziert und das zuerst aufgerufen wird: 
IDA # t < (Basic-Programm Ende) ;Low-Byte 
STA $2D 

LDA #\ > (Basic-Programm Ende) ; High-Byte 
STA $2E 

JSR $A659 ;Basic-Befehl CLR 

JMP $A7AE ;RUN 

Oder 

JMP $C000, falls Maschinenroutinen ab $C000 zuerst auf- 
gerufen werden miissen. 

Es ist dann naturlich sinnvoller, Typ »A« zu verwenden, da 
dieseretwas kurzerist — die Werte in$2D/$2E miissen dort 
nicht gesetzt werden, da es in diesem Fall ohnehin der fal- 
sche Wert ware. Diese Probleme treten jedoch nur dann 
auf, wenn die einzufiigenden Maschinenroutinen hinter 
dem Basic-Programm liegen, sonst sind namlich die Werte 
fur $2D/$2E bei Typ »B« beziehungsweise »C« richtig. 

Hat man nun Typ »A« oder »B« gewahlt, so erwartet der 
»64'er-Packer« noch zwei Eingaben: 

1. In ha It der Adresse $01 (Prozessor-i/O-Port) 
Hiermit laBt sich die Speicherkonfiguration nach dem De- 

komprimieren einstellen. Die Eingabe erfolgt entweder de- 
zimal Oder — durch ein vorangestelltes »$« — hexadezimal . 
Normalerweise wird der Wert 55 beziehungsweise $37 ein- 
gegeben. Dieser ist auch als Default-Wert vorgegeben und 
braucht nur noch mit < RETURN > bestatigt zu werden. 
Siehe dazu aber folgende Tabelle: 

52 ($34) Komplette 64 KByte RAM 

53 ($35) RAM bis auf den l/O-Bereich ($D000-$DFFF) 

54 ($36) Basic ausgeblendet (dafiir RAM), aber l/O- 

Bereich und Betriebssystem 

55 ($37) Einschaltwert (z.B. nach einem Reset): Basic, 

l/O-Bereich und Betriebssystem eingeschaltet 
Naturlich kann man dieselben Konfigurationen auch mit 
anderen Werten erhalten, da nur die letzten 3 Bit relevant 
sind. Zwei dieser Eingabewerte haben allerdings hier Son- 
derfunktionen: , 

00 ($00) wie $34, nur wird der Dekompressor 

urn 4 Byte kiirzer 
255 ($ff) wie $37, nur wird der Dekompressor urn 
2 Byte kurzer 
Gibtmanein <+ > hinterdiesem Wert ein (zumBeispiel 
$36+), so wird das Programm mit gesetztem Interrupt-Flag 
angesprungen und eventuell 1 Byte eingespart, im Falle ei- 
nes nachgestellten <->wird ein CLI (Clear Interrupt-Flag) 
erzwungen. Eine Option, die Sie wahrscheinlich selten ver- 
wenden werden. 

Anderenfalls wird die Speicherkonfiguration automa- 
tisch iiberpriift: sind l/O-Bereich und Betriebssystem ein- 
geschaltet, so wird ein CLI eingefiigt, sonst wird das wah- 
rend des Dekompressionsvorganges gesetzte Interrupt- 
Flag beibehalten. 

2. Einsprungadresse 

Hier gibt man die Startadresse des (Maschinen-) Pro- 
gramms ein, und zwar entweder dezimal oder - durch ein 
vorangestelltes »$« - hexadezimal. Beispielsweise sind 
2061 und $80D identische, gultige Eingaben. Voreinstel- 
lung ist $080d (2061). 

Start des KompreBvorgangs 

Nach diesen Eingaben wird der eigentliche Kompressions- 
vorgang gestartet. Das Komprimieren erfolgt direkt auf Dis- 
kette. Wahrenddessen wird ein Teil der aktuell bearbeiteten 
Daten auf dem Bildschirm angezeigt (optische Kontrolle). 
<Z> Zwischenkompressor (auch als Vorkompressor 
verwendbar) 



Die Auswahl des zu komprimierenden Programmes ge- 
schieht wie oben beschrieben. Es ist hier jedoch nur ein Fi- 
le auszuwahlen (im Falle einer Mehrfachauswahl wird das 
in der Directory am weitesten hinten stehende geladen). 
Die Eingabe des neuen Filenamens ist mit der beim Vor- 
kompressor identisch. Bei der Typeingabe hat man nun al- 
lerdings sechs Moglichkeiten: 

Typ »A«: Zwischenkompressor 1 

Dies ist in der Regel der effektivste der drei im 64'er- 
Packer enthaltenen Zwischenkompressoren. Mit ihm kann 
man mit dem Vorkompressor oder mit einem der Zwischen- 
kompressoren schon komprimierte Programme kiirzen. 
Dabei wird vom Benutzer noch eine Eingabe verlangt - die 
sogenannte »Suchtiefe«, die zwischen 1 und 255 liegen 
kann. Eine kleine Suchtiefe hat einen sehr schnellen - bei 
einer Suchtiefe von 1 sogar linear von der Programmlange 
abhangigen(ca. 1 Block pro Sekunde) -Kompressionsvor- 
gang zur Folge. Je groBer die Suchtiefe, urn so effektiver ar- 
beitet der Packer in der Regel. Jedoch wird die Kompres- 
sionsleistung nicht mehr erhoht, wenn die Suchtiefe groBer 
wird als die Programmlange des zu komprimierenden Pro- 
grammes in Blocken auf Diskette. Das heiBt konkret, es 
macht keinen Unterschied, ob man ein 120-Block-Pro- 
gramm mit Tiefe 120 oder 255 komprimiert. Bei hochster 
Kompressionsleistung ist die Kompressionszeit - in gewis- 
sen Grenzen -quadratisch von der Programmlange abhan- 
gig. Im Extremfall sind Kompressionszeiten von zirka 5 
Stunden durchaus moglich. 
Typ »B«: Zwischenkompressor 2 

Wie Typ »A«, jedoch mit einem etwas einfacheren Verfah- 
ren und 27 Byte kiirzerem Dekompressor. Dieser Typ ist un- 
ter Umstanden Typ »A« vorzuziehen, wendet man ihn auf re- 
lativ kurze, vorkomprimierte Programme an. 
Typ »C«: Zwischenkompressor 3 

Schneller Kompressor mit einer Kompressionsge- 
schwindigkeit von zirka einem Block pro Sekunde. Auch er 
erwartet als weiteren Parameter bei der Eingabe eine Such- 
tiefe. Normalerweise sollte man hier Null eingeben. Je gro- 
Ber die eingegebene Zahl ist, urn so unwahrscheinlicher ist 
es, daB der Packer viel bringt. Jedoch kann es durchaus 
sinnvoll sein, ein mit Zwischenkompressor 3/Tiefe (oder 
ein mit Zwischenkompressor 1 oder 2) komprimiertes Pro- 
gramm mit einer Tiefe groBer als noch einmal zu kompri- 
mieren. 
Typ »D« 

Wie Typ »A«, jedoch nicht nur auf vor- beziehungsweise 
zwischenkomprimierte Programme anwendbar, sondern 
auf beliebige, einteilige, nach $07C0 beginnende Program- 
me mit einer Lange von nicht mehr als $F7FF (63784 = 62 
KByte) Bytes. Da der Packer somit eigentlich zu einem -Vor- 
kompressor" wird, werden vom Benutzer auch die gleichen 
Eingaben wie beim Vorkompressor (siehe dort) verlangt. 
Typ »E« 

Wie Typ »B«, dariiber hinaus gilt das bei Typ »D« Be- 
schriebene. 
Typ »F« 

Wie Typ »C«, dariiber hinaus gilt das bei Typ »D« Be- 
schriebene. 

Fiigt man ein < + > zu dieser Eingabe hinzu (zum Bei- 
spiel »D+«), so arbeitet der Kompressor etwa 5% schneller, 
da der Bildschirm abgeschaltet wird. Allerdings verschwin- 
det somit die optische Kontrolle - es wird sonst jederzeit die 
Lange des bereits komprimierten Programmstuckes in By- 
te und Diskettenblocken sowie das Ende der Kompression 
angezeigt. 

Nach dem Laden des zu komprimierenden Files erfolgt 
dieAufforderung.dieZieldisketteeinzulegenund <Q> zu 
drucken.DanachbeginntderKompressionsvorgang.derin 
diesem Fall ausschlieBlich im RAM ablauft. Ist der Kom- 
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pressionsvorgang beendet, so erscheint ein »*« in der lin- 
ken, oberen Bildschirmecke. Achten Sie darauf, daB die 
Floppy nun eingeschaltet und eine Diskette eingelegt ist. 
Driicken Sie dann die SPACE-Taste, so beginnt der Spei- 
chervorgang. Tritt dabei ein Fehler auf, erscheint ein »-« 
statt des Sterns. Mit einem weiteren Druck auf < SPACE > 
kann der Speicherversuch notfalls beliebig oft wiederholt 
werden. 

Nachkompressor (nur fur vor- Oder zwischenkompri- 
mierte Programme) 

Auswahl und Eingabe des neuen Filenamens erfolgen 
wie beim Zwischenkompressor, alles andere geschieht au- 
tomatisch. Nach dem Laden des zu komprimierenden Pro- 
grammes wird dessen alte Lange (vermindert urn ein paar 
jetzt unnotige Routinen des Vor- Oder Zwischenkompres- 
sors) und die neue Lange in Byte angezeigt. Das Kompri- 
mieren erfolgt direkt auf Diskette. 
Directory 

Holt das Inhaltsverzeichnis der Diskette auf den Bild- 
schirm. Danach kann man durch Driicken einer beliebigen 
Taste wieder ins Funktionsauswahlmenii gelangen. 
Exit 

Verlassen des 64'er-Packers, ein Basic-Warmstart wird 
ausgelost. Bedenken Sie, daB wegen des eingeschalteten 
EPROMs nur 30719 Basic Bytes frei sind. Wollen Sie den 
vollen Basic-Speicherplatz, so mussen Sie zuerst das 
EPROM abschalten ($8000- $9FFF freigeben) und dann ei- 
nen Reset auslosen (Druck auf den Resettaster, SYS 64738 
Oder Aus- und Einschalten des Rechners). 

Tips fur das optionale Packen 

Abhangig davon, ob Sie einen schnellen Kompressionsvor- 
gang, einen schnellen Dekompressionsvorgang oder opti- 
male Effektivitat des Packers bevorzugen, sind folgende 
Kompressionsvorgange besonders sinnvoll: 

1. Schneller Packer (vor allem bei langeren Programmen): 

a) Zwischenkompressor Typ D / Tiefe 1 Oder 2 (darauf un- 
ter Umstanden Nachkompressor anwenden) 

b) Zwischenkompressor Typ E / Tiefe 1 oder 2 (darauf un- 
ter Umstanden Nachkompressor anwenden) 



c) Zwischenkompressor Typ F / Tiefe (darauf unter Um- 
standen Nachkompressor anwenden) 

2. Schneller Entpacker: 

a) Vorkompressor 

b) Zwischenkompressor Typ D,E oder F 

c) Vorkompressor, darauf Zwischenkompressor Typ A, B 
oder C anwenden. 

3. Effektivste Packer: 

a) Vorkompressor / Zwischenkompressor Typ A (oder 
BVNachkompressor 

b) Zwischenkompressor Typ F (Tiefe 0) / Zwischenkom- 
pressor Typ A (oder B) / Nachkompressor 

c) Zwischenkompressor Typ D / Nachkompressor 

d) Zwischenkompressor Typ D / Zwischenkompressor 
Typ C (Tiefe 0) / Nachkompressor 

Welches Vorgehen beim Packen nun wirklich das effek- 
tivste ist - das zu packende Programm also am starksten 
verkurzt - ist auch wesentlich vom zu packenden Pro- 
gramm selbst abhangig. Mit einer der vier letztgenannten 
Vorgehensweisen laBt sich in den meisten Fallen ein opti- 
malesErgebniserzielen.AberauchhiergilLimZweifelsfal- 
le verschiedene Reihenfolgen der einzelnen Verfahren 
ausprobieren. 

Beim 64'er-Packer handelt es sich urn ein komplexes 
Programmsystem. Auf eine »Schwache« des 64'er-Packers 
sei hier noch hingewiesen: Es besteht die Moglichkeit, daB 
der Dekompressor des Vorkompressors nicht ordnungsge- 
maB funktionieren kann, wenn beispielsweise das zu kom- 
primierende Programm bei $FFFF (oder kurz davor) auf- 
hort und sich vor allem am Ende schlecht komprimieren 
laBt. Hierbei handelt es sich mit Sicherheit nicht urn einen 
Programmierfehler, denn solche »Effekte« gibt es in jedem 
Packer an ahnlicher Stelle - sie sind unvermeidbar. Abhil- 
fe laBt sich hier aber in den meisten Fallen schaffen, indem 
man statt des Vorkompressors gleich einen der Zwischen- 
kompressoren (am sinnvollsten Typ D/moglichst groBe 
Suchtiefe) verwendet - falls das zu packende Programm, 
wie oben schon erwahnt, einteilig ist und nach $07C0 an- 
fangt. 

(Peter Arndt/Ulrich V6lker/sk) 
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B128 : 


20 


3a 


20 


20 


39 


00 


Od 
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8230 : 20 20 20 3a 20 20 41 9d 


f3 


BOSB : 


04 


Oa 


26 


04 


65 


03 


aa 


9B 


b6 


B148 : 


4e 


53 


50 


52 


55 


4s 


47 


41 
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Listing. Der »64'er-Packer« ist 
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20 


ae 


Programme, die bisher auf diesem 
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IB 
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62 
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20 b9 83 20 13 ee fO e2 


c4 
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B9 
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ed e8 dO f7 b5 6f 20 dd 


77 
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Sie jetzt Ihre 



-Sammlung 



Schaffen Sie sich ein interessantes Nachschiagewerk und gleichzeitig ein 
wertvolles Aidiiv! 

Kennen Sie alle Ausgaben von 64'er? Suchen Sie einen ganz bestimmten Testbericht? Oder haben Sie einen Teil 
eines interessanten Kurses versaumt? Suchen Sie nach einer speziellen Anwendung? 

Damit Sie jetzt fehlende Hefte mit »Ihrem« Aitikel nachbestellen konnen, finden Sie auf diesen Seiten eine 
Zusammenstellung aller wesentlichen Artikel der Ausgaben 01 bis 12/85. 

Und so kommen Sie schnell an die noch lieferbaren Ausgaben: Priifen Sie, welche Ausgabe in Ihrer Sammlung 
noch fehlt, oder welches Thema Sie interessiert. Tragen Sie die Nummer dieser Ausgabe und das Erscheinungs- 
jahr (z.B. 2/85) auf dem Bestellabschnitt der hier eingehefteten Bestell-Zahlkarte ein. Die ausgefiillte Zahlkarte ein- 
fach heraustrennen und Rechnungsbetrag beim nachsten Postamt einzahlen. Ihre Bestellung wird nach Zahlungs- 
eingang umgehend zur Auslieferung gebracht. 



Seit. Augibf 



Aktuell 

Alio. 

Compute] 

Interview 

Lemen 

Messen 



Commodate Gestem Heule Morgan 

Amiga — Dei neue Supercomputer 

Interview nut David Cnne (Gamo Designer) 

Schule braucht Computer (VAM- Computer) 

International Chaos Communication Congress 

Heine Meoe in der Wiisie: CES 

Hannover -Me sse *8S 

Hannover- Hesse '35 

Chicago im Zeichen der CES 

Aknielles von der CB5 In Kotn 

But Total (Intemarionale Funkausstellung) 

PCWComputarmesae in London 

Neuos von der Commodore-Fachausatellung 1985 

Die neue Abmahnmaache — Vorsicht bet Pre 

g ra m ma nge bote n 

Die Ex-Knacker — wo »nd ste gcbiicfcx-n 5 

interview mil Raubkopierem (Section 8) 

Schuoor kontra Knackls 

Raub-Talkahow 

Dan Urhebarrechtsgesec und Cedanken xu seiner 

Anwendung 

Anderung des Urheberrechtsgei 



Buchbesprechungen 



CI38 
DFO 
CraAk 



Gold man n Computer Compact 

Basic Wegweisor fur den C 64 

Alios liber den C 64, Sachbuchreihe. Band 1 

Lahrspielieug Computer C 64/VC 20 

C 84 Compuiethandbuch 

Einfuhrungskurv Commodore 64 

Dienaiprogramme VC 20. C 64. und SX 

SpaS an Maine nur dem Commodore 64 

Mathv Mr die Oboratute nut dem C 64 

Mathematische Routinon VC 20. Elektrotechnik/ 

Eiektromk 

Commodore 64-Listings. Band % Datetverwaltung. 

Schule. Hobby 

Das Traintngsbuch nun Datamat 

Bucher lum C 128 

Dai Mail boa- Jahr bach Nun die Neue 

Craflk auf dam Commodore 64 ( • Fotuen. 9/ftS) 

Funfuhrang in CAD mil dem Commodore 64 

Grafik & Musik auf dem Cammodora 64 

Verachiedene Crafikbticher ram C 64 

Von Basic xu Assembler: Daa Commodare-Buch. 

Band 4 

64 Intern 

Daa Interlace Age System -Hand buch sum C 64 

Daa C 64 Buch. Band 5: Slmoni Basic Leitfaden 

Bancode 

Noch mehr Tips und Tncka mm 64ei 

Das Kimmonbuch mm C 64 und VC 30 

Dm Floppy 1541 (MAT) 

Rombachs C 64 Spieifuhrer 

Commodore 64 -Listings. Band I. Splele 

35 ausgosuchte Spiele fur Ihren Commodore 64 



64'er Extra 

Processor Belehlsaarz des 650! '65 10- Processors 

Crank Die Videochrp-Reguner des C 64 

Sound Dor SID-C hip seine Register und Piogrammierung 

Spaucher Die Speicherbelegung des C 64 



Spcichein 



Abenteuerlosungen 



Dallas Quest Lesung 

Guncho Knll -Enchanter ist gelost 

Infocom-Gehoimrusso geluftet? 

Dea Raise Is Losung Amaion 

Activision Ad vo mures entschleien (Mindshadow. 

Tracer Sanction) 

Eureka' — ten hab's 1 

Losungen ru Hitchhiker's Guide und Sorcerer 



144 
17 



90 
44 



Spiele-Tests 



007 


lames Bond - A View to a Kill 


Abenreuer 


Abenteuarpaket 1 








The Quest — mil C 64 aufSuche nach Drachen 


Action 


Hvsa-nkuche- 








Rescue on Fractal us 




Stellar? 


Construction 


Mail Order Monsters 


Set 






Racing Destruction Set 


Ceiehick- 


Australopedicus Robust us 


lichkeit 






Bouldor Dash II 




Crystal Castles 




Cnbclys Day out 




Rockn Bolt 




Thing on a Spring 




Tom • Zaga 


Pseudo- 


Roland's Rat Race 


Ad ventures 





01 /SB 
09/65 
06/85 
0S/B5 
03/65 
03/85 
06/65 
07/86 
08/85 
0B/8S 

10/85 

una 

12 '85 
05'B5 

OS'85 



08/85 
09'BS 



03/83 
05/85 
06'85 
II'BS 
11/65 
12/63 
06/85 
07/65 
07/85 
ll/BS 

11/65 

12/65 
10/85 
11/85 
05/85 
06/85 
07/85 
OS'85 
06/85 

06'65 
06/85 
12/85 
12/B5 
13/85 
03/65 
07/85 
03/65 
11/85 



09/85 
10/85 
II/B5 
13/85 



Dl n 
03/85 
05/B5 
06/85 



01/65 
07/85 
07/85 

10/85 
08/85 
08/85 

M Bfl 

00/85 

10/85 
07/89 
09/85 
OB/BS 
10/85 
01/65 



Fourth Protocol und Franloe g t H 



Renner Die Runner 1985: Meisrverkaufio Spiele 3 
Schach Viormal Schachmati Venchiedene Schachprogramme 3 

Simulation ELrre 14 

lump Jei 1 4 

Super Huey Hubschraubersimulatoi 4 
Sport Boxspieie Frank Bruno's B t Barry McGuigan 

Champions. B 4 

Handkantvntchlag per Joystick: Kaweka • Explo- 16 
ding Fist 

Nick Faldo Plays the Open (Coif) 15 

Rally* Speedway 4 

SUpshot (Eishockeyi 9 

Summer Games II 14 

World Sena* Baseball 4 

Diverse* New York City und Air Support 14 



Hardware-Tips und Bauanleitnngen 



n Dimensjonen (Sternoanlage 



Eingabe- 

gerate 

EPROM 



Floppy/Data- 
sette 



Mit 5 Mark si 

amC64) 

Em Monitor ut genug (RGB - Composite an C 1281 

Alio Dauaene am C 16 

Alter Joystick am C 16 

Der Heur — Zusarnaauiur Fur den M5E 

EPROMs im Expanaion-Pon 
EPROMTrans — Die Super-Erweiterung 
Das 64'er EPTOM-Prograrnmlergerai. Tail 1 
Diskette nlaurwerk 1541 selbai |ustien 

Die Dataaotte stnikt rue winder (Anpaasung des 

Tonkopfs) 

Auf cu neuen Welten IEC-8us imSelbstbau 

{•FoWeneulel 10/85) 

Joystick im Selbstbau 

Da u erf euer-Ada pier 

Das 30- Mark-Interface fSclbstbau RS232) 

Cenau betrachter Die RS232/V24-Schnmstello 

U seiport -Display 

Reset-Taster Mr alts FUle (• Fehlert. 9/651 

Ana ems mach vier (sbaturxfreie BemebaayMem- 

umschaltung) 



H ar dware- Grnndla gen 



Computet 
Drucker 



Eingabe- 
gerato 

Floppy 
Monitors 

Peripherie 



Was bnngi der C 128' 

Weleher Drucker ut der Richuge? (Crundlagen) 

Hammerwerke — wle funkttonieren Ty pentad- 

drucker 

Die AJtemaoven Thermo-. Tutterxsnahldiucker 

- Plotter 

Versteht Sie Ihr Computer' (Wie runktiorueren 

Eingabegerate) 

Floppy o4«: fctuvtte'' 

Wlelunktiomerensie.waatstbetmKaufxubeachien? 

Das Kabel turn Monitor Welche Normen gibt es 1 

Crafikeingabegarli Wie funktionieren sie' 



Hardware-Tests 



Computer Generationswechael Test C 16 

Enter ausfurulicher Test C 126 PC (Tell 1) 

Erstet ausfuhrlicher Tost C 128. PC (Tuil 3) 
DFO Marbtubersichl Modems & Akustikkoppler 

Drucker Vetgkiich Drucker untet 700 Mark (T»aa und 

Marktubemcht) 

Tents und Marktubetstcht Type mad drucker 

Tosr: Brother EP 44 

Brother TC-600 

Rite man C- 

Panasonic KX-P109I 

Star SC IOC 

Melchers CP-80X — wie hktten Sie's denn gem? 

Geheimtip Der RR DP 165 

Epson GX 80 - einer filr alle 

MPS 803 - em Drucker Mr alle Getegenhetten'' 

Epson [X-8Q das violtarbtge Druck-Gerue 

Epeon FX-SS neue Retereiu 

SP 1000 VC — Superstar mil Haken 

Dei NEC-P2 - daa femostlicrie Wunder 

DMPC9 - erne sotido Sache 

Das Doppelleben deaJoyauck-Ports lOer-Tastaiuren 

Joyiocks Test und Markiuberaicht ( * Fahleneulel 

U/B5) 

E* geht auch anden Llghtpena und Trackballs 
EPROMer Fnach gebrannt ist halb gespeichen i.EPftOM- 

Program mlerge rtte im Teat) 

OuiekBvte II — das Kiaflpaket 
Floppy/Data- Turbo-nopptes. mreite Generation: Speeddos plus 
aene - Protogic DOS 

Das groBe Rennen SchneUe Bandlaufwerke 

ProfessioneUe Floppylaurwerke (ur den C 64 (IEC- 

Floppies) 

Gut gekauft w. halb gespeichen (Mai ktube rate h! 

Dtakenen) 
GteOk Die Vidoowetkautt (DtgiDxei-TeaO 

DigitaibUder md C 64: PnniTechrulr DigitUor 
Interface Hard ware- Interface ganz weich Test EC 64 

Cute Connections — U hemic hi Schnitutellen 

Card/Pnnt -6 - Daa Allround.lnterfacn 

Das W iese ma nn -Centronics- Interface 



12/95 
ll/BS 

10/ BS 
07/85 
07/85 
09/85 
07/85 
06/85 



05/05 

10 '85 
04/65 
05/B5 

I0'B5 



!0'B5 
12/95 
I0/B5 



07'85 

03'B5 
08'BS 
03/85 
08/89 
05/15 
08/BS 
07/85 



11/85 
09/85 



09/85 

06/85 
12/85 
12/85 

06/85 



01/99 
06/85 
07/BS 
07/65 
05/85 

06/65 
07/85 
06/85 
09/95 
09/85 
09/85 
10/85 
10/85 
10/83 
1/85 
ll/BS 
11/95 
11/85 
ll/BS 



ll/BS 
07/35 

10/69 



10/BS 

06/85 
01 /BS 
01/85 
03/85 
03/85 
03/65 



Monitor* 
Musilr 

Robotr-t 
Scanner 
Spe»cher 
Steuem 

Kurse 

Assa mblet 



C128 

Effektives 

Programie- 



Floppy 
Craflk 



Logeleien 
Muaik 



Sprachen 
VC20 



Em ein IEC*Bua flffnet Ttir und Tor 
( 4 Fehlert.4/6-85) 

Markiuberaicht Monochrome Morutute 
Trommelwirbel' Test Digital Drama 
Die Musikhardware xum C 64 
Roboiei aelbstgebaut (Fischartechnik) 
So lemt Ihr Drucker lesen 
Speichenuning VC 20 Test 64 KByte Kane 
nones TUrmchen: MEAInterfaee 



Assembler ist keine Alchimie. Teil 5 
Assembler ist keine Alchimie. Teil 7 
Aaaemblor at keine Alchimie. Toil 9 
Assembler ist kerne Alchimie. Toil 10 
Assembler ist keine Alchimie. Tail II 
Assembler ist keine Alchimie. Tail 12 
Assembler ist keine Alchimie. Toil 13 (5chlu5) 
Entdeckungsieise duch den C 139 
Mullabtuhr im Computer Garbage Collection. 
Tell I 

Finden nut Svsiem. eine neuaitige Suchmelhode. 

Tell 3 

Satneren mil dem Computer. Tell 2 

Snrneren mit d*m Cnmputor. T»tl 3 

Sortie ten mit dem Computer. Teil 4 

Someren mil dem Computer. Tell 5 

Sorueren mil dem Computer. Teil 6 (Schlufi) 

C 64 o«em - Dor Weg nach drauBen. Tell 1 

C 64 extern — Der Weg nach drauBen. Ted 2 

C64enem-Der Weg nach drauBen. Teil 3<SchluB) 

In die Geneimmase der Floppy elngetaucht. Toil 4 

In die Gehelmruse der Floppy eingetaucht. Tel! 5 

In die Gehelmruse der Floppy elngetaucht. Teil 6 

In die Ooheimniase der Floppy elngetaucht. Tell 7 

(SchluB) 

tory-Marupulationen I 



Directory -Man: put . 



n 



Hires 3-19 neue Basic-Belehle. Tell 2 
Hoes 3 - Crsflkkun»Anwondung. Toil 3 fSchluJ 
Sprues ohne Geheimrutu 
StreibUge durch die Cratikwelt. Teil I 
Srreibugo durch die Cratikwelt. Teil 2 
Logeleien, Tall I 
Logeleien. TW1 2 
Logeleien. Teil 3 rSchluB 
n Klang auf der Spui 



i. Toil 2 
r, Tell 4 
I. Teil 5 
I. Tail 7 
i. Teil 8 



Dem Klang auf der Spui 

Dem Klang auf dor Spui 

Dem Klang auf der Spui 

Dem Klang auf der Spui 

Dem Klang auf der Spur. Tell 9 

Dem Klang auf dor Spur, Teil 10 (SchluB) 

Memory Map nut Wandervorschlagen. Tell 3 

Memory Map mil Wandervotschlagon. Teil 5 

Memory Map mit Wandervorschlagen. Teil 7 

Memory Map mil Wandervorschlagen. Tell B 

Memory Map mil Wandervorachligen. Tell 9 

Memory Map mil Wandervorschlagen. Teil 10 

Memory Map mil Wandervorschlagen. Teil II 

Memory Map mil Wandervorschlagen. Teil 12 

Memory Map mil Wandervorschlagen. Teil 13 

Basic ist out — es iebe Forth 

Der gUUeme VC 30. Teil 4 

Der gUserne VC 20. Teil 6 (SchluB) 



Software-Tips 



o Fragcn und Antworten ;■ 



Fragen und Antworten rum 12Ber 

Fragen und Antworten xum I28er 
Drucker Der MPS 802 lemt Deutsch 

Centronics-Interlace fur leden Bedarf 
Texrveraibei Software Comer — professionelle Programme 
tung nchtig eingenot (Vutawnte-Tlpa) 

Tips '. Tricks Autoboot belm C 64 

Veibindungsfreundlich(ParaIlelachnirtBtelle des VC | 

Undefinterte Opcodes des 6502 

Durch POKEa sum Eifolg (Spiele-POKEs) 

Tips und Erweiterungen xu Hi-Eddi und Simons Basic 

Basic-BefehlctmCnff 

Durch POKEa mm Erfolg; Spiele POKEa 

Farmatiane Eingabe 

Hi Ten (Text in Hires) 

Verbotene Vanablen 

Venchiedei 

(tFeMerleufel 12/69) 

Der Tnck nut dem Joystick (J cystic kabbage) 

Verscruedene Tips fur Anfanger und Fottge- 

Bchnnene 



n fur Anfanger und Profis 



Software-Gnindlagen 



Assembler* Assemblei 1 (Einfuhrung) 

Assemble r-Bedienung leichl gemach'.. Teil I 

Der erne Konraki nut DFU 

Die Netae der Post- Btx. Daiex-P, ftleboi 

DFO - Was let das' 

Mail bos fur Anlanger 



01/85 

IM M 

01/85 
03/85 
05/65 
07/89 



09/85 
10/65 
12/99 



06/8S 
08/95 
09/95 
12/85 
08/85 
09/95 
10/BS 
01/95 
03/65 



go/a 

10/65 



11/85 
07/65 
08/85 
09/95 
01/85 
04/BS 
05/85 
07/95 
06/69 
10/85 
11/85 



06/65 
07/95 



10/99 
11/95 
12/BS 
01/95 
01/95 



10/89 
12/89 
05/85 
07/89 
12/88 

03/85 
03/85 
03/65 
03/95 
03/89 
09/95 
08/65 
06/69 
08/65 
09/85 
ll/BS 

ll/BS 

12/85 



01/61 
12/85 
06/65 
06/89 
06/99 
07/85 



Dip wiehtigsten Beguile det Dateiverwaliung 

Deieiverwaltung ist wclu gleieh Daienbank 

Daieivorwaltung VtaaJleboirnlCaufbeachiensotlien 

Hardcopy lelcht geTiacht (wie programrruen put 

Hardcopies) / 

Wie sage ich ■MMttmn EPROM' (EPROM- 

Grundlagen) / 

FunkUonen fur Anfanger 

Bessei lemon nut dom Computet 

IQangptogramiTUerung ohne Bellaia 

Takuk- und Strategieipiele 

PUy bv Mail und Play by Modem 

Sprachen fur Computer. TVii 3 

Von det Schreibmaocfune lurti Tmraynem 



. -stings zum Abtippen 

laavendung 



-if. [XI 

:fPV 



-l 



KatiV 

fcp*ie 



. rjchon 
Tvnveraibei 



Transfer 

— _-r 



toiC64aisHandballtiainer<AdMl 52 

Ligaub - ohne Organisation kein Tor (LdM) SO 
Cut Z»olmiidemC94- SchUtunvafeinsargebruue 52 
(AdM) 

WelBt du. wiooiol Sternlein siehen (5tarrtkane) 52 
(AdM) (.FehJen 6/85) 

HaushalisbuchtUhiung (AdM) 82 

Neorworkanajyse; Em Programm fur Hobby- 32 
elekiroruker (AdM) 

Prufungafragen (AdM) 32 

Til in Utem nut dom C 64 (AdM) S3 

Lynk-Mascrune (AdM) 62 

Hypra-Platot (LdM) SO 

Dpi C he mie- Assistant (AdM) s; 

SMON Tell 1 Ohne gutes Wertrz gehi es nicM 68 

HypraAsa (MM) SI 

.Neue* vom SMON ( - Fehleneufel 11/65) 67 

ReassemblBrzuHv-pra'Asai-Fettleneufet I2/B5* 97 
Erganxungen iu Hypre-Asa (bedwgte Vonweigungen) 96 

Tips & Tncka mm SMON (inklusive Disk monitor) 100 

AuDoiung Wetiboweib 8ildscrurmsette 156 
Droi Top-Programme 

Terminal programm dot Spinenklaue 149 
( • Fehlerteufel 10/85) 

SMU — Der Maskengeneraior (IdMi SO 

HiEddlDruckenoutinen 69 

C «4 Sehreiberling - Dniclun wis gemell 84 

Koalabilder Faibhardcopy aul Epson 1X80 39 

Die ntchaten 14 aus d. ElnieUoneertbeworb IS? 

Hypra-Load mal 4 ( • Fehlerteufel 3/85) 82 

Diskette n monitor 63 

Disk-Designer 70 

Henoperaaon (Hypra-Load • Hypra A**< DOSS 1 • 104 
C«ntroruca) 

Viai Pieudo-VlCs rrut 32 Sprite* 76 

Ki-Eddi Zoichen- und Malpioggramm lldM) SO 

Elekirotochrusches Zeichnen mil dem VC 20 71 

Mim-Craiac VC 20, Oraiiktulfe 69 

TnckulmrroideirtC64 Bewegte 3D-CIarik (LdM) 51 
( . Fehleneufel 6/85) 

Kurvenplotlon rrut Haidcopy auf dem C 16 68 

Doppeiie GnukauQosung fur C 128 33 
BUdai am einer anderen Dimension (A pin Una nnc hen) 80 

VIC - dai inwUigeniB Pit>jramm 173, 
( Wertbewe rbsueger) 

Sound Machine ( * Fehlerteufel 10/85) 23 

Sound Master (Basic Eiweite rung) 31 

6510 - Die Sucbe naeh der Proieoor 70 

Samurai (Scraiegiospiel) 72 
Schach demC64 Schach programm rum Abuppen 72 

Spielen auf iwei Biidscturmen 51 
ZetchonMbacroUing (LdM) 

Pac Man unter der Lupe 76 

Blnck Out B4 
Seekneg per Telefon fSchifle vonenken per Modem) 82 

Die Scroll- Maschine — D Ferutter jur Spielewelt 52 
(LdMM • Fehlert. 11/88} 

Tiny Forth Compiler (LdM)(.Fehler. 9/85) 51 

Hypra-TMi (LdM) ( 4 Fehleneufel 11/85) BO 

Druckaache — Hypn-Twrt. Teil 2 71 

Crone Bochrtaben 69 

Retime ftir Unlerprogramme 90 
Parameterubergabe an MaschineruTprachepiograrnmo 88 

Cunonteuerung leichl gemacht 86 

22 Reed Error — Theone und Praxis 41 

Floppy-Lister ( . Fehlerteufel 4'8S) 88 

Longscreen beim VC 20 83 

C 16: Help und Trace verbeuert 84 

Ordnung at das halbe Leben (Directory-Sorter) 77 

Dokumenrarionsruiie. Cioaa-Refareru-Lisle C 64 158 
(Weiibeworb) 

Pro* rrut dem C 64: Cerltesreuerung uber 76 
Uterpon ( . Feruerteulel 9/85) 

Feiutor-Befehle fur den C IG 64 

Dekrroruache Merlrzene) , 63 

FUe-Compacror B2 

REM-KUIer < - Fohlerteulel 9/88) 76 

Banc -San -Cenerator 74 

Komlortable Em- /Ausgabe routine 77 

BildBchirmmaaken leicfu emelli 88 
D«r Bitmap-Compander (HiRea-BUder kompnmieren) 81 

HypraSaw 79 

'Procedure' - oder der C 64 kann lemen 78 

Aufgewtckelt - Lanngacrolling fui VC 20 63 

Programmgeneraior fUr den C 64 66 

CroM-Refoponuen B3 

Spieleinuner Spntckill 86 

Tipp-Utflrty 99 

Der EPROM-Auiomai (wie man Module machl) 90 

eO-Zeichen-Crarik lur den C 128 78 

HyperScreen(Sprite*aufdem BUdachirmrand) 76 

Der C 64 all PET PET-Sunulatoi 87 

Formaitene Eingab* 136 



ioftware-Tests 



— 



Aaaembler im Ten Ted I 
GBaaic - Alles dnn 

MaciD-BaDC Die Unierprogramm-BibUothok 

Dart ea etwae mehi sein 1 — Ten BustnctsBanc 

Dae lntellectool 

Formel 64 Das Mulnialenl 

Terminalprogrammo Ubennchi 

Vergleichsmai - 7 Dafeiverwaliungen auf etnen BUc 

Aufgeraumt rrut MainfUo II 

Malen auf dem BildKhum (Mal programme) 

Crafikprogramme auf emen Blick MarktUberaichi 

Vergleicrwtesi Crahk-Emeiterungen 

Sohleaming — die weiche Welle de* Lemon* 

VokabeltraiTung mil dem Computer 

Marktubemchl: Lemtoftware 

Muatk fur don C 64 Ubereichl Muaiksoltware 

The MuOc System - Zwei auf emen Schlag 

Logo — die Sprache fut Einsteiger 

Dei Ada Trainmgmkura auf dem C 64 

Promal - die neuo Sprache fUr Protia? 

Forih-wans mil M&TTonh 64 

Was letsret Piter* 

Pascal fur Profia (Piofi-Paacal) 

Super- Forth 64 

C — die piofessionello Program mteraprache Tur 

don CM 

Basic 7.0 - Das Superbasic des C 126 

Comal BO — die univeraelle Program true nprac he 

Tui bo- Pascal aul dem C 138 



05/85 
OS'BS 
05/85 
09/85 

07/85 

05'35 
10/85 
09/85 
03/85 
09/85 
05/85 
03/85 



03/85 
03/85 



09/85 
10/85 
11/85 
11/85 
12/85 
01/89 
07/85 
I0/8S 
11/85 
11 '65 
12/85 
09/85 

07/85 

12/85 
06/85 
10/83 
11/85 
01/85 
01/85 
08/85 
09/85 
11/65 

01/85 
01/85 
03/85 
08/85 
05/88 

06/85 
11/85 
11/85 

05/85 

09/65 
09/85 
05/85 
06/85 
08/85 
09/85 

I0/8S 
11/86 
12/85 
06/85 



11/88 
01/85 
01/85 
01/68 
02/85 
03/85 
03/85 



05/8S 



07/65 
07/85 



07/85 
07/BS 



08/BS 
08/85 
09/85 
10/86 
10/85 
11/85 
13/85 
12/85 
..: ffl 

am 

01/85 
01/85 



OI/BS 

06/BS 
08/85 
09/85 
12/B5 
06/85 
07/88 
10/BS 
08/85 
08/85 
09/65 
01/B5 
03/85 
10/85 
09/85 
12/85 
05/85 
05/85 
07/85 
07/85 
OB/85 
08/85 
09/85 
09/85 

10/85 
10/65 
11/85 



Texrverarboi Homeward • Teitvanrbaitung iu Kause 
rung Toil'Text - Flombuitat ut Trumpf 

Proiexi ~ Teatpiofi mil 80 Zeichen 
Turomal Plus konira Vuawnie 
Der Preiahammer (Tear: SurTeawil 
Papeicllp — aiudrucklich gut 



So machen's andere 

Semmeln Semmelservice mn dem C 64 

Sport Commodote Sportiervicc Hoimcomputet eui 

Tumiera uswe n u ng 
Hilfe Computor fur Behindene 



Die Ausgaben 

2/85 und 4/85 

sind bereits vergriffen 

und nicht mehr lieferbar! 



Am besten gleich 

mitbestellen: 
Die praktischen 

64'er-Sammelboxen 



03/88 
03/85 
05/85 
06<BS 
09/85 
11/85 



06/85 
07/85 




Ein 

kompletter 

Jahrgang 

(12 Ausgaben) 

paDt in eine der praktischen 

Sammelboxen! 

Am besten gleich 

mitbestellen! 

Fur alle Leser, die »64'er« regel- 
maBig kaufen, sammeln oder im 
Abonnement beziehen, gibt es 
jetzt ein interessantes Ser- 
vice-Angebot: die 64'er-Sam- 
melbox! 

Mit dieser Sammelbox bringen 
Sie nicht nur Ordnung in Ihre 
wertvollen Hefte, sondem schaf- 
fen sich gleichzeitig ein interes- 
santes und attraktives Nach- 
schlagewerk. 

Ubrigens: Die Sammelbox ist 
nicht nur ein praktisches Aufbe- 
wahrungsmittel: Sie eignet sich 
auch hervorragend als Ge- 
schenk fur Freunde und Be- 
kannte zu vielen Anlassen. 



Audi die bisher 

erschienenen Sonderhefte 

kdnnen Sie 

jetzt diiekt bestellen: 



SONKMUFT 01/84: TIPS a TRICKS 

Unentbehrliche Anwendungslistinqs fur C 64 und 
VC20. 

SOHOHHiFT 06/85: wicmtHrH SUPH-USTIN6S 

Top-Themen aus 64'er bring! eine Auswahl der besten 
64 'er Programme. 

SONDERHEFT 08/85: ASSEMBUR 

Assembler-Know-how fur Anfanger und Fort- 
geschrittene. 

SONDERHEFT 01/86: PC 128 

Komplette Beschreibungen von C 128 and C 128D 

und passendem Zubehdr. Die Unlerschiede zum C 64. 

SONDERHEFT 02/86: TIPS a TRICKS 

Super-Listings, ausfuhrliche Grundlagen und die 
besten Tips&Tricks und Einzeiler aus 64'er. 

SONDERHEFT 03/86: C 16, C 116, VC20 UND PUIS 4 

Umfassende Grundlagen und aktuelle Informationen 
zu C16. C116, VC20 und Plus 4. 

SONDERHEFT 04/86: ABENTEUERSPIEIE 2 

Auf 160 Seiten alles uber das Programmieren von 
Abenteuerspielen und Super-Listings zum Abtippen. 

SONDERHEFT 05/86: C64-6MIHDWISSEN 

Fur alle Einsteiger umfassende Grundlagen und Hilfe- 
stellungen rund um den C64. 

SONDERHEFT 06/86: GRAHK 

Grafikprogrammiervng des C$4. CI28 und CI28 im 
C64-Modus. Dreidimensional itonslruieren mit 
'Giga-CAD'. 

SONDERHEFT 07/86: PEEKs UND POKES 

Einfuhrungskurs in die wichtigsten Speicherstellen fur 

C64. C16 und CI28. Ober 30 S eiten Tips&Tricks. 

SONDERHEFT 08: PUIS/4 UND C 16 

Ausfuhrliche Kurse furschnelle Programme auf C 16 und 
Plus/4 in Maschinensprache und Basic mit Grafik- 
befehlen. 

SONDERHEFT 09: FLOPPY I MTEIVERWITUNG 

Die etfizienle Datenverwaltung fur Einsteiger und Protis. 

SONDERHEFT 10: C 12811 

Entscheidendes Know-how fur Anfanger und Fortge- 

schrittene auf Ihrem Weg zum Proti. 

SONDERHEFT II: GRAFIK, MUSIK, kNWENDUNG 

Faszinierende Gestaltungsmbglichkeiten mit Grafik- 
und Musikprogrammen. 

SONDERHEFT 12: ASSEMBLER, PROGRAMMIERSPRACHEN 

Erfahren Sie alles uber Programmiersprachen und 
ihre Anwendungsbereiche. 

SONDERHEFT 13: HARDWARE 

Neue Moglichkeiten fur Ihren Computer durch niiU- 
liche Hardware-Erweiterungen 

MNDERHEFT 14: CI 6, CI 16, Plus/4 
Super 3D-Grafik-System zum Abtippen 

SONDERHEFT 15: TIPS UHD TRICKS UND FLOPPY 

Alles uber Laufwerke und Datasetten. 
Neue interessante Grundlagen. 

SONDERHEFT 16: C64-EINSTEIGER 

Ausfuhrliche Grundlagenartikel, komtortable 
Anwen derprogramm e. 

SONDERHEFT 1 7: SPIELE FUR C 64 UND C 1 28 

Fiirjeden elwas! Super-Listings und ausfuhrliche 
Grundlagen. 

SONDERHEFT 18: DRUCKER UND TEXTVERARBEITUNG 

Ein Querschnitt durch die gesamte. modeme 
Drucktechnik und Textverarbeitung. 

SONDERHEFT 19: EINSTEIGER 

Austuhrlicher Basic-Kurs fur alle C64-Einsleiger 
und Super-Spiele zum Abtippen. 

SONDERHEFT 20: GRAFIK 

Faszinierender Einstieg in die 3D-Welt. 

Neuer Animations-Editor fur vweiche* Bewegungen. 

SONDERHEFT 21: ASSEMBLER Ml BASIC 

Giga-Ass: Hypra-Ass hoch 2 / Paradoxon-Basic: 

SO 000 Basic Bytes free 

SONDERHEFT 22: CI 28 III 

Farbiges Scrolling im 80-Zeichen-Modus / 8-Sekunden- 
Kopierprogramm fur zwei Laufwerke 

SONDERHEFT 23: GRAFIK/ AN WENDUNGEN 

Paint Magic: ein professionelles Malprogramm. 



Tragen Sie die Nummer des gewiinschten 
Sonderheftes (z.R 08/85) auf dem Bestellab- 
schnitt der hier eingehefteten Bestell-Zahlkar- 
te ein. 



TOOLS GEMISCHT 



C64 



9198 : 


Be 95 a5 06 20 Be 95 a9 


3b 


978B : 


ca dO *a 01 08 Oc OB c3 


22 


9a 78 : 


64 60 5e 52 5a 36 10 * 1 


6a 




94a0 : 


B5 2c a9 c6 20 Be 95 a9 


9* 


9790 : 


07 9e 32 30 36 32 ** 00 


6e 


9a80 : 


ed c7 d5 83 57 40 b8 99 


c4 




94 aB : 


01 20 8e 95 28 bO 05 a9 


7* 


9798 : 


00 00 7B aO 79 b9 46 OB 


59 


9a88 : 


4d ee 2e 4c e4 54 55 78 


99 




94b0 : 


58 20 Be 95 a9 4c 20 8e 


09 


97a0 : 


99 46 01 8B dO *7 84 01 


Sf 


9a90 : 


eB 95 6e 97 bd 37 66 5a 


bS 




94bB : 


95 a5 Oa 20 Be 95 a5 Ob 


e9 


97 a8 : 


B4 ac 84 ad a2 04 b5 aa 


dO 


9a9B : 


5e a9 al 99 ad b4 le 85 


6a 




94c0 : 


20 Be 95 dO 0* a2 e* bd 


e8 


97b0 : 


dO 02 d6 ab d6 aa ca ca 


30 


9aa0 : 


29 d9 9e 23 63 9e Oc 45 


aB 




94cB : 


e4 96 20 Be 95 e8 dO *7 


aS 


97bB : 


dO *4 bl ae 91 ac a9 oO 


eb 


9aa8 : 


9e 97 27 b2 1* 7c 69 7c 


a6 




94d0 8 


a9 47 85 Oe 38 20 al 95 


76 


97c0 : 


c5 ae a9 OB e5 a* 90 e4 


30 


9ab0 : 


71 e7 a* 81 72 d3 cb 6* 


05 




94dB : 


84 e4 aO 16 18 a6 07 bd 


08 


97c8 : 


a9 01 85 ae a9 08 B5 af 


79 


9ab8 : 


*5 34 3c 3d 15 Be e4 b6 


45 




94e0 : 


Oe 98 65 Oe 91 eO aO 46 


85 


97d0 : 


4c 47 01 a5 ae B5 2d a5 


cc 


9ac0 : 


11 *7 65 ea e3 aO 01 32 


2f 




94e8 : 


IB 69 01 91 eO a9 c4 *d 


92 


97dB : 


a* B5 2e c6 01 20 59 a6 


72 


9ac8 : 


21 d7 5d 6c cl 78 66 6a 


08 




94*0 : 


Oe 9B 38 eS Oe aO 1 1 91 


62 


97e0 : 


58 4c ae a7 b3 ac e6 ac 


94 


9ad0 : 


*b 02 ea ec 20 ce d* de 


da 




94*8 : 


eO aO 34 18 69 47 91 eO 


11 


97eB : 


dO 02 e6 ad 60 91 ae e6 


44 


9ad8 : 


f6 80 a* 42 cb 90 BO Be 


9f 




9500 : 


aS Oe 49 ** a8 IB a5 Oe 


*d 


97*0 : 


ae dO 02 e6 a* 60 97 IS 


ea 


9a eO : 


75 2b dl *d b9 *4 1* cB 


70 




950B : 


ca 10 lb 69 64 99 6e 03 


al 


97*8 : 


14 7* c3 e7 35 42 96 97 


a9 


9a eB : 


de b3 d2 84 91 40 dd 4e 


14 




9510 : 


69 07 99 67 03 a6 03 ca 


57 


9800 : 


96 96 95 95 97 97 7e 20 


6a 


9a*0 : 


90 64 Bb 7c 15 05 6d c4 


dd 




9518 : 


86 68 8a 99 76 03 98 69 


5d 


9808 : 


6b 18 24 2d Od 49 bb d6 


e6 


9a*B : 


*5 45 *5 3d 95 a* Od f3 


a8 




9520 : 


be Bd a2 03 10 58 ca 10 


bb 


9810 : 


OB 03 ** ** ** ** ** ff 


9a 


9b 00 : 


46 7a Bb db c6 7d 6a 6* 


c2 




9528 : 


17 69 68 99 5b 03 69 07 


c3 


9818 : 


aO 50 20 12 84 a6 09 Be 


e9 


9b 08 : 


d9 *8 49 *S ac b9 7a *B 


e3 




9530 : 


99 54 03 a5 03 8d b9 03 


*2 


9820 : 


11 dO 20 48 94 a2 59 bd 


ea 


9b 10 : 


34 ed eO Od 4c 83 20 99 


a9 




9538 : 


98 69 aa 8d al 03 10 3e 


dO 


9828 : 


9b 9B 9d 50 05 ca 10 *7 


SB 


9b 18 : 


f2 ff 7c Oa 14 b9 60 aa 


50 




9540 : 


ca 10 17 69 85 99 23 03 


bd 


9B30 : 


a6 ac a5 ad a4 05 10 2c 


56 


9b 20 : 


c5 c7 dl aS 45 B6 df bl 


be 




9548 : 


a5 03 99 11 03 9B 69 91 


b5 


9B3B : 


a9 58 Bd 12 OB a4 bO b9 


B* 


9b 28 : 


6f 5d e4 a6 34 11 Oa 59 


fa 




9550 : 


Bd 92 03 e9 21 Bd 94 03 


*b 


9B40 : 


Oe OB 99 14 OB B8 dO *7 


33 


9b 30 : 


8* *a 55 74 28 78 2* 18 


53 




9558 : 


10 24 69 80 99 *0 00 a5 


51 


9848 : 


ad 16 08 38 e9 12 Bd 16 


9b 


9b 38 : 


7a 1* bl 06 77 aO Oe 71 


07 




9560 : 


a7 8d 6a 01 a5 a9 99 ** 


97 


9850 : 


OB ad 33 OB e5 cl a8 b9 


7* 


9b 40 : 


bO 24 7c ba 9e 60 c7 23 


cb 




9568 ; 


00 a5 aB 99 03 01 98 69 


06 


9858 ; 


14 08 99 26 08 88 dO *7 


93 


9b 4B : 


f3 13 6b 7e 5b be d8 58 


If 




9570 : 


60 Bd 6c 01 a 5 b3 Bd 5d 


bb 


9860 : 


a2 27 a9 08 86 *a Be 7e 


79 


9b 50 : 


4e 05 *d 10 50 ba dS ae 


32 




9578 : 


01 a5 b4 Bd 61 01 a2 ee 


bl 


9868 : 


03 B5 *b 8d 82 03 a4 07 


b* 


9b 5B : 


40 c7 ba 2b 23 dO 92 17 


cl 




9580 : 


a4 e4 bd *6 96 20 Be 95 


b4 


9870 : 


a9 cO B5 *c a2 04 b9 95 


d7 


9b 60 : 


33 3b 1* b* 55 8e 08 12 


** 




9588 : 


e8 dO *7 84 e4 60 91 eO 


cO 


9878 : 


98 B5 *e b9 98 98 B5 ** 


2e 


9b 68 : 


98 Ba *8 Oc db d9 d4 *7 


d5 




9590 : 


cB dO 04 e6 el e6 e5 c4 


15 


98B0 : 


aO ea 86 fd bl *e 91 *c 


4a 


9b 70 : 


42 12 5a *b al bf 02 c9 


85 




9598 : 


e5 dO 03 ee 78 03 4c 76 


42 


9888 : 


c8 dO *9 e6 ** eB eO 07 


ec 


9b 78 : 


bS fa 20 4a 2c 07 9a 51 


04 




95a0 : 


93 a5 07 2a aa 84 Oc 38 


7c 


9890 : 


dO *0 4c 6* 05 16 56 36 


aO 


9b 80 : 


9c 01 24 42 85 ae 10 74 


eS 




95a8 : 


bd *6 97 e5 Oc B5 e2 bd 


77 


9898 : 


9c Be 8b 84 fc a9 08 85 


36 


9b B8 : 


OS 10 36 eB 39 If 41 09 


•4 




95b0 : 


*e 97 e9 00 B5 e3 bd 06 


6* 


98a0 : 


*d 88 84 *e 84 ** 20 50 


4c 


9b 90 : 


be ea Bl be 24 37 24 09 


9a 




95b8 : 


98 aa bl e2 20 Be 95 ca 


dO 


98a8 : 


04 a9 01 ed 74 04 85 *c 


*6 


9b 98 : 


95 94 6c el *b 60 5a 4e 


97 




95cO : 


dO *8 60 20 b2 01 29 3* 


7* 


98b0 : 


a9 08 ed 75 04 85 *d 4c 


84 


9b aO : 


2f be be e3 *c 71 aa e6 


2e 




95cB : 


BS ** 8a Oa bO 38 30 17 


ec 
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Von Ptukern 
und Kompressoren (1) 



Grafiken oder lange Programme belegen auf der 
Diskette oder im Computer wertvollen Speicher- 
platz. Das Komprimieren eines Programms 
schafft hier Abhilfe. Wirzeigen Ihnen die Grundla- 
gen solcher Algorithmen in der Praxis. 

Dieser Artikel soil uber verschiedene Moglichkeiten in- 
formieren, wie man Speicherbereiche, egal ob sie mit 
Basic-, Maschinensprache-Programmen oder Bil- 
dern belegt sind, komprimieren kann. Am Ende soil ein Pro- 
gramm mit zwei Packern stehen, das in der Lage ist, den 
Speicherplatz auf verschiedene Artenzusammenzufassen 
und damit auch die Starken und Schwachen der beiden Al- 
gorithmen aufzeigen kann. Dieses Programm soil aber nur 
der »Rohbau« sein, den Sie selbst ausgestalten und erwei- 
tern konnen. Obwohi es moglich ist, Packer in Basic zu pro- 
grammieren, ist dieses aus technischen Griinden nicht 
empfehlenswert. Deshalb werde ich versuchen, die Ar- 
beitsweise der Kompressoren mit Hilfe der Maschinenspra- 
che zu erklaren. Sollten Sie Assembler noch nicht beherr- 
schen, kann Sie dieser Artikel vielleicht ermutigen, sich mit 
dieser Sprache zu beschaftigen. Sie sieht wesentlich 
schwerer aus, als sie ist. Doch nun endlich zu den Packern. 
Die erste Idee wie man den Speicherplatz zusammenfas- 
sen kann erhalten Sie, wenn Sie sich ein Grafikbild mit Hilfe 
eines Maschinensprache-Monitors im Speicher anschau- 
en. Dort finden Sie Bytefolgen wie in Bild 1. 

Sie erkennen eine groBe Anzahl gleicher Bytes hinterein- 
ander. Es fallt sofort auf, daB zum Beispiel nicht 32mal eine 
$FF (255 dezimal) im Speicher stehen muB, sondern nur 
die Anzahl der Bytes und der Code, der den Speicher ge- 



fQllt hat. In diesem Fall wurde es ausreichen, eine 32 ($20) 
und dann eine 255 ($FF) im Speicher stehen zu haben. 
Aber so einfach ist das auch wieder nicht. Wie sollte der 
Computer unterscheiden, ob nun 32mal der Wert 255 ge- 
meint ist, oder ob man einfach zwei Daten, ein Datum mit 
dem Wert 32 und ein Datum mit 255, gespeichert hat. 

Deshalb muB man vor die beiden Zahlen einen »Erken- 
nungs-Code« setzen. Hierbei sollte man eine nicht sehr 
haufig auftretende Zahl verwenden. Sowohl in den folgen- 



2000 


00 00 00 00 00 00 00 00 


2008 


00 00 00 00 00 00 00 00 


2010 


00 00 00 00 00 00 00 00 


2018 


00 00 00 00 00 00 00 00 


2020 


60 60 60 60 60 60 60 00 


2028 


00 00 00 00 00 00 00 00 


2030 


FF FF FF FF FF FF FF FF 


2038 


FF FF FF FF FF FF FF FF 


2040 


FF FF FF FF FF FF FF FF 


2048 


FF FF FF FF FF FF FF FF 


2050 


00 00 00 00 00 00 00 00 


2058 


00 00 00 00 00 00 00 00 


2060 


00 00 00 00 00 00 00 00 


2068 


00 00 00 00 00 32 32 32 


2070 


32 32 32 32 32 32 32 32 


2078 


32 32 32 32 32 32 32 32 



Bild 1. Sosehen 

Grafiken im 

Speicher aus: 

Viele Folgen 

gleicher Bytes 

den Beispielen als auch in dem Programm benutze ich die 
Zahl $DA. Aus unseren 32 Byte ware somit ein 3-Byte- 
Ausdruck geworden »DA 20 FF«. 
Hier erkennen Sie auch die Grenze dieses Algorithmus. 
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PATEN CODIEREN 



Basic-Befehl auswerten 
Startadresse nach SFB/SFC 
Endadresse nach $FD/$FE 
Zieladresse nach $F7/$F8 
Modusbyte holen 
Prozentberechnung vorbereiten 



Modus = 



Modus = 1 



PACKER 



b) Byte holen 

mit nachfolgenden 
Bytes vergleichen 
wieviel Gleiche? 




ist das Byte 
$DA Oder $DB 




Byte speichern 
$00 speichern 



Byte 
speichern 



ist der Wert des 
Bytes gleich $00 




nein 



mit $DB codieren 

$DB speichern 

Anzahl speichern 



mit $DA codieren 
$DA speichern 

Anzahl speichern 
Code speichern 



wurden bereits alle Daten codiert? 



nein 



weiter bei b) 



NIBBLER 



c) Byte holen 
Byte auf Stapel 
Low-Nibble loschen 
Hi-Nibble codieren 



Byte vom Stapel holen 
Hi-Nibble Idschen 
Low-Nibble codieren 



weiter bei 1) 



alle Daten codiert? 




Prozentanteil ausrechnen 
Ausgabe der Texte und Adressen 

ENDE 



1) Biilange des Codes laden 
Code laden 



d) Bits auf Ausgabebyte kopieren 



Ausgabebyte mit 8 Bit voll? 




Wurden bereits alle Bit kopiert? 




weiter bei d) 



Rucksprung 



weiter bei c) 



Bild 2. Das FluBdiagramm veranschaulicht den Pack-Algorithmus des dokumentierten Maschinenspracheprogramms 



Wenn also weniger als drei gleiche Bytes hintereinander 
stehen, kann man die Bytes nicht komprimieren. 

Was passiert nun aber, wenn man folgende Codefolge im 
Speicher stehen hat? 
C500 80 80 80 80 80 80 DA FF 
C508 FF FF FF FF FF FF FF FF 

Von C500 bis C505 steht der Wert $80. Dieses konnte der 
Computer zusammenfassen zu »DA 06 80«. Nun folgt das 
Datum $DA. Dieses wurde der Computer nicht zusammen- 
fassen, sondern einfach ubernehmen. Daraus ergibt sich 
$DA. Bei den nachsten 9 Byte kann man hingegen wieder 
komprimieren und erhalt »DA 09 FF«. Das ergibt zusam- 
men: 
C600 DA 06 80 DA DA 09 FF 

Nun muBte bei dem Entpacken aber wieder das Original 
herauskommen. So beginnt der Computer und hat als er- 
sten Code ein $DA. Also wurde komprimiert. Da die folgen- 
den Codes $06 und $80 sind, ist die Zuordnung eindeutig. 
Dann folgt wieder ein $DA. Also wurde folglich wieder kom- 
primiert (oder?). 

Die folgenden Bytes enthalten die Anzahl ($DA) und den 
Code ($09). Also muBte vorher 218mal ($DA entspricht 218 
dezimal) eine $09 im Speicher gestanden haben. Da diese 
Aussage nicht richtig ist, mtissen wir unser Gedankenge- 
baude noch einmal uberdenken. Des Ratsels Losung ist 
eigentlich einfach. Man komprimiert einfach auch den 
Code $DA. Auf den ersten Blick erscheint dieses unsinnig 
(warum und wie kann man ein einzelnes Byte zusammen- 
fassen), aber nur so kann der Computer erkennen, daB die- 
ses nicht das Erkennungszeichen fur den Compactor ist, 
sondern ein einzelner Code. Man speichert also das Code- 



zeichen $DA, dann die Anzahl 01 und schlieBlich noch den 
»zusammengefaBten« Wert $DA. Ein weiteres Byte kann 
man nun noch sparen, wenn man das letzte Datum dieser 
Zusammenfassung weglaBt. Da nie weniger als drei glei- 
che Bytes komprimiert werden, muB das codierte Byte ein 
$DA gewesen sein, wenn die Anzahl der gleichen Codes 
kleiner als 3 ist. 

Aus unserem Beispiel 
C500 80 80 80 80 80 80 DA FF 
C508 FF FF FF FF FF FF FF FF 
hatte man also folgendes erhalten: 
C600 DA 06 80 DA 01 DA 09 FF 

Diese Bytekombination kann man eindeutig auf das Ori- 
ginal zuruckfiihren. 

Viele Programme - besonders aber Grafiken - bestehen 
aus einer groBen Anzahl von Nullen. So werden bei hoch- 
auflosenden Bildern freie Flachen oft als Folge von $00 im 
Speicher abgelegt. 

Deshalb verwendet man bei den Packern noch einen 
weiteren Erkennungscode (im folgenden ist es der Wert 
$DB),derallein bei auftretenden Nullen eingesetztwird. Da 
dieses ausschlieBlich bei $00 geschieht, braucht man das 
letzte der 3 Byte, das den zusammengefaBten Code ent- 
halt, nicht mehr anzugeben. Dieses ergibt eine weitere Ein- 
sparung. Allerdings muB man hier aufpassen, denn man 
muB auch das zweite Erkennungsbyte, wenn es im Original 
auftauchen sollte, »zusammenfassen«. An einem weiteren 
Beispiel soil das gezeigt werden: 
C500 E0 E0 E0 E0 E0 DA 00 00 
C508 00 00 00 00 IF IF IF IF 
C510 IF DB 00 00 00 00 00 00 
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/ DATEN DECODIEREN 


Basic-Befehl auswerlen 
Startadresse nach $FB/$FC 
Endadresse nach $35/$36 
Zieladresse nach $F7/$F8 
Modusbyte holen 


Modus = ■ ________ 


Modus = 1 


PACKER 


NIBBLER 


e) Byte holen 
Test auf SDB 


Byte holen 


2) Code entschlusseln 
Nibbel des Codes merken 


nein ' — ■ — _^_____ ■ — ' ja 


Hi-Byte decodieren 


g) Bits des Codes loschen 


Test auf SDA 


Anzahl holen 
Anzahl = 00 


weiter bei 2) 


wurden alle Bits geloscht? 


ja ^^^^^ /"nein 


ja ^--^^ ___^«^* nein 


Test auf Ende 


ja ^^\_^ _____-- — ' nein 


Anzahl holen 
Anzahl = 00 


Byte 
speichern 


Nullen n-mal 
speichern 


$BD speichern 


ja^\ __ — -"'nein 


Rucksprung 


neues Byte holen 


nein ^^""--^ ^^ ja 




Low-Byte dec. 


Code-holen 
Code n-mal 
speichern 


SDA 
ausgeben 


weiter bei 2) 


weiter bei g) 


Wurden bereits alle Daten decodiert? 


Test auf Ende 




ja \/ nein 


nein """"—■ — _________ ______ ■ — """ ja 


Weiter bei e) 


ENDE 


weiter 
bei f) 





Bild 3. FluBdiagramm fur den individuellen Einsatz: So werden die Daten wieder entpackt 



Obwohl hier die Codes nicht danach aussehen, daB man 
sie besondes gut zusammenfassen kann, ist hier eine Ver- 
kurzung um mehr als % der Originallange mit einem so 
einfachen Packer moglich. 

C600 DA 05 E0 DA 01 DB 06 DA 
C608 05 IF DB 01 DB 06 

Man kann deutlich erkennen, daB Codefolgen, die un- 
gleich Null sind, 3 Byte verbrauchen. Die Erkennungs- 
Codes selbst, wenn sie im Original vorkommen, benotigen 
2 Byte und Nullen ebenfalls 2 Byte. Natiirlich kann man die 
Methode, die man fur die Nullen verwendet, auch auf ande- 
re Zahlen ausdehnen, aber dies wird, wenn man es uber- 
treibt, schnell ineffektiv. In diesen Fallen mussen dann ja 
auch weitere Erkennungscodes verwendet werden, die 
man dann ebenfalls wieder aussortieren und gesondert zu- 
sammenfassen muB. Das kann den Spareffekt stark min- 
dern. Man muBalsoeinen KompromiBzwischen der Anzahl 
der Erkennungs-Codes und der Speicherplatzersparnis 
finden. 

Sicherlich hangt die Wahl des Verfahrens auch von dem 
zu komprimierenden Speicherinhalt ab. So ist es sinnvoll, 
neben der Null auch noch $FF besonders zu packen, wenn 
die zu komprimierenden Daten (wie Grafiken) hauptsach- 
lich aus $00 und »$FF« bestehen. Man kann deshalb sa- 
gen, daB man sich furjede Situation seinen eigenen Packer 
zusammenstellen sollte. Aus diesem Grund finden Sie ne- 
ben dem ausfuhrlich dokumentierten Maschinensprach- 
programm noch ein FluBdiagramm fur beide Packer- und 
Entpackertypen (Bild 2 und 3). 

Bevor Sie sich aber Ihren eigenen Compactor zusam- 
menstellen, sollten Sie sich mit dem Quellcode des Pro- 



gramms (Listing 1) vertraut machen. Den bereits assem- 
blierten und somit lauffahigen Code des Packers finden Sie 
im Programm »PACKER.OBJ« (Listing 2.) Geladen wird das 
Programm mit 

LOAD "PACKER. 0B J ",8,1 

Danach muB NEW eingegeben werden. AnschlieBend 
ladt man das zu packende Programm 

Die Syntax der Befehle lautet: 
SYS .49152, Adrl, Adr2, Adr3, Mode 

Zum Packen lauten die Adressen: 
Adr 1 = Startadresse der zu komprimierenden Daten 
Adr 2 = Endadresse der Daten 
Adr 3 = Zieladresse der gepackten Daten 
Mode = Oder 1, um die Art des Compactors zu 

wahlen. 
Mode 1 = Suche nach gleichen Bytes 
Mode 2 = Ersetzen der Nibbles durch Codes 

Nach dem Aufruf des Packers wird die Restlange der Da- 
ten in bezug auf die Originallange in Prozent angegeben 
und die Endadresse der gepackten Daten angezeigt. 

Wenn man die Daten wieder entpacken will, lautet der 
Aufruf die Adressen 
SYS 49265, Adrl, Adr2 
Adr1 = Startadresse der gepackten Daten 
Adr2 = Zieladresse der entpackten Daten 

Die Endadresse der gepackten Daten und den Modus er- 
kennt das Programm bei Entpacken selbst, da diese nach 
dem Komprimiervorgang am Anfang des Datenblocks ab- 
gelegt werden. Sie brauchen diese Angaben nicht mehr 
einzugeben. 

Wenn Sie jetzt die Beispiele mit Hilfe des Programms 
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nachvollziehen, werden Sie noch einige Unterschiede zwi- 
schen unserer theoretischen Zusammenfassung und der 
des Computers feststellen. Laden Sie bitte dazu einen Mo- 
nitor (etwa den SMON bei $9000) und fiillen Sie den ange- 
gebenen Bereich $C500 mit den Daten aus dem obigen 
Beispiel. 

Eine Kontrolle miiBte ergeben: 
M C500 C517 (Befehl zur Speicheranzeige) 
C500 E0 E0 E0 E0 E0 DA 00 00 
C508 00 00 00 00 IF IF IF IF 
C510 IF DB 00 00 00 00 00 00 

Nun konnen Sie diesen Bereich einmal mit unserem 
Packer komprimieren. Verlassen Sie dazu den Monitor und 
geben Sie den folgenden Befehl ein: 
SYS 49152, 50432, 50455, 50688, 

Der Computer miiBte sich nun mit den folgenden Zeilen 
melden: 

ANZAHL DER GEPACKTEN DATEN IM VERHAELTNIS ZUM 

ORIGINAL IN %: 70.8333333 

50705 = ENDADRESSE DER GEPACKTEN DATEN READY. 

Nun konnen Sie den Monitor wieder aufrufen und sich 
den Bereich $C600 ausgeben lassen, wo sich die kompri- 
mierten Daten befinden: 
M C600 C610 

C600 A8 OF 06 DA 04 E0 DA 00 
C608 DB 05 DA 04 IF DB 00 DB 
C610 05 

Sie erkennen nun das Byte, das den Pack-Algorithmus 
kennzeichnet und mit $A8 iiber EXOR verknupft wurde, und 
die beiden Bytes, die das Ende des gepackten Codes ange- 
ben. AuBerdem sehen Sie, daB die Anzahl der gleichen By- 
tes urn 1 erniedrigt angegeben wird. Dieses ist aus ver- 
schiedenen programmtechnischen Grunden sinnvoll. Bei 



Code 


Nibble 


Nibble 


Code 





0000 


0000 





100 


1111 


0001 


10100 


10100 


0001 


0010 


10101 


10101 


0010 


0011 


10110 


10110 


0011 


0100 


10111 


10111 


0100 


0101 


11000 


11000 


0101 


0110 


11001 


11001 


0110 


0111 


111100 


11010 


1000 


1000 


11010 


11011 


1001 


1001 


11011 


11100 


1010 


1010 


11100 


11101 


1100 


1011 


111101 


111100 


0111 


1100 


11101 


111101 


1011 


1101 


111110 


111110 


1101 


1110 


111111 


111111 


1110 


1111 


100 



Tabelle 1. Jeder Code elnes Nibbles blelbt eindeutig identi- 
fizierbar. Seltene Werte haben einen langeren Code. 

bedingten Verzweigungen laBt sich auf diese Weise eine 
einfache Abfrage gestalten. Naheres konnen Sie in dem 
ausfiihrlich kommentierten Listing nachlesen. 

Soviel zu dieser Art der Packer. Wir wollen uns nun einem 
weiteren Compactor zuwenden, der sich auch besonders 
gut fur Grafiken eignet. Seine Funktionsweise ist nicht ganz 
so trivial wie der vorangegange Algorithmus, aber auch er 
gehort noch zu den »einfachen« Packern. Um ihn zu verste- 
hen, mussen wir uns nun etwas mit der Art, wie Computer 
Zahlen speichern, beschaftigen. 

Vielleicht wissen Sie, daB der Computer nur zwei Zustan- 
de kennt: Strom an Oder aus, 1 oder 0. Wenn Sie jetzt acht 
dieser Zustande, die man Bits nennt, zusammenfassen, 
erhalten Sie ein Byte. Ein Byte kann also 2 hoch 8 Zustande 
haben, das heiBt 256 verschiedene Zahlen darstellen. Ein 
Byte wiederum besteht aus zwei sogenannten »Nibb!es«, 



die aus jeweils 4 Bit bestehen. Diese Halb-Bytes oder Nib- 
bles konnen nun 2 hoch 4 gleich 16 verschiedene Zahlen 
darstellen. Nibble-Compactoren ersetzen nun einen Nibble 
durch einen Code. Dabei sollte man beachten, daB die bei- 
den Nibbles (1111) und (0000) am haufigsten in einem Byte 
vorkommen. Deshalb sollten deren Codes auch moglichst 
kurz sein. So wird nun dem Nibble mit dem Inhalt (0000) der 
kiirzeste Code, »0«, zugeordnet. Nun muB aber jeder weite- 



Original- 
S-Code 


$00 


$00 


$00 


$00 


Nibbles 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


Code 


























Bitcode 


0000 0000 


Gepackter 
S-Code 


$00 



Tabelle 2 veranschaulicht die Wirkungsweise eines Nibble- 
Packers am Beispiel von vier Null-Bytes 

re der 15 Codes mit »1« beginnen, damit die komprimierten 
Daten eindeutig bleiben. Der Nibble mit (1111) erhalt nun 
den zweitkiirzesten Wert »100«. Die ubrigen Nibbles wer- 
den auf weitere 14 Codes verteilt. Diese Verteilung erfolgt 
in Anlehnung an die des Bit-Companders, der in der 64'er- 
Ausgabe August 1985 veroffentlicht wurde. Wenn Sre sich 
einmal die Tabelle 1 ansehen, erkennen Sie, daB jeder 
Code eindeutig identifizierbar geblieben ist. Um dieses 
sicherzustellen, muBte man viele dieser neuen Codes lan- 
ger als die 4 Bit, die ein Nibble lang ist, wahlen. Damit sind 
ebenfalls die Einsatzgebiete dieses Packers charakteri- 
siert. Speicherinhalte, die zum Beispiel aus 200 mal $BB 
(1011 1011) bestehen, werden deutlich langer als das Origi- 
nal. Wenn der Speicher aber aus vielen Null-Nibbles be- 
steht, wird der komprimierte Datenblock dagegen bedeu- 
tend kiirzer. Es ist also sinnvoll zu testen, welcher Compac- 
tor wirkungsvoller und effektiver arbeitet. 

Nun wollen wir uns etwas mit der Arbeitsweise dieses 
Compactors beschaftigen. Sehen wir uns dazu ein Beispiel 
an. Folgende Bytes stehen im Speicher: 
C500 00 00 00 00 Fl 81 40 OF 
C508 OF OF 

Wie Sie auch in dem Schema (Tabelle 1) erkennen kon- 
nen, zerlegt der Computer zunachst die Bytes. Aus den 4 
Null-Byte erhalten wir also acht Null-Nibbles. Sie wissen 
bereits aus dem vorangegangenen Text, daB der Code fur 
ein Null-Nibble eine »0« ist. Die acht Nibbles der ersten 
4 Byte ergeben also nur ein neues Byte mit dem Inhalt 
(0000 0000), also $00. In Tabelle 2 ist dies nochmals veran- 
schaulicht. 

Bei den nun folgenden drei Codes wird die Arbeit des 
Compactors aber noch deutlicher. Die beiden Nibbles des 
ersten Bytes ergeben zusammen genau ein neues Byte. Al- 
so konnte man bei diesem Byte nicht verkiirzen. Die Nib- 
bles des sechsten Byte ($81) haben beide sogar einen um 
jeweils 1 Bit langeren Code. Das heiBt die Codes der beiden 
Nibbles passen noch nicht einmal in 1 Byte. Wir haben also 
einen Ubertrag von 2 Bit. Diese mussen in dem folgenden 
Byte untergebracht werden. Die beiden Ubertrag-Bits und 
die 6 Bit der codierten Nibbles von $40 ergeben nun genau 
wieder ein neues Byte. Bei diesen 3 Byte war der Compac- 
tor also wirkungslos und es fand keine Verkurzung der Da- 
ten statt. Aber es wurde trotzdem codiert (Tabelle 3). 

Die beiden nun folgenden Bytes kann man nun wieder zu 
einem Byte zusammenfassen, da sie jeweils ein Null- 
Nibble besitzen. Das letzte Byte liefert aber codiert nicht 8 
Bit, die fiir ein voiles Byte notwendig sind, sondern nur 4 
Bit. Hierbei muB man auf eine Besonderheit hinweisen. Da- 
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mit man dieses »halbe« Byte ordnungsgemaB ausgeben 
kann, wird es mit (1111), also einem weiteren Nibble, ver- 
kniipft. Man erhalt also nicht den Code $04, sonder $4F 
(Tabelle 4). 

Dieses konnen Sie auch an dem Speicherauszug erken- 
nen, in dem die codierten Byte gespeichert wurden. 
C600 A9 OA C6 00 94 D5 2E 44 
C608 4F FF 



Original- 
S-Code 


$F1 


$81 


$40 


Nibbles 


1111 


0001 


1000 


0001 


0100 


0000 


Code 


100 


10100 


11010 


10100 


10111 





Bitcode 


1001 


0100 


1101 


0101 


0010 


1110 


Gepackter 
$-Code 


$94 


$D5 


$2E 



Tabelle 3. Nicht immer sind Nibble-Packer effektiv. Hier 
'-rid trotz Codierung keine Verkiirzung statt. 

Dabei enthalt das erste Byte wieder das codierte Modus- 
byte, also das Flag fur den zum Entpacken benotigten Algo- 
rithmus. Dieses ist bei diesem Packer »$A9«, im Gegensatz 
zu dem vorangegangenen Packer, dem der Code »$A8« zu- 
geordnet war. Die folgenden beiden Byte enthalten, wie be- 
reits oben erwahnt, wieder die Endadresse der komprimier- 
ten Daten. 

Damit Sie nun die Kunste dieses Packers ebenfalls nach- 
vollziehen konnen, gebe ich Ihnen nun auch die Syntax der 
Befehle zum Packen beziehungsweise Entpacken an. Sie 
entsprechen genau denen des ersten Compactors mit ei- 
ner Ausnahme. Das Modusbyte darf nun nicht Null, son- 
dern muB Eins lauten. Samtliche weiteren Parameter sind 
unverandert, auch die Adresse des SYS-Befehls. Urn also 
Daten, die in dem Speicherbereich von $C500 bis $C57F 
stehen, mit dem Nibbler zu packen und die Daten dann 
nach $C600 zu speichern, muBten Sie folgenden Befehl 
eingeben: 
SYS 49152, 50432, 50559, 50688, 1 

Zum Entpacken muBten Sie dann, wenn die ungepack- 
ten Daten nach $C700 geschrieben werden sollen, nur den 
folgenden Befehl eingeben: 
SYS 49265, 50688, 50944 

Sollten Sie aus Versehen statt der Startadresse von den 
gepackten Daten eine andere Adresse eingeben, wenn der 
Computer also weder ein $A8 noch ein $A9 als Modus-Byte 
findet, gibt er eine Fehlermeldung aus. Dieses soil vor dem 
Entpacken eines falschen Bereiches und einem moglichen 
Systemabsturz schiitzen. AuBerdem ist durch dieses 
Modus-Byte siche'rgestellt, daB die Daten nur mit dem Algo- 
rithmus entpackt werden konnen. mit dem sie auch ver- 



schlusselt wurden . Sie brauchen sich also die Nummer des 
verwendeten Packers nicht zu merken. Es kann naturlich 
nicht ganz ausgeschlossen werden, daB, wenn Sie eine fal- 
sche Startadresse verwenden, aus Zufall der Computer als 
erstes Byte ein $A8 oder $A9 findet. Aber dieses kommt ei- 
gentlich so gut wie nicht vor. 

Nun noch ein paar Informationen zu dem Programm. Es 
ist vollstandig in Maschinensprache mit dem Assembler 
»Giga-Ass« (Sonderheft 21) geschrieben und verbraucht im 
Quellcode mehr als 15 KByte. Der Objektcode ist nicht ganz 
1 KByte lang und befindet sich im Speicher von Adresse 
$C000 bis $C36B. Wenn Sie das Programm verschieben 
wollen, reicht es also aus, die Basisadresse im Quellcode 
(.BASE $C000) zu verandern. Das Programm ist also nicht 
an einen festen Speicherbereich gebunden. Achten Sie 
aber bitte darauf, daB sich nach dem Verschieben auch die 
Einsprungadressen geandert haben. Sollten Sie aber kei- 
nen Assembler haben und das Programm mit MSE einge- 
ben, konnen Sie das Programm leider nicht verschieben. 
Urn trotzdem die Flexibility weiter zu erhohen, ist das Pro- 
gramm auch fahig, Daten unter dem ROM des Computers 
zu lesen. Dieses ist besonders wegen der Grafik-Bilder ver- 
schiedener Zeichenprogramme notwendig, da diese ihre 
Bilder bei $A000 oder $E000 ablegen. 

Naturlich gibt es neben diesen beiden Compactoren 
noch weitere, wesentlich effektivere Packer. Ihre Funktions- 
weise ist aber auch etwas komplizierter als die beiden be- 
sprochenen. Eine Beschreibung der Funktionsweise die- 
ser Packer finden Sie im nachsten Artikel. Aber auch 
Packer fur ASCII-Daten und Strings gibt es. Dabei haben ei- 
nige dieser Algorithmen den Vorteil, daB sie den Speicher 
um einen festen Faktor zusammenfassen. Dieses liegt dar- 



Original- 

S-Code 


$0F 


$0F$ 


$0F 


Nibbles 


0000 


1111 


0000 


1111 


0000 


1111 


Code 





100 





100 





100 


Bitcode 




0100 


0100 




0100 




Gepackter 

S-Code 


$44 


$04 



Tabelle 4. Beim dritten Wert muB mit das Nibble mit »1111« 
verkniipft werden, um eine ordnungsgemaGe Codierung zu 
erreichen. 

an, daB man nicht 256 ASCII-Codes braucht, um alle zur 
Verfugung stehenden Buchstaben und Zahlen zu spei- 
chern, sondern nur 6 Bit. Diese Compactoren brauchen al- 
so nur die benutzten 6 Bit von vier Buchstaben auf 3 Byte 
zu 8 Bit zu verteilen. Man erhalt auf diese Weise immer eine 
Verkiirzung um % des Speicherplatzes. 

(Dirk Neumeister/sk) 



6I6A-AS5 READ* 


170; 
160 




10) PR06RAMI ZUR DEMONSTRATION DER 


.BASE IC000 


20; FUNKTIONSHEISE VON PftCKERN 


190; 




30| 




200; DEFINITION VON ROH-ROUTINEN 


40; 


BY DIRK NEUNEISTER 


210; 




30; 


IK TRIESCH 26 


220 


.EOUATE STRAUS6'*AB1E 


M| 


5503 LOHFELDEN 


230 


.EQUATE SETBYTE-*B79E 


»| 


TEL.: KS/518475 


240 


. EOUATE PR1NTFAMBDD7 


BO; 




250 


.EQUATE KOfflA'tAEFD 


120; 
130! 

140; 




260 


.EQUATE INTH0LENMAD8A 








150; 




Listing 1. 


Der Quellcode des Pai 


140; 


ROERAIMSTART AUF tCOOO " 49132 


im Giga-Ass-Format 



ikfctf 
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270 


.EQUATE NANDELN=IB7F7 


2160 


PLA 


STAPEL LESEN UND IN AKKU SPEICHERN 


290 


.EQUATE FACHAL!0=I8AE2 


2170 


EOR MA8 


CODIERUNS AUFHEBEN 


290 


.EQUATE 1NFAC=IB395 


2180 


BNE DEC0HP1 


HENN AKKU <) 0, DANN NIBBLER AUFRUFEN 


300 


.EQUATE COPYFACII=IBCOC 


2190 


JSR ENTPACKEN 


SONST PACKER AUFRUFEN 


310 


.EQUATE FACDIV=IBB14 


2200 


RTS 




1000; 






2210DEC0HP1 


TAI 


AKKU IN I-REGISTER COPIEREN 


1010; 


ALL6EHEINER CQNPACTOR START 


2220 


DEI 


X-RE6ISTER UH EINS VERRINGERN 


1020; 






2230 


BNE DEC0HP2 


VENN I <> (FEHLER), FALSCHE STARTADRESSE 


1030; 


SYS 49152, ADR2, ADR3, 


ADR4, NODE 


2240 


JSR DENI 


SONST NIBBLER AUFRUFEN 


1040; 


NIT AUS6A6E DER LAEN6E 


IN X UNO DER ENDADRESSE 


2250 


RTS 




1050; 






2260DEC0HP2 


LDA KIFEHLER) 


AUSGABE EINER FEHLERHELDUN6, DA DAS DECODIER 


1060 


IDA KIREST) 


ZE16ER FUER DEN TEIT LADEN, UN DEN 


TE 






1070 


LDY IXRESTI 


HINNEIS AUF DIE RESTLAEN6E AUSZU6EBEN 


2270 


LDY IXFEHLER) 


HODUSBYTE NEDER NULL NOCH EINS NAR ==> 


10B0 


JSR STRAUS6 


TEIT AUS6EBEN 


2280 


JSR STRAUS6 


FALSCHE STARTADRESSE ANSEGEBEN 


1090 


JSR HOLEN 


STARTADRESSE DER UNSEPACKTEN DATEN HOLEN 


2290 


RTS 




1100 


LDA MFB 




3000; 






1110 


JSR COPY 


UND DIESE NACH IFB/IFC COPIEREN 


3010; UNTERROUTINEN FUER DIE 




1120 


JSR HOLEN 


ENDADRESSE DER UNGEPACKTEN DATEN HOLEN 


3020; ALLGENEINEN EINSPRUN6ADRESSEN 


1130 


INC 114 


DIE ENDADRESSE UH EINS ERHOEHEN 


3030; 






1140 


BNE C0HP3 




3040H0LEN 


JSR KOHHA 


PRUEFT AUF KOHHA 


1150 


INC 115 




3050 


JSR INTHOLEN 


16-BIT ZAHL IN FAC HOLEN 


I160C0HP3 LDA MFD 




3060 


JSR NANDELN 


FAC NANDELN IN INTE6ER IIVMS 


1170 


JSR COPY 


UND NACH IFD/IFE COPIEREN 


3070 


RTS 


ZURUECK 


1180 


JSR HOLEN 


STARTADR. DER 6EPACKTEN DATEN NACH $14/15 LA 


3080; 






DEN 






3090C0PY 


LDY M01 


ZAHLEN DER SPEICHERSTELLEN J14/I15 


1190 


JSR KOHHA 


DEN RESTLICHEN AUSDRUCK AUF KOHHfl PRUEFEN 


3100 


STA COPYM 


IN DIE SPEICHERSTELLE COPIEREN, DIE IH 


1200 

1 


JSR SETBYTE 


EIN NEITERES BYTE IN I-RE61STER HOLEN IHODUS 


3110C0PY2 
3120C0PY1 


LDA $14,Y 
STA IOO.Y 


AKKU 1*1) STEHT 


1210 


LDA MF7 


DIE STARTADRESSE DER 6EPACKTEN DATEN 


3130 


DEV 




1220 


JSR COPY 


NACH IF7/iF8 COPIEREN 


3140 


BEQ C0PY2 




1230 


JSR PROZENT 


PROZENTROUTINE 1 AUFRUFEN IERSTE BERECHNUN6) 


3150 
4000; 


RTS 


UND NIEDER ZURUECK 


1240 


TIA 


HODUSBYTE IN AKKU COPIEREN 


4010; PACKER 




1250 


EOR MA8 


HIT EIOR 10101000 VERKNUEPFEN 


4020| IFB/IFC = BESINN DER UNBEPACKTEN DATEN 


1260 


JSR AUS6ABE 


HODUSBYTE SPEICHERN 


4030; IFD/IFE ■ ENDE DER UH6EPACKTEN DATEN 


1270 


JSR AUS6ABE 


DURHY FUER ENDADRESSE SETZEN 


4040; IF7/IF8 » BEGINN DER 6EPACKTEN DATEN 


12B0 


JSR AUS6ABE 


DUHNY FUER ENDADRESSE SETZEN 


4050; 






1290 


TIA 


I-RE6ISTER COPIEREN, FLABS NERDEN 6ESETZT 


4060PACKEN 


JSR NEITBYTE 


NAECHSTES BYTE IN AKKU HOLEN 


1300 


BNE C0HP1 


VENN <) 0, DANN HIT NIBBLER ARBEITEN 


4070 


TAX 


BYTE VOH AKKU NACH I KOPIEREN 


1310 


JSR PACKEN 


SONST HIT PACKER ARBEITEN 


4080 


JSR VER6LEICHE 


BYTE IH AKKU HIT F0L6ENDEN BYTES VERGLEICHEN 


1320 


JHP C0NP2 










1330C0I1P1 JSR KIBBLER 


NIBBLER AUFRUFEN 


4090 


STY IA5 


ANZAHL-1 DER 6LEICHEN BYTES IN Y UND IA5 


1340 


LDA MEE 


AKKU HIT tEE LADEN UND NIBBLER ERNEUT AUFRUF 


4100 


CPY 103 


ANZAHL-1 DER BYTES HIT 103 VERGLEICHEN 


EN 






4110 


BCC PACKEN1 


HENN ANZAHL-1 < 3, DANN NICHT PACKEN 


1350 


JSR NIBBLER3 


DAHIT DAS LETZTE BYTE AUCH GESPEICHERT NIRD 


4120 


TYA 


ANZAHL-I IN DEN AKKU KOPIEREN 


1360C0HP2 LDY M01 




4130 


CLC 


ADDITION VORBEREITEN 


1370 


LDA »F7 


ENDADRESSE SPEICHERN, NO VORHER DIE DUHHIES 


4140 


ADC IFB 


JH ANZAHL-1 DER 6LEICHEN BYTES DEN 


13B0 


STA 1161), Y 


6ESTANDEN HABEN 


4150 


STA IFB 


ZEI6ER FUER UNGEPACKTE DATEN NACH VORNE, VER 


1390 


INY 




- 






1400 


LDA IF8 




4160 


BCC PACKEN2 


SCHIEBEN, DAHIT NICHT DOPPELT ZUSAHHEN- 


1410 


STA 1161), Y 




4170 


INC »FC 


SEFASST NIRD 


1420 


JSR PR0ZENT2 


PROZENTROUTINE 2 AUFRUFEN 


41B0PACKEN2 


CPI 100 


VERGLEICHEN DER BYTES HIT «00 


1430 


JSR PRINTFAC. 


RESTLAEN6E DES PROERAHHS AUS6EBEN 


4190 


BEQ PACKEN3 


HENN JA, DANN HIT IDS CODIEREN 


1440 


JSR IAAD7 


2 HAL RETURN AUSGEBEN 


4200 


LDA MDA 


SONST HIT tDA BEGINNEN 


1450 


JSR IAAD7 




4210 


JSR AUSGABE 


tDA SPEICHERN 


1460 


LDA IF8 


ENDADRESSE DER 6EPACKTEN DATEN LADEN 


4220 


LDA (AS 


ANZAHL-1 DER 6LEICHEN BYTES IN AKKU 


1470 


LDX IF7 




4230 


JSR AUS6ABE 


UND ABSPEICHERN 


14B0 


JSR IBDCD 


UND EBENFALLS AUS6EBEN 


4240 


TXA 


CODE DER 6LEICHEN BYTES IN AKKU 


1490 


LDA X(ENDADR) 


ZEI8ER FUER DEN TEIT DER ENDADRESSE LADEN 


4250 


JSR AUSGABE 


UND EBENFALLS SPEICHERN 


1500 


LDY IMENDADR) 




4260 


BNE PACKEN4 


UNBEDIN6TER SPRUN6, DA AKKU = MFF 


1510 


JSR STRAUS6 


UND DEN TEIT AUSGEBEN 


4270PACKEN3 


LDA MDB 


MDB ALS CODE FUER 00 IN AKKU LADEN 


1520 


RTS 




42B0 


JSR AUS6ABE 


UND IH SPEICHER ABLEGEN 


2000; 






4290 


LDA IA5 


ANZAHL-1 DER 100-BYTES IN AKKU 


2010; 


ALL6ENEINER DECOHPACTO 


1 START 


4300 


JSR AUSGABE 


UND EBENFALLS SPEICHERN 


2020; 


SYS 49265, ADR2, ADR3 




4310 


BNE PACKEN4 


UNBEDIN6TER SPRUNG 


2030; 






4320PACKEN1 


CPI MDA 


VERGLEICHEN OB BYTE ZUFAELLIG IDA 


2040DEC0HP JSR HOLEN 


STARTADRESSE DER GEPACKTEN DATEN HOLEN 


4330 


BEQ PACKEN5 




2050 


LDA MFB 




4340 


CPI MDB 


ODER iDB 1ST 


2060 


JSR COPY 


UND NACH IFB/IFC COPIEREN 


4350 


BNE PACKEN6 


HENN NICHT, VERZNEI6EN (EINFACHE AUSS.) 


2070 


JSR NEITBYTE 


HODUSBYTE HOLEN 


4360PACKEN5 


TXA 


tDA ODER IDB VOH I-REGISTER IN AKKU COPIEREN 


2080 


PHA 


UND AUF STAPEL LE6EN 








2090 


JSR NEITBYTE 


ENDADRESSE DER GEPACKTEN DATEN AUS DEH 


4370 


JSR AUSGABE 


UND AUS6EBEN 


2100 


STA 135 


SPEICHER LE5EN UND NACH 135/136 SPEICHERN 


4380 


LDA 100 


, ANZAHL-1 LADEN 


2110 


JSR NEITBYTE 




4390 


JSR AUS6ABE 


UND EBENFALLS ABSPEICHERN 


2120 


STA 136 




4400 


BNE PACKEN4 


UNBEDIN6TER SPRUNG 


2130 


JSR HOLEN 


STARTADRESSE DER UNGEPACKTEN DATEN HOLEN 


4410PACKEN6 


TIA 


EINFACHE AUSGABE, D.H. CODE IH AKKU 


2140 


LDA MF7 




4420 


JSR AUS6ABE 


UND IH SPEICHERN ABLE6EN 


2150 


JSR COPY 


NACH IF7/IF8 COPIEREN 


4430PACKEN4 


LDA IFB 
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4440 LDI »FC j 


VERGLEICHEN OB ENDE, HENN NE1N, DANN 


6220AUS6ABE 


LDY 100 


LADE Y HIT NULL 


4450 CPU *FE 




6230 


STA l$F7),Y 


SPEICHERE AKKU IN DIE SPEICHERSTELLE, 


4460 BHE PACKEN7 




6240 


INC JF7 


AUF DIE DER ZEI6ER IIF7/F8) ZEIGT 


4470 CUP »F0 




6250 


BNE AUS6ABEND 


ERHOEHE DEN ZEIGER DANN UH EIN5 


4480PACKEN7 BCC PACKED ; 


VON VORNE NIEDER BEGINNEN 


6260 


INC JF8 




4490 RTS ) 


SONST RUECKSPRUN6 AUS DER UNTERRDUTINE 


6270AUS6ABEND LDA MFF 


LADE AKKU=$FF IFLAGS NERDEN BEEINFLUSST1 


5000; 




62G0 


RTS 


VERLASSE DIESE UNTERRDUTINE NIEDER 


S010; ENTPACKEN 




6290; 






5020; IF7/IFB = BEG1NN DER UN6EPACKTEN DATEN 


6300;VERLGEICHEN 




5030; IFB/*FC = BE6INM DER 6EPACKIEH DATEN 


6310; 






5040; 135/136 ■ ENDE DER 6EPACKTEN DATEN 


6320VERGLEICHE LDY 100 


HIER NIRD DAS Y-REGISTER NULL 6ESETZT 


5050; 




6330VER6L1 


CHP UFBl.Y 


VER6LEICHE DEN INHALT DES AKKUS HIT DER 


5060ENTPACKEN JSR NEITBVTE ; 


NAECHSTES BYTE IN DEN AKKU LADEN 


6340 


BNE VERSLEND 


SPEICHERSTELLE, AUF DIE DER ZEIGER ZEIGT 


5070 CMP KDB | 


NIT DEN ERKENNUNGSCODE JDB VERGLEICHEN 


6350 


INY 


ZAEHLE, HIE OFT SICH DIE BYTES GLEICHEN 


50B0 BNE ENTPACKEN1; 


HENN AKKU <> IIDB DANN VERZHEI6EN 


6360 


BNE VER6L1 


HAX. ANZAHL 1ST DABEI 255 IFF! 


5090 JSR NEXTBYTE ; 


SONST NAECHSTES BYTE HOLEN 


6370 


DEY 




5100 CUP 100 | 


TEST, OB ANZAHL-1 DER 6LEICHEN BYTE > 


6380VER6LEND 


RTS | 


RUECKSPRUN6 NENN DIE BYTES VERSCHIEDEN 


5110 BNE ENTPACKEN2; 


HENN NEIN, DANN VERZNEIGE 


6390 


NOP 


SIND ODER DIE ANZAHL GROESSER ALS 255 1ST 


5120 IDA KDB | 


ES NAR ALSO 1H ORIGINAL EIN »DB, AKKU=JDB 


6400; 






5130 BNE ENTPACKEN3; UND VERZNEI6EN UN DIREKT SPE1CHERN 


6410; NIBBLER ZUSAHNENFASSEN 




5140ENTPACKEN2 TAX ; 


ANZAHL-1 DERJOO IN D. X-RE6ISTER C0P1EREN 


6420; 






5150 LDA tOO | 


AKKU NIT DEN CODE IHIER MOO) LADEN 


6430ZUSAN 


TAY j 


NERT DES NIBBLES IN DAS Y-RE6I5TER KOPIEREN 


5160 JHP ENTPACKENB; 


UND ENTPACKEN 


6440 


LDA 6ITLAEN6E, 


; DIE BITLAEN6E DES NEUEN CODES IN DEN AKKU 


5170ENTPACKEN1 CNP t»DA ; 


VER6LEICHEN OB BYTE ■ ERKENNUN6SC0DE IDA 1ST 


6450 


TAX 


LADEN UND DANN NACH X KOPIEREN 






6460 


LDA CODE.Y 


DEN NIGBLECODE AUFGRUND SEINES NERTES LADEN 


5180 BNE ENTPACKEN3; 


VENN NEIN, VER2NEI6EN UND BYTE AUS6EBEN 


6470 


LDY »F9 


FREIE BITS IN DAS Y-REGISTER LADEN 


5190 JSR NEXTBYTE ; 


NAECHSTES BYTE HOLEN 


6480ZUSAH2 


ASL 




5200 CNP 100 | 


TEST, CODE FUER GEPACKT ODER FUER *DA 


6490 


ROL »FA | 


BITS AUSTAUSCHEN 


5210 BNE ENTPACKEN4; 


HENN CODE FUER GEPACKT, DANN VERZNEIGE 


6500 


DEY 




5220 LDA MDA | 


SONST LADE AKKU HIT IDA 


6510 


BNE ZUSAH1 


NENN BYTE NOCH NICHT VOLL, DANN VERZNE16E 


5230 BNE ENTPACKEN3; 


UND VERZNEI6E 2UR OIREKTEN AUS6ABE 


6520 


PHA 


AKKU AUF DEN STAPEL LEGEN 


5240ENTPACKEN4 TAX j 


ZAHL DER GLEICHEN BYTE -1 IN X-REIGSTER 


6530 


LDA IFA 


DEN NEU ZUSAHHENGE5TELLTEN HERT LADEN 


5250 JSR NEXTBYTE ; 


NOCH EIN BYTE HOLEN, (CODE DER GL. BYTE) 


6540 


JSR AUSGABE 


UND AUSGEBEN 


5260ENTPACKENS INX ) 


I NAL DEN INHALT DES AKKUS SPEICHERN 


6550 


LDY M08 J 


ES SIND NIEDER ACHT BITS FREI 


5270 LDY 100 




6560 


PLA 


AKKU HIEDER VON STAPEL HOLEN 


52B0ENTPACKEN6 STA (»F7),Y 




6570ZUSAH1 


DEX i 


NOCH VERBLEIBENDE C0DELAEN6E UH EINS VERHIND 


5290 INY 




ERN 






5300 DEX 




6580 


BNE ZUSAH2 


UND NEITERHACHEN, BIS DER CODE COPIERT HURDE 


5310 BNE ENTPACKEN6; 


NOCH NICHT FERTI6, DANN NEITERHACHEN 








5320 DEY 




6590 


STY IF9 


ZAHL DER NOCH FREIEN BITS ZNISCHENSPEICHERN 


5330 TYA 




6600 


RTS | 


UND ZURUECKSPRIN6EN 


5340 SEC 




6610; 






5350 ADC *F7 | 


SPEICHERZEIGER NEITERSTELLEN, DAHIT 


6620; NIBBLER NIEDER AUSEINANDER ZIEHEN 


5360 STA »F7 ( 


NAN NICHT DOPPELT IN DEN SPEICHER 


6630; 






5370 BCC ENTPACKEN9; 


GESCHRIEBEN HIRD 


6640ENTNI 


LDI HOF | 


SCHLEIFENZAEHLER (I-REGISTER) HIT 16 LADEN 


53B0 INC *F8 




6650ENTNI2 


LDA «FD 




5390 BED ENTPACKEN9 




6660 


AND HASKE.X 


DAS BYTE HIT DER HASKE VERKNUEPFEN 


5400ENTPACKEN3 JSR AUSGABE • 


BYTE IN DEN SPEICHER SCHREIBEN 


6670 


CHP CODE.X 


ZAHL DER NOCH FREIEN BYTES UH EINS VERRINGER 


5410ENTPACKEN9 LDA $35 | 


TEST, OB SCHON ALLE BYTES ENTPACKT NURDEN 


N 






5420 LDX $36 




6680 


BED ENTNI1 


HENN UEBEREINSTIHHUNG, DANN VERZHEIGEN 


5430 CPI «FC 




6690 


DEX 


GONST ZAEHLER UH EINS ERNIEDRI6EN 


5440 BNE ENTPACKEN ; 


VENN NEIN, NEITERHACHEN 


6700 


BNE ENTNI2 


UND NEITER SUCHEN 


5450 CNP «FB 




6710ENTNI1 


STX IFA 


CODENUHHER ZNISCHENSPEICHERN 


5460 BNE ENTPACKEN 




6720 


LDA BITLAENGE, 


; BITLAENGE LADEN 


5470 RTS | 


SONST FERTIG, D.H. RUECKSPRUNG 


6730 


TAX 


UND IN DAS X-REGISTER KOPIEREN 


6000; 




6740 


LDY »F9 


ANZAHL DER RESTLICHEN BITS IN Y LADEN 


6010; UNTERROUTINEN FUER DEN PACKER 


6750ENTNI4 


ASL IFE 


UND AUSTAUSCHEN 


6020; UND DEN NIBBLER 




6760 


ROL IFD 




6030; 

6040; 

6050;NAECHSTES BYTE HOLEN 

6060; 

6070NEXTBYTE SEI 




6770 
EN 

67B0 


DEY 


ANZAHL DER BITS, DIE NOCH ZU VERFUEGUNG STEH 




BNE ENTNI3 


HENN DIESE 6LEICH NULL 1ST, NICHT VERZNEI6EN 




6790 


TYA 




60B0 LDY K34 | 


RON AUSSCHALTEN 


6800 


PHA 


Y-REGISTER UND AKKU AUF STAPEL RETTEN 


6090 STY 101 




6810 


TXA 




6100 LDY 100 i 


Y=NULL SETZEN 


6820 


PHA 




6110 LDA IIFBl.Y 


DEN AKKU HIT DEN HERT DER SPEICHERSTELLE LAD 


6830 


JSR ENDE 


TEST, OB BEREITS ALLE BYTES DECOHPREHIERT 


EN 




6840 


CPY HFS 


NURDEN, HENN JA, 1ST Y = »F8 UND 


6120 LDY H37 ] 


RON NIEDER ANSCHALTEN 


6850 


BED ENTNI6 


DANN VERZNEI6EN 


6130 STY Ml 




6860 


JSR NEXTBYTE 


SONST NEUES BYTE HOLEN 


6140 CL1 




6870 


STA »FE 


UND AUF JFE SPEICHERN 


6150 INC IFB 


ZEI6ER FUER BYTE HOLEN JIFB/FC) UN 


6880ENTNI6 


PLA 


AKKU UND X-REGISTER HIEDER VOH STAPEL HOLEN 


6160 BNE NEXTBEND 


EINS ERHDEHEN 


6890 


TAX 




6170 INC »FC 




6900 


PLA 




6180NEITBEND RTS 


UND NIEDER ZURUECKSPRIN6EN 


6910 


CPY HF8 


HENN ALLE BYTES DECODIERT NURDEN, (Y=IF8) 


6190; 




6920 


BEQ ENTNI5 


DANN VERZHEI6EN ZUH RUECKSPRUNS 


6200;AUS6ABE 










6210; 
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6930 LDY HOB ; ES S1ND NIEDER 8 BITS DA 


10030; IFB/IFC ■ BE6INN DER UN6EPACKTEN DATEN 


6940ENTNI3 DEX 


; BITLAENGE DER CODE UN EINS ERN1EDRI6EN 


10040; IFD/IFE ■ ENDE DER UNGEPACKTEN DATEN 


6950 BNE ENTNH 


; NENN NOCH NICHT NULL, HIEDER VON VORNE 


10050; «=> 135/136 ■ ERGEBN1S DER DIFFERENZ 


6960 STY $F9 


; ANZAHL DER NOCH FREIEN BITS SPEICHERN 


10060; IF7/IF8 IBE6INN DER GEPACKTEN DATEN1 IN 161/162 ZNISCHENSPEICHERN 


6970 LDA IFA 


; CODENERT LADEN (DIES 1ST E1N NIBBLEI 


10070; 


6980ENTNI5 RTS 


; UND ZURUECK 


10080PR0ZENT CLD ;SlBTRAKTION VORBEREITEN 


6990 ! 


10090 SEC 


7000; TEST AUF ENDE 


10100 LDA IFD ; LAEN6E DER UNGEPACKTEN 


7010; 


10110 SBC IFB ; DATEN BERECHNEN UND IN 


7020EHDE LDA *35 i ENDADRESSE IN AKKU UND X-RE6ISTER LADEN 


10120 STA 135 ; 135/136 ZNISCHENSPEICHERN 


7030 LDX 136 


10130 LDA IFE 


7040 CPU IFC ; HIT DER AKTUELLEN LADEADRESSE VER6LEICHEN 


10140 SBC IFC 


7050 BNE ENDE1 


10150 STA 136 


7060 CUP IFD 


10160 LDA *f7 ; BE6INN DER GEPACKTEN DATEN RETTEN 


7070 BNE ENDE1 


; NENN KLEINER, DANN NEITER 


10170 STA 161 ; INDEN NAN SIE IN 161/162 ZNISCHENSPEICHERT 


7080 LDY IIF8 


; NENN 6LEICH, Y-CODE FUER ENDE <IF8> LADEN 


10180 LDA IF8 


7090ENDE! RTS 


• UND ZURUECK SPRINGEN 


10190 STA 162 


8000; 


10200 RTS ; UND ZURUECKSPRIN6EN 


8010; NIBBLE - PACKER 


10210; 


B020; IFB/IFC = BE6INN DER UN6EPACKTEN DATEN 


10220; PROZENTSATZ DER C0NPRENIERUN6 


B030; IFD/IFE = ENDE DER UNGEPACKTEN DATEN 


10230; BERECHNEN (ZNEITER AUFRUF) 


B040; IF7/IF8 = BE6INN DER SEPACKTEN DATEN 


10240) IF7/IF6 = ENDE DER 6EPACKTEN DATEN 


8050; 


10250; 161/162 = BE6INN DER GEPACKTEN DATEN 


8060NIBBLER LDA H08 


ANZAHL DER FREIEN BITS IN EINEN BYTE LADEN 


10260; 135/136 = LAENGE DER UN6EPACKTEN DATEN 


8070 STA IF? 


UND NACH IF9 SPEICHERN 


10270; BEIH RUECKSPRUNG ENTHAELT FAC I DEN PROZENTANTEIL 


80B0NIBBLER1 JSR NEXTBYTE 


NEUES BYTE HOLEN 


10280; 


8090NIBBLER3 PHA 


BYTE AUF STAPEL ZNISCHENSPEICHERN 


10290PR0ZENT2 CLD ; SUBTRAKTION VORBEREITEN 


8100 LSR 


HI-NIBBLE NACH RECHTS SCHIEBEN 


10300 SEC 


8110 LSR 


LOH-NIBBLE LOESCHEN 


10310 LOA IF7 i LAENGE DER 6EPACKTEN DATEN BERECHNEN 


8120 LSR 


10320 SBC 161 


8130 LSR 


10330 TAY 


8140 181 ZUSAH ; UND CODIEREN 


10340 LDA IF8 


8150 PLA ; BYTE KIEDER VON STAPEL HOLEN 


10350 SBC 162 


8160 AND HOF ; HIGH-NIBBLE LOESCHEN, LOW NIBBLE BLEIBT UE8R 


10360 JSR INFAC ; UND IN FLIESSKONNAAKKU I (FAC I) NANDELN 


IB 


10370 JSR COPYFACII ; UND IN DEN FAC II COPIEREN 


8170 JSR ZUSAM ; UND AUCH DIESES CODIEREN 


10380 LDY 135 


8180 LDA JFB 


10390 LDA 136 ; LAENGE DER UNGEPACKTEN DATEN LADEN 


B190 LDJ IFC ; TESTEN, OB BEREITS ALLE BYTES CODIERT HURDEN 


10400 JSR INFAC ; UND EBENFALLS IN FAC SPEICHERN 




10410 JSR FACDIV ; DIVISION VON FAC UND FAC II 


B200 CPX IFE 


10420 JSR FACNAL10 ; FAC = FAC «10 


8210 BNE NIBBLER2 ; NENN NEIN, MEITERHACKEN 

r - b " - r\ u p\ a t- rL 


10430 JSR FACHAL10 ; UND NOCHNAL ("> PROZENTANTEIL AUSRECHNEN) 


B220 CMP IFD 


10440 RTS ; UND HIEDER ZURUECK 


8230NIBBLER2 BCC NIBBLER1 


11000; 


B240 RTS ; SONST RUECKSPRUN6 


11010; DATEN, TEXT UND FEHLERHELDUN6EN 


9000; 


11020; FUER DAS PROBRAHH 


9010; ENTPACKEN 


11030; 

11040C0DE .BYTE I00,IA0,IA8; NEUE CODES, DIE STATT EINES NIBBLES 


9020; IF7/IF8 = BE6INN DER UN6EPACKTEN DATEN 


9030; IFB/IFC = BE6INN DER GEPACKTEN DATEN 


11050 .BYTE IB0,IB8,ICO; 8ESPE1CHERT NERDEN 


9040; 135/136 = ENDE DER GEPACKTEN DATEN 
9050; 


11060 .BYTE ICB.IFO.IDO 


11070 .BYTE !DB,IE0,IF4 


9060DENI INC *35 ; ENDADRESSE UN EINS ERHDEHEN 
9070 BNE DEN 1 3 


11080 .BYTE IE8,IFB,IFC 
11090 .BYTE 180 


9080 INC 136 


11100NASKE .BYTE I80,IFB,IF8; NASKE, UN DIE UNNOETIBEN BITS ZU LOESCHEN 


9090DENI3 JSR NEXTBYTE 


EIN BYTE HOLEN t 




9100 STA IFD 


UND ZNISCHENSPEICHERN 


11110 .BYTE IF8,IF8,IFB; UND DIE CODES ZU IDENTIFIZIEREN 


9110 JSR NEXTBYTE 


EIN HEITERES BYTE HOLEN 


11120 .BYTE IF8,IFC,IFB 
11130 .BYTE IF8,IF8,IFC 
11140 .BYTE IF8,IFC,IFC 


9120 STA IFE 


EBENFALLS ZNISCHENSPEICHERN 


9130 LDA M08 


ANZAHL DER FREIEN BITS IN EINEN BYTE 1ST 08 


9140 STA «F9 


DIESE EBENFALLS SPEICHERN 


11150 .BYTE IEO 


9150DENI1 JSR ENTNI 


HI-NIBBLE DECODIEREN 


11160BITLAEN6E .BYTE 101,105,105; LAEN6E DER NEUEN CODES 


9160 CPY HFB 


TEST AUF ENDE (Y = IF8> 


11170 .BYTE 105,105,105 
11180 .BYTE 105,106,105 


9170 BE8 DENI2 


NENN JA, VERZNEI6EN ZUN RUECKSPRUN6 


9180 ASL 


SONST HI-NIBBLE NACH LINKS VERSCHIEBEN 


11190 .BYTE 105,105,106 


9190 ASL 


11200 .BYTE 105,106,106 


9200 ASL 


11210 .BYTE 103 


9210 ASL 


11220REST .BYTE 13 


9220 PHA 


AUF STAPEL LE6EN 


11230 .TEXT "ANZAHL DER 6EPACKTEN DATEN IN VERHAELT- 


9230 JSR ENTNI 


LON-NIBBLE DECODIEREN 


11240 .BYTE 13 


9240 PLA 


AKKU NIEDER VON STAPEL LADEN 


11250 .TEXT "HIS ZUN ORIGINAL IN I: 


9250 CPY IIF8 


NENN ENDE DER DATEN (Y ■ IF8) 


11260 .BYTE 


9260 BED DENI2 


DANN VERZNE16E ZUN RUECKSPRUN6 


I1270ENDADR .TEXT ■ = ENDADRESSE DER GEPACKTEN DATEN 


9270 ORA IFA 


LON- UND HIGH-NIBBLE VERKNUEPFEN 


11280 .BYTE 


9280 JSR AUS6ABE 


UND AUS6EBEN 


11290FEHLER .TEXT 'N1E BITTE? DIE STARTADRESSE 1ST FALSCH 1 


9290 JNP DENI1 ; 


NEITERHACHEN 


11300 .BYTE 13,13,0 


9300DENI2 RTS 


RUECKSPRUNG 




10000; 




10010; PR02ENTSATZ DER C0NPREH1ERUNG 




10020; BEPECHNEN IERSTER AUFRUF) 


Listing 1. Qu ellcode des Packers (SchluB) 
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Name s 


packer. abj 






cOOO c36e 


cl2B : 
cl30 : 
cl3B : 


dO 
00 
20 


04 
4c 

fad 


a9 
47 
cl 


db 

Cl 

c9 


dO 

c9 
00 


2f 

da 

dO 


aa 
dO 
04 


a9 
25 
a9 


65 
61 
a2 


c260 : 

l-268 : 
c270 : 


fb 85 35 a5 fe e5 fc 85 
36 a5 f7 B5 61 a5 fB B5 
62 60 dB 38 a5 F7 e5 61 


3e 
52 
b4 


cOOO : 


■9 


c4 


aO 


c2 


20 


le 


ab 


20 


6e 


c008 : 


■e 


cO 


■9 


fb 


20 


b2 


cO 


20 


d5 


C140 : 


da 


dO 


la 


aa 


20 


6d 


cl 


eB 


a4 


c27B i 


aB a5 f8 e5 62 20 95 b3 


d2 


cOlO : 


■s 


cO 


e6 


14 


dO 


02 


efa 


IS 


37 


cl48 : 


aO 


00 


91 


f7 


c8 


ca 


dO 


fa 


6B 


c280 : 


20 Oc be a4 35 a5 36 20 


04 


cOlB : 


a9 


fd 


20 


b2 


cO 


20 


aB 


cO 


4* 


C150 : 


88 


9B 


38 


65 


f7 


B5 


f7 


90 


8c 


c2BB : 


95 b3 20 14 bb 20 e2 ba 


3f 


c020 l 


20 


fd 


aa 


20 


9a 


b7 


a9 


f 7 


2d 


C15B : 


07 


■6 


f 8 


fO 


03 


20 


82 


cl 


ed 


C290 : 


20 e2 ba 60 00 aO aB bO 


e5 


c028 ! 


20 


b2 


cO 


20 


Sb 


c2 


8a 


49 


Se 


C160 : 


a5 


35 


a6 


36 


■4 


f c 


dO 


b4 


f3 


c29B : 


bB cO c8 fO dO d8 eO f4 


42 


c030 : 


■S 


20 


82 


cl 


20 


B2 


cl 


20 


le 


clfaB : 


c5 


fb 


dO 


bO 


60 


78 


aO 


34 


2a 


c2aO : 


e8 f8 fc 80 80 fB f8 f8 


f9 


c03B : 


82 


cl 


Ba 


dO 


06 


20 


cl 


cO 


41 


C170 : 


84 


01 


aO 


00 


bl 


f b 


aO 


37 


89 


c2a8 : 


fa fe fa fc fa fa fa fc 


2f 


cO40 i 


4c 


4b 


cO 


20 


08 


c2 


a9 


ee 


ai 


cl7B : 


84 


01 


SB 


e6 


fb 


dO 


02 


efa 


Be 


c2b0 : 


f8 fc fc eO 01 05 05 05 


dB 


C048 i 


20 


0* 


c2 


aO 


01 


aS 


f7 


91 


f5 


clBO : 


fc 


60 


aO 


00 


91 


f 7 


efa 


f7 


39 


c2b8 : 


05 05 05 06 05 05 05 06 


db 


C050 : 


61 


c8 


aS 


*B 


91 


61 


20 


72 


27 


cl8B : 


dO 


02 


e6 


fa 


a9 


f * 


60 


aO 


Bf 


c2c0 i 


05 06 06 03 Od 41 4e 5a 


73 


c05B : 


c2 


20 


d7 


bd 


20 


d7 


aa 


20 


84 


cl90 : 


00 


dl 


f b 


dO 


04 


c8 


dO 


f9 


4f 


c2c8 : 


41 48 4c 20 44 45 52 20 


3c 


cO60 : 


d7 


aa 


aS 


fB 


a6 


f7 


20 


cd 


5b 


C198 : 


88 


60 


aa 


a8 


b9 


b4 


c2 


aa 


c2 


c2d0 : 


47 45 50 41 43 4b 54 45 


61 


c068 : 


bd 


a9 


21 


aO 


c3 


20 


le 


ab 


63 


claO : 


b9 


94 


c2 


a4 


f 9 


Oa 


26 


fa 


67 


c2dB : 


4e 20 44 41 54 45 4e 20 


59 


c070 : 


60 


20 


aB 


cO 


a9 


fb 


20 


b2 


83 


claB : 


BB 


dO 


09 


48 


a5 


fa 


20 


82 


9b 


c2eO : 


49 4d 20 56 45 52 48 41 


2d 


c078 i 


cO 


20 


fad 


cl 


48 


20 


fad 


cl 


9b 


clbO : 


cl 


aO 


08 


68 


ca 


dO 


ee 


B4 


cB 


C2e8 : 


45 4c 54 2d Od 4e 49 53 


Id 


cOBO : 


85 


35 


20 


fad 


cl 


B5 


36 


20 


b7 


clbB : 


f9 


60 


a2 


Of 


aS 


fd 


3d 


a4 


f 4 


c2fO : 


20 5a 55 4d 20 4f 52 49 


95 


cOBB : 


■a 


cO 


a9 


f7 


20 


b2 


cO 


faB 


6S 


clcO : 


c2 


dd 


94 


c2 


fO 


03 


ca 


dO 


e2 


c2f8 : 


47 49 4e 41 4c 20 49 4e 


27 


c090 : 


49 


aB 


dO 


04 


20 


lc 


cl 


60 


Bd 


clcB : 


f3 


B6 


fa 


bd 


b4 


c2 


aa 


a4 


ca 


c300 : 


20 25 3a 20 20 20 20 20 


09 


c09B : 


aa 


ca 


dO 


04 


20 


2a 


c2 


60 


7b 


cldO : 


f9 


06 


fe 


26 


fd 


8B 


dO 


19 


ea 


c30B : 


20 20 20 20 20 20 20 20 


OB 


cOaO : 


a9 


43 


aO 


c3 


20 


lc 


ab 


60 


ee 


cldB : 


9B 


48 


Ba 


48 


20 


f9 


cl 


cO 


9a 


C310 : 


20 20 9d 9d 9d 9d 9d 9d 


d4 


c0a8 : 


20 


fd 


ai? 


20 


Ba 


ad 


20 


f7 


fd 


cleO : 


fa 


fO 


05 


20 


fad 


cl 


85 


fe 


Bf 


c318 : 


9d 9d 9d 9d 9d 9d 9d 9d 


17 


cObO : 


b7 


60 


aO 


01 


8d 


bb 


CO 


b9 


Od 


cleB : 


68 


aa 


68 


cO 


fB 


fO 


09 


aO 


54 


c320 : 


00 20 3d 20 45 4e 44 41 


de 


cObB : 


14 


00 


99 


f7 


00 


88 


fO 


f7 


2a 


clfO : 


08 


ca 


dO 


dd 


84 


f9 


aS 


fa 


f2 


c328 : 


44 52 45 53 53 45 20 44 


ba 


cOcO I 


60 


20 


fad 


cl 


aa 


20 


Bf 


cl 


31 


clfB : 


60 


a5 


35 


a6 


36 


e4 


fc 


dO 


fad 


c330 : 


45 52 20 47 45 50 41 43 


f2 


C0c8 ! 


B4 


a5 


CO 


03 


90 


2a 


98 


18 


9e 


C200 ! 


06 


e5 


fb 


dO 


02 


aO 


fB 


60 


cc 


c338 : 


4b 54 45 4e 20 44 41 54 


9a 


cOdO : 


65 


!b 


BS 


fb 


70 


02 


e6 


fc 


c2 


C20B : 


a9 


08 


85 


f9 


20 


fad 


cl 


48 


5b 


c340 : 


45 4e 00 57 49 45 20 42 


5b 


cOdB : 


eO 


00 


to 


to 


a9 


da 


20 


82 


ed 


c210 : 


4a 


4a 


4a 


4a 


20 


9b 


cl 


68 


12 


c348 : 


49 54 54 45 3f 20 44 49 


12 


cOeO ! 


cl 


a5 


aS 


20 


82 


cl 


Ba 


20 


82 


c218 : 


29 


Of 


20 


9b 


cl 


aS 


fb 


afa 


cb 


c350 : 


45 20 53 54 41 52 54 41 


7f 


cOeB : 


82 


cl 


dO 


23 


a9 


db 


20 


82 


e2 


c220 : 


fc 


e4 


fe 


dO 


02 


cS 


fd 


90 


cf 


c35B : 


44 52 45 53 53 45 20 49 


f4 


cOfO : 


cl 


a5 


a5 


20 


B2 


cl 


dO 


17 


99 


c22B : 


e3 


60 


e6 


35 


dO 


02 


efa 


36 


cl 


c360 : 


53 54 20 46 41 4c 53 43 


f9 


c0f8 : 


eO 


da 


f 


04 


eO 


db 


dO 


Ob 


48 


c230 ! 


20 


fad 


Cl 


B5 


fd 


20 


fad 


cl 


42 


C368 : 


48 21 Od Od 00 00 ff 00 


26 


clOO : 


Ba 


20 


82 


Cl 


a9 


00 


20 


82 


93 


c238 : 


B5 


fe 


a9 


08 


B5 


f9 


20 


ba 


efa 








clOB : 


cl 


dO 


04 


8a 


20 


B2 


cl 


aS 


ec 


C240 : 


cl 


cO 


fB 


fO 


15 


Oa 


Oa 


Oa 


9b 


Listing 2. »PACKER.OBJ« 

Die lauffahige Packroutine. Bitti 




cllO : 
cllB I 


fb 
fd 


a6 
90 


a6 


■4 
60 


fe 
20 


dO 
6d 


02 
cl 


c5 
c9 


44 

lb 


c24B : 
c250 : 


Oa 
fO 


48 
08 


20 
05 


ba 
fa 


cl 
20 


68 

82 


cO 
cl 


f8 
4c 


2a 

9b 


i 


C120 : 


db 


dO 


11 


20 


fad 


cl 


c9 


00 


ba 


c25B : 


3e 


c2 


60 


d8 


38 


a5 


fd 


e5 


9f 


mit dem MSE (Seite 159) eingeben. 



Von Pttckern 
und Kompressoren (2) 



lm zweiten Teil unseres Grundlagenartikels wol- 
len wir uns mit einem Packverfahren auseinan- 
dersetzen, das zu einem der ausgefeiltesten 
zahlt: dem Lempel-Ziv-Verfahren. 

Zunachst folgende Uberlegung: mit 8 Bit kann man be- 
kanntlich 256 verschiedene Kombinationen darstel- 
len - eben die 256 Byte. Mit 9 Bit hingegen sind 
es schon 512 Kombinationen, mit 10 Bit 1024, mit 11 Bit 
2048 etc. Konnte man die 512 9-Bit-Werte nicht ausnutzen 
urn dam it sowohl die 256 Byte als auch 256 besonders hau- 
f ige 2-Byte-Folgen zu je 9 Bit zu codieren? Man wurde dabei 
manchmal 7 Bit gewinnen (bei 2-Byte-Folgen), oft jedoch 1 
Bit verlieren (bei »einzelnen« Bytes). Ob sich das am Ende 
lohnt, sei dahingestellt. Vielleicht ware es gunstiger, alle 
Bytes zu 10 Bit zu codieren und die verbleibenden 
1024-256 - 768 Codierungen fur die haufigsten 2-Byte- 
Sequenzen zu reservieren. Dabei wurde haufiger als im zu- 
letzt skizzierten »9-Bit-Fall« etwas eingespart - und zwar 
jetzt je 6 Bit - aber ziemlich oft wurden 2 Bit bei einzelnen 
zu codierenden Bytes eingebuBt. Dieses Beispiel lieBe sich 
sicher beliebig fortsetzen, nahme man statt 9- Oder 10-Bit- 
Codes beispielsweise sogar 11-, 12- oder 13-Bit-Codes. 
Auch konnte man statt der oben empfohlenen 2-Byte- 
Sequenzen langere nehmen. Zwar kommen 3-Byte- 
Sequenzen deutlich seltener vor als solche zu 2 Byte, je- 
doch wird durch eine Codierung mit zum Beispiel 9 oder 10 
Bit offensichtlich auch einiges mehr als bei 2-Byte-Folgen 
eingespart. 



Offenbar hat ein solcher Packer, entscheidet man sich fur 
eines der im letzten Absatz skizzierten Verfahren, zumin- 
dest drei Nachteile: 

1) Hat man sich fur eine Codierung zu je 10 Bit entschlossen 
- vielleicht, weil dies fur das zu packende Programm ein be- 
sonders gutes Ergebnis bringt - so muB man den ganzen 
Kompressionsvorgang hindurch bei diesen 10 Bit bleiben, 
auch, wenn es vielleicht sinnvoll ware, einen Teil des Pro- 
gramms zu je 9 Bit zu codieren. Die Codewortlange ist also 
statisch und laBt sich demnach nicht flexibel auf das zu 
packende Programm einstellen. 

2) Ahnliches gilt fur die Sequenzlangen. Entweder, man 
verkurzt nur 2-Byte-Sequenzen oder nur 3-Byte-Sequen- 
zen. Es ist zwar prinzipiell moglich, eine bestimmte Anzahl 
der Codierungen fur 2-Byte-Sequenzen und den Rest fur 
3-Byte-Folgen und langere zu reservieren, jedoch ist das 
auch nicht gerade das Ei des Kolumbus. Die Codierung 
konnte dann beispielsweise folgendes Aussehen haben: 
Mancodiertgrundsatzlichzu 10 Bit. Diesergibtbekanntlich 
2 hoch 10 = 1024 mogliche Werte. 256 von diesen repra- 
sentieren die 256 Byte, 512 stehen fur die 512 haufigsten im 
zu packenden Programm vorkommenden 2-Byte-Sequen- 
zen, 192 fur 3-Byte- und 64 fiir 4-Byte-Folgen. Damit wird 
der Nachteil einer konstanten Sequenzlange zwar aufge- 
hoben, aber der dritte Nachteil noch verstarkt: 

3) Gleich, welche Tricks man sich einfallen laBt, die ersten 
beiden Nachteile zu verringern, an teils ausgesprochen 
umfangreichen Tabellen, in denen die Sequenzen, die co- 
diert werden sollen, abgelegt sind und die den gepackten 
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Schritt 



$00, 



aktuelles Byte 
$02, $33, $00, 



$100 



$00, $02, 



$101 



$00, $02, $33, 



$102 



...533, $00, $02, 



=$100 



$103 



...300, $02, $A5, 



...,$02, $A5, 



Code urn ein betrachtliches 
Stuck langer machen, fuhrt 
kein Weg vorbei. 

Uns ware also sehr gehol- 
fen, wenn es ein Verfahren 
gabe, das beim Entpackvor- 
gang seine Tabellen selbst 
erzeugt. 

Der gepackte Code wur- 
de also nicht durch hinzuge- 
fugte Tabellen um einiges 
verlangert. Des weiteren 
sollte die beim Codieren 
verwendete Codewortlange 
flexibel sein (vergleiche 
Nachteil 1), und Sequenzen 
verschiedener Langen soil- 
ten ebenfalls codierbar sein 
(siehe Nachteil 2). 

So erstaunlich das auch 
klingen mag - ein solches 
Verfahren gibt es wirklich. 
Es nennt sich, wie oben 
schon angedeutet, Lempel- 
Ziv-Verfahren. 

Wir gehen dabei zur Ver- 
einfachung zunachst von ei- 
ner festen Codewortlange 
von 12 Bit aus. Mit 12 Bit las- 
sen sich 2 hoch 12 = 4096 
Kombinationen darstellen, 
und zwar $000 (0) bis $FFF 
(4095). 

Die Bytes $00 bis $FF 
werden im 12-Bit-Code ein- 
fach als $000 bis $0FF co- 
diert. 4096 - 256 = 3840 
12-Bit-Codes (von $100 bis 
$FFF) bleiben (ibrig. Diese 
verwenden wir fur die Tabel- 
le mit 3840 Eintragen 
T($100)bisT($FFF)zuje20 
Bit. 

Ein Tabelleneintrag hat 
deshalb 20 Bit, weil wir, wie 
wir gleich an einem ausf uhr- 
lichen Beispiel sehen wer- 
den, in der Tabelle jeweils 
einen Tabellenindex (12 Bit) 
und ein Byte (8 Bit) eintra- 
gen konnen mussen. 

Die Tabelle sei zunachst »leer«. Sie wird im Laufe des 
Packvorganges »der Reihe nach gefullt«, also zunachst 
wird in T($100) etwas eingetragen, dann in T($101) und so 
fort. Was das konkret heiBt, wollen wir uns am Beispiel der 
Lempel-Ziv-Codierung der 12-Byte-Folge 

$00, $02, $33, $00, $02, $A5, $00, $02, $00, $02, $A5, $34 

nun einmal genauer ansehen. 

Der Packer 



Betrachten wir hierzu Bild 1. Im ersten Schritt werden 
zunachst dem zu komprimierenden Datensatz die ersten 
beiden Bytes entnommen; sie werden als Vorgangerbyte »V« 
und als Codebyte »C« in der Tabelle unter der nachsten frei- 
en Position ($100) eingetragen. Fortan ist dem Kompressor 
die 2-Byte-Folge $00, $02 kurz als 12-Bit-Code $100 be- 



zu packender Code 



$02, $A2... 



aktuelles Byte 
$33, $00, $02, 



$A5... 



aktuelles Byte 
$00. $02, $A5... 



aktuelles Byte 
$A5, $00, $02... 



aktuelles Byte 
$00, $02, $00... 



$104 



aktuelles Byte 
$00, $0 2, $00, 
=$100 
$105 



$02... 



aktuelles Byte 
.,$00, $02, $00, $02 , $A5, $34 
= $100 



= $103 



$106 



letzter Code V 
.,$00, $02, $A5, $34 



Tabelle 



Pos. V 



$100 $000 $02 



Pos. 


V 


c 


$100 


$000 


$02 


$101 


$002 


$33 



Pos. 



$100 


$000 


$02 


$101 


$002 


$33 


$102 


$033 


$00 



: Pos. 


V 


C 


$101 


$002 


$33 


$102 


$033 


$00 


$103 


$100 


$A5 



Pos. 



$102 


$033 


$00 


$103 


$100 


$A5 


$104 


$0A5 


$00 



Pos. 


V 


C 


$103 


$100 


$A5 


$104 


$0A5 


$00 


$105 


$100 


$00 



Pos. 


V 


C 


$104 


$0A5 


$00 


$105 


$100 


$00 


$106 


$103 


$34 



Keine weiteren Tabel- 
leneintrage, da kein 
Code C mehr gelesen 
werden kann 



Ausgabe (12 Bits) 



Bild 1. Die Funktionsweise des Lempel-Ziv-Packverfahrens 



$000 



$002 



$033 



$100 



$0A5 



$100 



$103 



$034 



kannt. Ausgegeben - als gepackter Code also - wird grund- 
satzlich der zuletzt in die Tabelle eingetragene Vorganger- 
code V, hier also $000. Man bedenke, daB in unserem Fall 
ein Vorgangercode V immer 12 Bit lang ist. Den Grund dafur 
werden wir beim vierten Schritt erkennen. Doch zunachst 
weiter mit Schritt 2: 

Alles, was im jeweils vorangegangenen Schritt als Vor- 
gangercode diente und somit als gepackter Code ausgege- 
ben wurde, interessiert uns nun nicht mehr. Das Codebyte 
C des letzten Schrittes ist ab jetzt der neue Vorganger V und 
ein neues Code-Byte C muB den zu packenden Daten ent- 
nommen werden - hier also $33. Ab jetzt wird wie bei 
Schritt 1 verfahren; fur den dritten Schritt gilt dasselbe wie 
fur Schritt 2. Interessant wird es jedoch dann beim vierten 
Schritt. Der Vorgangercode V entspricht zunachst wieder 
dem Codebyte C des letzten Schrittes, ist hier also $000. 
Das neue Codebyte ist $02 - doch halt: ein Bytepaar mit 
V=$000 und C=$02 steht schon in unserer Tabelle unter 
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Position $100. Das bedeutet fur den Packer letztendlich, 
daB das Paar $00, $02 ein einziger (Vorganger-) Code, nam- 
lich $100 ist, also V=$100, und C entspricht dem nachsten 
zu packenden Byte $A5. Da ein Code mit V=$100 und 
C=$A5 nirgends in der Tabelle zu finden ist, wird weiter wie 
bei den ersten drei Schritten verfahren. Fur Schritt 5 gilt 
gleiches wie beispiesweise fur Schritt 3, bei Schritt 6 ist 
analog zu Schritt 4 zu verfahren. Zum siebten Schritt ist je- 
doch noch einiges zu bemerken: Zunachst ist V hier wieder 
gleich $000 und C=$02. Dieser Code existiert bekanntlich 
in der Tabelle unter Position $100. Also ist $100 unser neuer 
Vorgangercode V und C=$A5. Die Werte $100 und $A5 wur- 
den aber schon bei Schritt 4 in die Tabellenposition $103 
eingetragen. Das bedeutet im Endeffekt, daB $103 fur die 
3-Byte-Sequenz $00,$02,$A5 steht. 

Man sieht, mit dem Lempel-Ziv-Verfahren lassen sich 
auch 3-Byte-Sequenzen und langere zu 12 Bit codieren. In 
die Tabelle ist also $103, $34 einzutragen. Beim achten und 
letzten Schritt existiert nun nur noch ein Vorgangercode 
V=$034, jedoch kein Codebyte C, also wird der Vorganger- 
code wie gewohnt ausgegeben und der Codiervorgang ist 
beendet. 



Der Entpadcer 



Sehen wir uns nun in Bild 2 an, wie ein zugehoriger Dekom- 
pressor arbeiten muB. Ihm liegen als gepackter Datensatz 
acht 12-Bit-Codes vor, und zwar: 
$000, $002, $033, $100, $0A5, $100, $103, $034 

In jedem Schritt unseres Entpack-Vorganges lesen wir 
einen gepackten Codewert ein, benotigen also insgesamt 
acht Schritte. Bei jedem Schritt wird der eingelesene 12-Bit- 
Code in die jeweils nachste freie Tabellenposition als Vor- 
gangercode V eingetragen, decodiert und als ungepackter 
Code ausgegeben. Wie das Decodieren dieses Vorganger- 
code vor sich geht, soil hier nun an drei Beispielen naher 
erlautert werden: 

Im Schritt 3 ist der eingetragene V-Code gleich $033, was 
bekanntlich fur $33 steht. Zur Erinnerung: Codes von $000 
bis $0FF stehen fur die Bytes $00 bis $FF, alle weiteren Co- 
des reprasentieren Tabellenpositionen und damit Byte- 
Paare, -tripel und so fort. Also ist $033 auch als $33 auszu- 
geben. Interessanter ist da schon Schritt 4: der V-Code ist 
$100, entspricht also dem Inhalt der Tabellenposition $100 
und steht somit fur $000, $02. Da $000 natiirlich $00 repra- 
sentiert, stand $100 im Endeffekt fur $00, $02. Dies wird 
auch als entpackter Code ausgegeben. Die Ausgabe in 
Schritt 7 ist noch tiefer verschachtelt. Der zu decodierende 
Code $103 steht - das entnehmen wir Tabellenposition 
$103 - fur $100, $A5, dieser wiederum fur $000, $02, $A5 
und das bedeutet $00, $02, $A5. Man sieht deutlich, daB 
sich der Dekompressor bei der Bestimmung des entpack- 
ten Codes oftmals »ruckwarts durch die Tabelle hangeln« 
muB. Bei der Realisierung dieser »Coderuckverfolgung« 
verwendet man in der Regel einen Stack. Dies wollen wir 
uns am Beispiel des Decodierens von $103 im Schritt 7 ein- 
mal naher betrachten. Unter Tabellenposition $103 finden 
wir V=$100 und C=$A5. Wir legen C - also $A5 - auf dem 
(zunachst leeren) Stack ab und untersuchen Position $100. 
Wir erhalten V=$000 und C=$02. C - diesmal $02 - wird 
auf dem Stack abgelegt. V ist kleiner als $100 und somit 
kein weiterer Verweis auf einen Tabelleneintrag, sondern 
steht fur $00, was auch seinem Platz auf dem Stack ent- 
spricht. Der Stackaufbau ist nun abgeschlossen; die Bytes 
wurden in der Reihenfolge $A5, $02, $00 abgelegt. Nun hat 
esein Stack bekanntlich an sich, daB seine Elemente in um- 
gekehrter Reihenfolge ausgelesen werden. Dies ergibt 
dann genau unsere entpackte Folge $00, $02, $A5. 



Bei der Erklarung der Wirkungsweise des Entpackers 
muB natiirlich noch erwahnt werden, wie die Tabellenein- 
trage C zustande kommen. Schauen wir uns hierzu der Illu- 
stration halber Schritt 6 an. Zunachst wird der V-Code $100 
in Tabellenposition $105 eingetragen und dann (unter Zuhil- 
fenahme eines Stacks) decodiert und ausgegeben. Das er- 
ste hierbei ausgegebene Byte ($00, das oben auf dem 
Stack liegt) wird nun als C unter der vorherigen (!) Tabellen- 
position $104 eingetragen. 

Die Ausnahme von der Regel 



Eins muB hier stutzig machen: Ein Decodieren und Ausge- 
ben eines V-Codes einer Tabellenposition erfolgt noch vor 
dem Eintragen des C-Codes in die vorherige Tabellenposi- 
tion. Wenn in der Tabelle an Position $104 ein Verweis (mit- 
tels V-Code) auf Position $103 erfolgt, dann ist der C-Code 
in Position $103 noch nicht eingetragen und der Stackauf- 
bau ist zum Scheitern verurteilt. Doch kann dieser Fall 
uberhaupt auftreten? Er kann, und zwar immer dann, wenn 
eine zu codierende Folge »BSBSB« auftritt, wobei »B« ein 
Byte und »S« eine Sequenz von mindestens einem Byte 
Lange ist. Allerdings muB die Sequenz »BS« weiter vorne 
in der Tabelle schon einmal als Code festgehalten worden 
sein. Dies macht man sich am besten anhand eines Bei- 
spieles klar. Wir wahlen B=$11 und eine 1-Byte-Sequenz 
S=$22. AuBerdem miissen wir garantieren, daB BS=$11, 
$22 vor dem »BSBSB-Fall« schon als Code in der Tabelle 
eingetragen ist - am besten, wir lassen unseren zu packen- 
den Datensatz damit beginnen. Dieser konnte dann zum 
Beispiel folgendes Aussehen haben: 

$11, $22, $00, $11, $22, $11, $22, $11. 

Zum Zwecke der Ubung des Lempel-Ziv-Packens sollten 
Sie diese 8-Byte-Folge einmal codieren. Ihr Ergebnis sollte 
aus fiinf 12-Bit-Werten bestehen und wie folgt lauten: $011, 
$022, $000, $100, $103. 

Ubung macht den Meister 



Der Darstellung in Bild 3 konnen Sie dem Entpack-Vorgang 
entnehmen. Das Dekomprimieren erfolgt hier analog zu 
unserem ersten Entpack-Beispiel in Bild 2. Die »BSBSB«- 
Ausnahme ist in Schritt 5 klar ersichtlich: Unter Tabellen- 
position $104 wird zunachst der V-Wert $103 eingetragen. 
Dieser stellt einen Verweis auf die voherige, zu diesem Zeit- 
punkt noch unvollstandige Position $103 dar. Wir wissen 
jedoch, daB es sich in einem solchen Falle nur urn eine 
»BSBSB«-Folge handeln kann; bei dem fehlenden C-Wert 
in Position $103 muB es sich also urn B und somit urn $11 
handeln. Die Behandlung dieses Ausnahmefalles in einen 
Lempel-Ziv-Dekompressor einzubinden, sieht auf den er- 
sten Blick sicher komplizierter aus als sie ist. Es empfiehlt 
sich, noch vor dem Eintragen des V-Codes in eine Tabellen- 
position (zum Beispiel $104) den C-Code der vorherigen 
Position ($103) einzutragen, indem man einfach den C- 
Code der vorletzten Position ($102) ubernimmt. Zur Uber- 
priifung des eben Gesagten betrachten wir zwei Falle: 

1) Es tritt der »BSBSB«-Fall auf. In diesem Falle wird zu Be- 
ginn von Schritt 5 der richtige Wert $11 in den C-Code der 
Position $103 ubernommen, dann der V-Wert $103 richtig 
decodiert und zuletzt wird $11 - da als erstes decodiertes 
Byte in Schritt 5 ausgegeben - in den C-Wert von $103 uber- 
nommen, wo vorher ja auch schon $11 stand. 

2) Der Sonderfall tritt nicht auf, beispielsweise in Schritt 4. 
Hier wurde in den C-Wert von Position $102 zunachst der 
C-Wert von $101 ubertragen - also $00. Da der »BSBSB«- 
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Fall nicht auftritt, gibt es auch keinen Verweis (mittels V- 
Code) von Position $103 nach $102. Demnach ist der C- 
Wert in Position $102 zu diesem Zeitpunkt ohnehin belie- 
big. 

Natiirlich funktioniert ein Ubernehmen des C-Wertes aus 
der vorletzten in die letzte Position erst ab Tabellenposition 
$102, vorher kann der Sonderfall jedoch ohnehin nicht auf- 
treten. 

Variable Codewortlangen helfen 
Platz sparen 

Nachdem nun die Wirkungsweise eines LZ-Packers und 
-Entpackers klar geworden sein diirfte, wollen wir uns nun 
einmal ansehen, welche der oben beschriebenen Nachtei- 
le er nicht in sich birgt. Tabellen miissen offenbar nicht mit 
dem gepackten Code (und dem Dekompressor) gespei- 
chert werden, da sie beim Entpacken selbst erzeugt wer- 
den. Auch werden Sequenzen, bestehend aus 2, 3, 4 Oder 
noch mehr Byte, codiert. Nur die Codewortlange ist nicht 
flexibel (vergleiche Nachteil 1), sondern konstant 12. Doch 
das laBt sich leicht andern. 

Mit 1 2-Bit- V-Werten kann man Verweise auf Tabellenpo- 
sitionen bis $FFF (4095) erreichen. Die Tabellen in unseren 
Beispielen waren jedoch weitaus kleiner. FurTabellenposi- 
tionen bis $1FF reichen natiirlich auch 9-Bit-V-Codes, bis 
$3FF genugen 10-Bit-Werte, bis $7FF 11-Bit Werte und so 
weiter. Das bedeutet: Solange beim Kompressen dieTabel- 
le noch nicht bis zu Position $200 (=2 hoch 9) angewach- 
sen ist, wird der gepackte Code jeweils als 9-Bit-Wert aus- 
gegeben, solange die Tabelle nicht auf $400 (= 2 hoch 10) 
angewachsen ist, werden 10-Bit-Codes ausgegeben und 
so fort. Da der Dekompressor analog zum Kompressor die 
Tabelle aufbaut, gilt fur ihn das gleiche fur einzulesende 
Codes, das heiSt er liest erst eine Zeitlang 9-Bit-Werte, 
dann 10-Bit-Werte 

In unserem ersten Beispiel (Bild 1) hatte also eine 9-Bit- 
Ausgabe vollig ausgereicht, es waren also 8 Codes zu je 9 
Bit = 72 Bit = 9 Byte ausgegeben worden, was bei einem 
Eingabecode von 12 Byte 25 Prozent Einsparung bringt. 

Der Code zum Tabellenloschen 



Beim Packen wird immer dann, wenn eine schon in der Ta- 
belle verzeichnete Sequenz gefunden wird, etwas einge- 
spart, ansonsten etwas eingebuBt. Da zu Beginn aufgrund 
der noch ziemlich leeren Tabelle in der Regel wenig gefun- 
den wird, verliert man zunachst einmal einiges, holt den 
Verlust aber mit zunehmender TabellengroBe schnell wie- 
der ein und kommt somit also in einen Bereich, wo sich ein 
LZ-Packen lohnt. 

Mit weiter zunehmender TabellengroBe werden zwar 
auch immmer haufiger in der Tabelle eingetragene Se- 
quenzen gefunden, jedoch steigt auch die Codewortlange 
an. Bei einer Codewortlange von 12 Bit liegt die aktuelle Ta- 
bellenposition wie im letzten Absatz angedeutet zwischen 
$800 und $FFF, die Tabelle hat also zwischen 1792 und 
3839 Eintrage. Somit hat man zwar gute Chancen, eine Se- 
quenz in der Tabelle zu finden, wenn man Pech hat, muB 
man jedoch einen 8-Bit-Eingabecode zu einem immerhin 
12 Bit langen Ausgabecode codieren und verliert 4 Bit. Bis 
zu einer bestimmten, vom zu packenden Programm ab- 
hangigen TabellengroBe lohnt sich ein Lempel-Ziv-Packen 
besonders, nach diesem Punkt wird die »Packausbeute« 
geringer. Deshalb kann es - besonders bei sehr langen zu 
packenden Programmen - sehr niitzlich sein, beim Kom- 



pressionsvorgang ein Protokoll iiber die jeweilige »Aus- 
beute« zu fuhren. Dies kann beispielsweise geschehen, 
indem man in regelmaBigen Abstanden das Verhaltnis von 
(ungepacktem) Eingabecode und (gepacktem) Ausgabe- 
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$02 
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$00 
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$00 
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$00 
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Bild 2. Die Wirkungsweise des Dekompressors 

code ermittelt und, wenn das Ergebnis schlechter wurde 
als beim letzten Test, vom nachsten Eingabecode an quasi 
von vorne mit dem Packvorgang beginnt, also die Tabelle 
loscht und wieder mit einer Codewortlange von 9 beginnt. 
Der Kompressor muB dem Dekompressor natiirlich mittei- 
len, zu welchen Zeitpunkt auch jener seine Tabelle zu 
loschen hat. 

Sdinellerer Tabellenzugriff beim Packen 



Dies geschieht am sinnvollsten dadurch, daB man zwi- 
schen Kompressor und Dekompressor einen Tabellen- 
losch-Code vereinbart, zum Beispiel $100. Immer, wenn der 
Entpacker ein $100 als Eingabecode liest, loscht er die Ta- 
belle und beginnt auch mit seinem Tabellenaufbau von 
neuem. 

Selbstverstandlich beginnt die Tabelle damit nicht mehr 
bei Position $100, sondern bei $101. 
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BeimobenbeschriebenenLempei-Ziv-Packerfalltauf,daB, 
vor allem bei groBeren Tabellen, sehr viel Zeit fur das Su- 
chen von Sequenzen in der Tabelle aufgewendet werden 
muB. Es sei deshalb hier angemerkt, daB der Tabellenauf- 
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Bild 3. Die Ausnahme beim LZ-Dekompressionsvorgartg 



bau des Kompressors nicht unbedingt sequentiell erfolgen 
muB, sondern, daB auch ein sogenanntes Hashing-Verfah- 
ren gewahlt werden kann, dessen Zugriffsschliissel abhan- 
gig von den einzutragenden V- und C-Werten bestimmt 
wird. Je groBer dabei der freie RAM-Speicherplatz fur die 
Tabelle ist, desto schneller arbeitet der Packer. 

Andere Pa<k-Verfahren 



Zum AbschluB dieses Grundlagenartikels wollen wir nun 
noch einen kurzen Ausblick auf andere, hier nicht naher 
beschriebene Verfahren wagerw-Alle bis hierher vorgestell- 
ten Verfahren haben einesgemeinsam: Es existiert ein Urn- 
kehralgorithmus, und damit ist auch ein Dekompressor 
moglich, der in der Lage ist, den gepackten Code wieder in 
seinen ursprunglichen Zustand zuriickzuversetzen. 

Man kann sich aber auch Falle denken, in denen es nicht 
notwendig ist, daB der Entpacker exakt den ungepackten 
Ausgangscode wiederherstellt. Dies ist zum Beispiel beiei- 
nem Datensatz aus digitalisierten Sounddaten der Fall. Un- 
ter Umstanden kann es geniigen, daB eine digitalisierte 
Musik nur »sehr ahnlich« klingt, nachdem man sie ge- und 
entpackt hat. Auf derartige Verfahren wollen wir — schon 
aus Platzgrunden — nicht naher eingehen, dies sollte uns 
nur als Beispiel dafur dienen, daB es auch anders geht. 

(Peter Arndt/Ulrich V6lker/sk) 



Literaturhinweise: 

J.Ziv, A.Lempel: A Universal Algorithm tor Sequential Data Compression. IEEE Trans. Informa- 
tion Theory. Vol.lT-23. No.3. May 1977.pp 337*343. 

Fibonacci Delta Compression, AMIGA ROM Kernel Reference Manual: Exec, Add! son-Wesley, 
p. B-68. 



Genau betraditet: 
RS232/V.24-S<hnittstelle 



B 



Eine kurze und biindige Beschreibung der 
RS232-Schnittstelle Ihres C 64. Was machen die 
Signale, wie sind die Pin-Belegungen? 

I ei der RS232-Schnittstelle werden die Daten Bit fur Bit 
.ubertragen, im Gegensatz zur Centronics- oder 
' IEEE-488-Norm, bei der ganze Bytes ubergeben wer- 
den. Die Bits werden als eine Folge von Spannungsimpul- 
sen mit einer bestimmten Dauer ubertragen. In der Praxis 
werden dabei Pakete von 5 bis 8 Datenbit ubertragen, die 
von einem Start-Bit und 1 bis 2 Stop-Bit eingerahmt sind 
(Bild 1). Das Start-Bit hat grundsatzlich logischen Low- und 
die Stop-Bits High-Pegel. Vor dem Stop-Bit kann ein soge- 
nanntes Paritats-Bit vereinbart werden, das die Anzahl der 
High-Zustande im Datenwort immer gerade Oder ungerade 
macht. 



Beispiel: Sind in einer 8-Bit-Ubertragung 5 Bit gesetzt, 
wird das Paritats-Bit ebenfalls gesetzt, wenn gerade Paritat 
vereinbart wurde. 

Urn die Stbrungs-Anfalligkeit der Ubertragung zu min- 
dern, wird logisch »Eins« (gesetztes Bit) nicht durch +5V 
(TTL-Pegel) realisiert, sondern mit einer Spannung von —3 
bis —12V und logisch »Null« mit +3 bis +12V (RS232 nach 
DIN 66020). Der C 64 hat zwar die nbtige Software fur eine 
RS232-Schnittstelle im Betriebssystem integriert, verfugt 
aber nicht uber die entsprechenden Spannungspegel. Im 
C 64 gibt es nur zwei Spannungen: +5V (TTL) und 9V 
Wechselspannung. Es ist also ein Interface zur Span- 
nungskonvertierung notig. Links in Bild 2 finden Sie zwei 
Schaltplane fur ein solches Interface. Rechts im Bild die 
diskrete Losung, fur die Konvertierung von 0/5V auf +12V 
(oben) und von ±12V auf 0/5V (unten). Beachten Sie, daB 
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Bild 1. So sieht eine RS232-Ubertragung schematisch aus. Das Start-Bit ist immer »Low«. 
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jede Sende- und Empfangsleitung die entsprechende Tran- 
sistorschaltung braucht. 

Mit einer Masse- und einer Datenleitung konnte schon ei- 
ne Ubertragung von Texten an einen Drucker erfolgen. Was 
ist aber, wenn die Dateniibertragung schneller ist, als der 
Drucker die Zeichen zu Papier bringen kann? Der Drucker 
muB dem Computer sagen , wenn er zuviel Arbeit bekommt. 
Er kann dies auf drei verschiedene Arten tun: 



Daten aufnehmen, sendet er ein ACK an den Computer 
und die Ubertragung beginnt von Neuem. 
— Hardware-Protokoll 

Spatestens hier wird es uniibersichtlich. Es hilft nur noch 
Tabelle 1 zur Erklarung der ganzen Signale. Als ublicher 
Stecker fur V.24-Signale hat sich ein 25poliger D-Sub- 
Stecker (im Laborslang Cannon genannt) durchgesetzt. 
Die Bezeichnung der Kontakte ist gleich dreimal genormt: 



User-Port 

PIN 

A.N.1,12 
D 

E 



RS232 



M- 



SIGNAL 
MASSE 
RTS - 
DTR — 
TXD — 



75 188 

13,15 11 

45 6 



9,10 

7 



i^vT 



I2V 



B, C- 
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H — 
K 

L — 



RXD 



•Rl ■+■-■ 6 

Rl Oder DCD 

■DCD ««-H 

•CTS ««- 



■DSR 



Rl Oder DCD 
wahlweise anschliefien 



3 75 189, 



11 

7 
I" 



'+5V 



Oder diskret fur OUT (pro Leitung): 



+ 5 V I — HTT) 



O + 12 V 



BC 177 



fur IN: 



»-OUT(± 12 V) 



+ 5V 
0V 



z.B. BC 107 




Bild 2. Zwei Schaltplane fur ein RS232A/.24-lnterface. Links die Lbsung mit IC, recht die diskrete mit Einzelelementen 



— Software-Protokoll mit XON/XOFF 

Es wird eine zusatzliche Leitung zwischen Computer 
und Peripherie eingerichtet, iiber die das empfangende 
Gerat den Code $13 (XOFF) sendet, wenn es keine Daten 
mehr annehmen kann. Dieses Signal hat die gleiche Aufga- 
be wie die Busy-Leitung einer Centronics-Schnittstelle; es 
stoppt die Datenubertragung. Die Freigabe erfolgt mit dem 
Code $11 (XON). Die Codes $11 und $13 entsprechen den 
ASCII-Codes DC1 und DC2. 

Die neue Leitung kann naturlich auch zur Ubertragung 
von mehr Informationen verwendet werden. Sende- und 
Empfangsgerat miissen dann allerdings in der Lage sein, 
zwei Leitungen (XON/XOFF und die normale Datenleitung) 
gleichzeitig zu verwalten. Mit dieser zusatzlichen Leitung 
wird auch der sogenannte Vollduplex-Betrieb moglich. Voll- 
duplex heiBt, daB beide Gerate gleichzeitig senden Oder 
empfangen konnen. Im Gegensatz zum Halbduplex- 
Betrieb, bei dem zur gleichen Zeit nur in eine Richtung 
iibertragen werden kann. 

— Software-Protokoll mit ETX/ACK 

Auch bei dieser Losung kommt man nicht ohne eine zu- 
satzliche Leitung aus. Sie heiBt DTR (Data Terminal Ready). 
Ist zum Beispiel der angeschlossene Drucker bereit, Daten 
anzunehmen, aktiviert er die DTR-Leitung und sendet $06 
(ACKnowledge). Der Computer schickt nun eine Reihe Da- 
tenworte iiber die Sendeleitung und schlieBt die Ubertra- 
gung mit $03 zwischendurch immer wieder ab. Den nach- 
sten Datenblock sendet er erst dann, wenn der Drucker 
sein ACK gegeben hat. Damit die Ubertragung nicht in ei- 
nem Chaos entartet, muB der Sende-Computer iiber das 
Puffervermogen des Empfangers informiert sein, urn recht- 
zeitig ein ETX (End Of Text) senden zu konnen. Nur so kann 
ein Uberlauf des Puffers und der damit einhergehende Da- 
tenverlust verhindert werden. 

Hat das Empfangsgerat ein ETX festgestellt, werden die 
empfangenen Daten bearbeitet. Kann der Empfanger neue 



DIN 66020, CCITT V.24 (Comite Consultatif International 
Telegraphique et Telephonique) und EIA RS232C (Electro- 
nic Industries Association). Die Bedeutung der Signale ist 
bei alien Normen gleich, nur die Signalpegel differieren. 
Die deutsche Norm verlangt, im Gegensatz zu den ande- 
ren, negative Logik. 

Zum AnschluB einer RS232/V.24-Schnittstelle ist es in 
den meisten Fallen nicht notig, alle Leitungen zu benutzen. 
So werden nur wenige unter Ihnen eine synchrone Daten- 
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8 Received line signal (DCD) 


M5 


109 


CF 


H-PB4 (H-PB4) 


9 Tostzwecke 










10 Testzwecke 










11 nicht belegt 










12 Secondary carrier detector 


HM5 


122 


SCF 





13 Secondary clear to send 


HM2 


121 


SCB 




14 Secondary transmitted Data 


HD1 


118 


SBA 


_ 


15 Transmit clock (TC) Irom modem 


T2 


114 


DB 


_ 


16 Secondary received data 


HD2 




-SBB 


_ 


17 Receiver signal clock (RC) 


T4 


115 


DO 


~ 


18 nicht belegt 








19 Secondary request to Bend 


HS2 


120 


SCA 


_ 


20 Data terminal ready (DTR) 


Sl.x 


108.x 


CD 


E-P82 (E-PB2) out 


Terminal ist zur Datenubertragung 










bereit. 










21 Signal quality detector 


M6 


110 


CQ 


_ 


22 Ring Indicator (Rl) 


M3 


128 


CE 


F-PB3 (F-P83) 


23 Data signal rate det. terminal 


S4 


111 


CH 


_ 


modem 


M4 


112 


CI 





24 Transmit clock to modem 


T1 


113 


DA 


_ 


25 nicht belegt 











Tabelle 1. Belegung der RS232-Leitungen. 
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(ibertragung mit zusatzlichem Clock-Signal realisieren, 
wie beim seriellen lEC-Bus des C 64. Normalerweise rei- 
chen die folgenden Leitungen aus: 

1. eine Masseleitung 

2. je Richtung eine Datenleitung 

3. je Richtung eine Busyleitung 

Die Punkte 1 und 2 durften klar sein. Punkt 3 kann auf 
vielfaltige Art realisiert werden. In aller Regel werden die 



identisch. Aktiviert der Computer S1, »spitzt das MeBgerat 

die Ohren« und das MeBprogramm verzweigt in die Daten- 

empfangsroutine. 

Nicht auf die Norm verlassen 

Die Hersteller von V.24-Schnittstellen scheinen sich 
nicht immer vollig einig zu sein, wie die Belegung und Be- 
deutung der einzelnen Stecker-Pins ist. So sind diesem 
Beitrag hauptsachlich Praxiserfahrungen zugrunde ge- 



Bit (dez. Wert) 

Bil 7 (128) 
Bit 6 ( 64) 
Bil S( 32) 
Bil 4 ( 16) 



Bi!3( 8) 

Bit 2 ( 4) 

Bit 1 ( 2) 

BitO( 1) 



Bedeutung 

1.) Kontrollreglster bzw. Steuer register (S293) 
» 1 Stop-Bit 1=2 Slop-Bits 

- j 8 Daten-Bits , j 7 Daten-Bits 

nicht benutzt 



:) 



6 Daten-Bils 



!] 



5 Daten-Bits 



Gbertragungsraten (Bit/sec) 
0~\ 0" 

(nicht 
limpl. 



igsraten (bit/sec) 

o ( so ? j 7S i j 11 ° o I 1345 o { 1S0 ] ( 30 ° ! | m o j 1200 o j 1800 * | 



2400 



Bit 7 (128) 

Bit6( 64) 

Bit5( 32) 

Bil 4 < 16) 

Bit3( 8) 

Bil 2 ( 4) 

Bil 1 ( 2) 

BH0( 1) 



2.) Kommandoreglster bzw. Befehlsregisler (S 294) 
11 keine Paritals- ") " 

10 1 uberprulung (alio } " n 9 e,aae 
OvierKomb.) ' * H 



nisregisier (i *»■*; 
. / ungerade j 
1J Pa '" SI i j 



gerade 
Paritat 



1 Bil 8:1 
Oohna 

1 Pantal 



1 Bil 8:0 
1 ohne 
1 Pariiat 



1 Halbduplex 



Vbllduplex 

nicht benutzt 
nichl benutzt 
nicht benutzt 



Freilaulmodus (3-Draht) 



1 Hardwarehandshake (X-Drahi) 



Bit dez. Bedeutung 





1 Paritafsfehler 


1 


2 Rahmenfehler 


2 


4 Empfangerpuffer voll 


3 


8 unbenutzt 


4 


16 CTS-Signal fehlt 


5 


32 unbenutzt 


6 


64 DSR-Signal fehlt 


7 


128 Break-Signal 




empfangen 



Tabeile 4. Bedeutung 
der Statusvariablen ST 
beziehungsweise der 
Speicherstelle $0297 

■4 Tabeile 2. Die Funktion des 
Kontroll- und Kommando- 
registers auf einen Blick 



Kontakte S2 (RTS) und M2 (CTS) benutzt (siehe auch Tabei- 
le 1). Die Erklarung erfolgt am besten an einem Beispiel: 
Der Druckerzeigt seine Empfangsbereitschaft an, indemer 
M2 aktiviert. Dieses Signal fragt der Computer standig am 
AnschluB S2 ab. Ist M2 inaktiv, stoppt der Computer die Da- 
teniibertragung. Nehmen wir an, anstelle des Druckers sei 
ein MeBgerat angeschlossen, das nur ab und zu Anweisun- 
gen vom Computer bekommt und ansonsten sich urn inter- 
ne Aufgaben kummert. Dann ware es wenig vorteilhaft, 
wenn das MeBgerat standig Befehle vom Computer erwar- 
tet; fur die eigentlichen MeBaufgaben bliebe zu wenig Zeit. 
In diesem Fall gestattet das einfache Abfragen des Kontak- 
tes S1 (per Interrupttechnik) eine fast ungestorte Bearbei- 
tung eines Programmes. S1 ist mit RTS (Request To Send) 



RS232-Schnlttstelle 


167 


$A7 


Zwischenspeicher fur Eingabe Ober die 
RS232-Schnittstelle 


168 


SA8 


Bitzahler fur RS232-Eingabe 


169 


$A9 


RS232-Flagge fur Start-Bit-PrOfung 


170 


$AA 


RS232-Eingabespeicher 


171 


SAB 


Parityprufung 


181 


SB5 


RS232-Anzeige fiir nachsles Bit 


182 


SB6 


Ausgabe-Zwischenspeicher fur RS232 


189 


$BD 


Zwischenspeicher fur RS232-Parity-Pruf ung 


247-248 


SF7-SF8 


Zeiger auf den Anfang des 
RS232-Eingabepuffers 


249-250 


SF9-SFA 


Zeiger auf den Anfang des 
RS232-Ausgabepu ffers 


659 


$293 


RS232-Steuerregister (Kontrollregisler) 


660 


$294 


RS232-Befehlsregister (Kommandoreglster) 


661-662 


S295-S296 


RS232 frei wShlbare Ubertragungsrate 


663 


$297 


RS232-Statusregister 


664 


$298 


RS232-Anzahl der zu ubertragenden Bits 


665-666 


$299-$29/ 


Zeit, die bei RS232 zum Obertragen eines 
Bits gebraucht wird (Ubertragungsrate) 


667 


S29B 


Index auf das Ende des RS232-Eingabepuffers 


668 


$29C 


Index auf den Anfang des 
RS232-Eingabepuffers 


669 


$29D 


Index auf den Anfang des 
RS232-Ausgabepuffers 


670 


$29E 


Index auf das Ende des RS232-Ausgabepuffers 



Tabeile 3. Die Adressen, welche fiir die Dateniibertragung 
von der RS232-Schnittstelle benotigt werden 
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legt. Besser als Normblatter ist die Uberpriifung der 
Schnittstelle mit einem Speicheroszilloskop Oder einem 
Digital-Analyzer. Zumal die Steuerleitungen ab und zu mit 
Fantasienamen belegt Oder nicht eindeutig als Sende- Oder 
Empfangsleitung gekennzeichnet werden. Zum storungs- 
freien Betrieb einer Schnittstelle sollten nichtbenutzte Lei- 
tungen auf ein testes Potential gelegt werden. Man verhin- 
dert dadurch, daB die Ubertragung bei einer eventuellen 
Abfrage einer solchen Leitung, mit undefiniertem logi- 
schen Zustand, nicht unterbrochen wird. 

Beim C 64 kann diese Schnittstelle mit Geratenummer 2 
angesteuert werden. Zur Bestimmung der Kontrollparame- 
ter sind zwei Register vorhanden, die auch von Basic aus 
erreicht werden konnen. 
Einstellparameter 

Mit Tabeile 2 konnen Sie die Werte bestimmen, die Sie in 
Kommando- und Kontrollregister schreiben miissen, urn 
ein bestimmtes Ubertragungsprotokoll zu bewerkstelligen. 
Eine »1« bedeutet ein gesetztes Bit. 

Das Einschalten der RS232-Schnittstelle erfolgt beim C 
64 mit OPEN filenr.,2,0,CHR$(Kontrollreg.)+CHR$(Kom- 
mandoreg.). 
Beispiel: OPEN20,2,0,CHR$(64+4+2)+CHR$(32+1). 

Mit dieser Anweisung wird fur Filenummer 20 vereinbart: 
1 Stop-Bit, 6 Datenbit, 300 bit/s, ungerade Paritat, vblldu- 
plex und Hardwareprotokoll. 

Wird eine Filenummer groBer als 128 verwendet, sendet 
der Computer nach jedem Carriage Return ($0D) ein Line- 
feed ($0A). Sollten diese Einstellmoglichkeiten nicht aus- 
reichen, konnen Sie direkt in die RS232-Routine eingrei- 
fen. In der Tabeile 3 finden Sie eine Ubersicht der Speicher- 
stellen, die von der RS232 benutzt werden. 
Auf der Seite 71 finden Sie eine softwaremaBige RS232- 
Steuerung, mit der bis zu 4800 bit/s ubertragen werden 
konnen. 
Fehlerabfrage 

Das Betriebssystem des C 64 verfugt uber eine Fehlerbe- 
handlung der RS232-Schnittstelle. Der Status dazu kann 
entweder durch die Variable ST abgefragt werden oder 
direkt mit Speicherzelle $0297. Die Bedeutung der einzel- 
nen Bits von ST finden Sie in Tabeile 4.(Jens MaBmann/kn) 
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Geschwindigkeit in Bask 



1st 740914799 eine Primzahl? Urn dieses Problem 
zu losen, ehe Sie in Rente gegangen sind, 
benotigen Sie ein ausgekliigeltes Programm . Wie 
ein solches Programm schrittweise verfeinert 
und beschleunigt wird, wollen wir Ihnen zeigen, 
denn auf das Prinzip kommt es an. 



N 



aturlich kann man so etwas auch in Maschinenspra- 
che losen, sogar 100- bis 1000mal schneller als in Ba- 
I sic. Allerdings kann die Umsetzung vieler Probleme 
in Maschinensprache auch 100mal so aufwendig sein, ge- 
rade wenn mit Variablen oder reellen Zahlen gearbeitet 
werden muB. Einfacher und oft auch ausreichend schnell 
ist die Optimierung des Basic-Programms. 

Gleich der erste Tip: 

Nutzen Sie die maximale Lange einer Basic-Zeile und 
versuchen Sie, FOFLNEXT-Schleifen in einer Basic-Zeile 
unterzubringen. 

Als Beweis dient das folgende kleine Basic-Programm. 
100 FOR X = 1 to 10000 : Y = X + X : NEXT 

Dieses Programm benotigt 22 Sekunden auf dem C128 
beziehungsweise 34 auf dem C 64 (die Art der Zeitmessung 
wird spater noch besprochen). Teilen Sie dieses Programm 
in drei Zeilen auf, 
100 FOR X = 1 to 10000 
110 Y = X + X 
120 NEXT 

so steigt die Zeit auf 23 beziehungsweise 35 Sekunden. Zur 
Erklarung: Der Basic-Interpreter kopiert beim Abarbeiten 
eines Basic-Programms eine Basic-Zeile in einen Puffer, in- 
terpretiert den Inhalt und fuhrt die Befehle aus. Danach 
wird die nachste Zeile kopiert und so weiter. Sie konnen sich 
denken, warum das erste Beispiel schneller ist. Der Inter- 
preter muBte die Zeile nur ein einziges Mai kopieren. Beim 
zweiten Beispiel wird erst Zeile 100 kopiert und ausgefuhrt, 
dann Zeile 110 und zum SchluB die Zeile 120. Der Befehl 
NEXT in Zeile 120 bewirkt einen Riicksprung zur Zeile 100, 
die dann erst wieder kopiert wird. Das heiBt also, jede ein- 



zelne Zeile des zweiten Beispiels muB 10000mal in den 
Puffer kopiert werden, wahrend der Einzeiler als Beispiel 1 
nur ein einziges Mai zu kopieren ist. 

Sicher sagen Sie, daB man noch mehr Zeit einsparen 
kann, wenn die Leerzeichen weggelassen werden, denn 
auch das Kopieren von Leerzeichen kostet Zeit. Das ist 
auch korrekt, aber der Erfolg laBt sich allerhochstens bei 
Beispiel 2 feststellen, da diese Zeilen ja mehrmals kopiert 
werden. Die Leerzeichen sollten hier auch nur zur besse- 
ren Lesbarkeit beitragen. 

Wir wollen uns hier aber nicht mit solchen Spitzfindigkei- 
ten beschaftigen, sondern es sollen verschiedene L6- 
sungswege zu bestimmten Problemen entwickelt und 
optimiert werden. 

Naturlich wird man damit nicht annahernd an die Ge- 
schwindigkeit der Maschinensprache heranreichen kon- 
nen . Aber die Zeiteinsparungen liegen weit iiber denen des 
obigen Beispiels. 

Die Problemstellung konnten Sie aufgrund des Vor- 
spanns schon erahnen. Es soil hier um die Berechnung von 
Primzahlen gehen. Fur diejenigen, deren Schulzeit schon 
etwas weiter zuriick liegt, hier eine Erlauterung aus dem 
Lexikon. 

Primzahl, in der Mathematik eine natiirliche Zahl, die kei- 
ne andere naturliche Zahl als Teiler hat, auBer 1 und sich 
selbst. Die ersten Primzahlen sind 2, 3, 5, 7, 11, 13, 17, 19, 
23, 29, 31, 37, 41, ... . Jede naturliche Zahl ist entweder prim 
Oder kann als Produkt von Primzahlen dargestellt werden, 
zum Beispiel 780 = 2 * 2 * 3 * 5 * 13. Es gibt unendlich viele 
Primzahlen, obwohl sie mit wachsendem Betrag immer 
sparlicher werden. 

Da Sie jetzt wissen, worum es gehen soil, hier die erste 
Problemstellung: 

Schreiben Sie ein Programm, das alle Primzahlen, be- 
ginnend mit 2, bis zu einer eingegebenen Grenze berech- 
net. 

Die Realisierung dieses Problems diirfte eigentlich nicht 
schwer sein. Bevor wir uns aber der Losung widmen, hier 
noch einige Hinweise zur Zeitmessung: Alle Listings sind 
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auf einem C128, aber in Basic V2.0 erstellt worden. Das 
heiBt, daB alle Programme auch auf dem C64 lauffahig 
sind. Die Zeitmessung erfolgt mit der internen Uhr Tl$. Fur 
den Vergleich unserer Ldsungen untereinander reicht dies 
vollig aus. Die Uhr wird mitTI$= "000000" gleich nach der 
Eingabe der Obergrenze geloscht. Die Ausgabe der Zeit er- 
folgt nach dem letzten Basic-Befehl mit PRINT Tl$. Die an- 
gegebene Zeit bezieht sich immer auf den C128 im FAST- 
Modus, wahrend die Zeit in Klammern fiir den C64 gilt. 

So, nun kommen wir zu unserem Programm zuriick. Viel- 
leicht haben Sie auch schon eine Losung gefunden, die 
dem Programm »Prim-Rechner 1a« (Listing 1) ziemlich na- 
he kommt. 
Hier nun die Programmbeschreibung: 

100: Einlesen der Obergrenze und Ausgabe der 2 als er- 
ste Primzahl. 

110: Zwei Zahlschleifen mit X und Y. Die X-Schleife zahlt 
die Zahlen, die getestet werden sollen, wahrend die Y- 
Schleife den Dividend, der von 2 bis X-1 lauft, enthalt. Somit 
wird X durch alle moglichen Toiler dividiert. 

120: Treten bei der Division keine Nachkommastellen auf, 
ist die betreffende Zahl X durch Y teilbar und somit keine 
Primzahl. Deswegen wird nach 140 verzweigt. 

130: Die Y-Schleife wird erhoht. Ist sie ganz durchgelau- 
fen, das heiBt X war nie durch Y teilbar, so handelt es sich 
urn eine Primzahl und die Zahl wird ausgegeben. 

140: Erhohung der X-Schleife fiir die nachste zu prufen- 
de Zahl. 

Hinweis: Die Zahl 2 wird deshalb vorher ausgegeben, 
weil die zweite Schleife erst mit dem Wert 2 beginnt. Folg- 
lich ware die 2 nicht als Primzahl erkannt worden. 

Das Programm benotigt die folgenden Bearbeitungszei- 
ten (siehe auch Tabelle.1). 

Primzahlen bis: 50 100 200 

ZeitinSek.: 2 8 33 

(5) (16) (63) 

Wollten Sie dieses Programm bis 740914799 rechnen 
lassen, so wurden Sie das Ergebnis auf dieser Welt nicht 
mehr erfahren; bis dahin benotigt der C 128 3,7 * 10 44 Se- 
kunden Oder 1,2 * 10 37 Jahre. Zum Vergleich: die Erde exi- 



10 REM **••••***•••*••••**•*•••*•*•••*• <060> 

20 REM » PRIM - RECHNER 1A » <012> 

30 REM * FUER C64 Sc CI 28 * <017> 

70 REM »»****»***»*»»#**»«»*»»»»*****»» <120> 
1 00 I NPUT " (CLP. , 2D0WN , 2SPACE } ABEP.GRENZE " ; OB 

: PRINT 2, <242> 

110 FOR X=3 TO OB: FOR Y=2 TO X-1 <240> 

120 IF X/Y=INT(X/Y>THEN 140 <103> 

130 NEXT Y: PRINT X, <08B> 

140 NEXT X <088> 

Listing 1. »Prim-Rechner 1a«, unser erstes Primzahlen- 
programm. 



10 REM »»*»»»*»******»*»»»**»**»»»»»»*» "060. 

20 REM » PRIM - RECHNER IB » <014> 

30 REM » FUER C&4 & CI 28 * <017> 

70 REM »»»»»»»»»»»»****»»#»»*»********* <120> 
100 INPUT" {CLR,2D0WN,2SPACE>flBERGRENZE";0B 

: PRINT 2, <242> 

110 FOR X=3 TO OB: FOR Y=2 TO X/2 <244> 

120 IF X/Y=INT(X/Y)THEN 140 <103> 

130 NEXT Y: PRINT X, <0B8> 

140 NEXT X <088> 



Listing 2. »Prim-Rechner lb«. dlese Variante von 
Listing 1 lauft anstelle von x-1 nur noch bis x/2 



stiert erst seit zirka 5 * 10 9 Jahren. Sie sehen, das Pro- 
gramm ist zu langsam, und es soil nun unsere Aufgabe 
sein, das Programm Prim-Rechner 1a so zu verandern, daB 
sich die Berechnungszeiten drastisch verringern. 

Wir mussen herausfinden, wo Zeit zu sparen ist. Dazu 
spielen wir das Programm einmal mit zwei verschiedenen 
X-Werten durch. 



Zeitentabelle 1 


«ng»g«b«n 1 


n S.kund.n (ur C12B bZM. C64 


PRQ. 


BIS 


BIS 


BIS 


BIS 


BIS 


BIS 


BIS 


BIS 


BIS 


GRENZE 


NATE 


50 


100 


200 


S00 


1000 


2000 


S000 


10000 


4E03 




PRlft 


z 
s 


B 
It 


33 

63 
















PR1B 


1 

3 


5 
9 


18 
34 


87 
163 














PB1C 


1 

2 


2 
3 


7 
13 


21 
40 


49 
93 












PR1D 


1 


2 


5 


14 


33 


76 












2 


4 


9 


28 


63 


147 










PR1E 


1 


2 


4 


14 


31 


72 












2 


4 


9 


26 


60 


»37 











PR - Prim - Rachnvr- 



Gesetzt den Fall, X betragt 21 beim Erreichen der Y- 
Schleife. Durch 2 ist 21 nicht teilbar, deshalb wird Y auf 3 
erhoht. Da 21 durch 3 teilbar ist, wird in Zeile 120 aus der 
Schleife herausgesprungen und die nachste Zahl (in die- 
sem Fall 22) untersucht. Fiir die Ermittlung von 21 als Nicht- 
Primzahl wurden nur zwei Rechnungen benotigt. Spielen 
wir dies Programm einmal mit dem Wert 23 durch. Die Y- 
Schleife lauft von 2 bis X-1 (=22). Wenn man die Rechnung 
X/Y mit dem Taschenrechner nachvollzieht, stellt man fest, 
daB ab Y=12 das Ergebnis kleiner als 2 ist. Das heiBt, daB 
eine Zahl nur durch Zahlen, die kleiner als die Halfte der 
Zahl sind, restlos teilbar ist. Dies ist naturlich keine neue 
mathematische Erkenntnis, aber fiir uns ist dies sehr inter- 
essant, da wir nun unsere Y-Schleife nur bis zur Halfte von 
X laufen lassen mussen. 

Erste Verbesserungen 

Das geanderte Programm »Prim-Rechner 1b« finden Sie 
unter Listing 2. 

Das Programm ist identisch mit dem Prim-Rechner 1a bis 
auf Zeile 110. Die Y-Schleife lauft statt bis X-1 jetzt nur noch 
bis X/2. 

Welche Vorteile uns dies gebracht hat, konnen Sie aus 
der Zeitentabelle 1 entnehmen. Es isterstaunlich, aber die 
Zeiten haben sich nahezu halbiert. 

Wir wollen uns aber damit noch nicht zufriedengeben. 
Wenn Sie sich daran erinnern, wie lange das erste Pro- 
gramm benotigt, urn die Primzahlen bis 740914799 zu be- 
rechnen, so hilft uns unser zweites Programm auch noch 
nicht viel weiter. 

Deshalb werden wir uns gleich an eine erneute Verbes- 
serung machen. Wie Sie vielleicht beim obigen Durchspie- 
len des Programms mit den Werten 21 und 23 bemerkt ha- 
ben, wurde die 22 diskret ubergangen. Der Grund dafur 
wird Ihnen sicher auch schon klar sein: Alle geraden Zah- 
len sind keine Primzahlen, da sie ja durch 2 teilbar sind. Al- 
so konnen wir an unsere X-Schleife ein STEP2 anhangen, 
damit alle geraden Zahlen ubergangen werden. Diese Ein- 
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sparung bringt aber keine groBe Zeitersparnis, weil die ge- 
raden Zahlen in der Y-Schleife sowieso als erste erkannt 
worden waren. Deshalb machen wir uns weitere Gedan- 
ken. Dazu mussen wir einen kleinen Exkurs in die Mathe- 
matik machen. 

Wenn Sie eine Nicht-Primzahl in zwei Faktoren zerlegen, 
so liegt immer ein Faktor iiber der Wurzel der Nicht- 
Primzahl und einer darunter. Bei Quadratzahlen liegen bei- 
de Faktoren natiirlich auf der Wurzel. 

Zerlegt man die Zahl in mehrere Faktoren, kann es sein, 
daB alle Faktoren kleiner sind als die Wurzel. Aber es wird 
Ihnen nie gelingen, eine Zahl sozu zerlegen, daB kein einzi- 
ger Faktor kleiner ist als die Wurzel. Dieses wollen wir uns 
nun zunutze machen. Auf eine Primzahl bezogen heiBt das: 
Hat eine Zahl keinen Teiler, der kleiner Oder gleich der Wur- 
zel ist, so hat die Zahl gar keinen Teiler und ist somit eine 
Primzahl. Die SchluBfolgerung fur unser Programm ist, daB 
wir die Y-Schleife nicht mehr bis X/2 laufen lassen mussen, 
sondern nur noch bis zur Wurzel von X. 

Das neue Programm »Prim-Rechner 1c« konnen Sie Li- 
sting 3 entnehmen. 

Der Unterschied zwischen Prim-Rechner 1b und 1c be- 
steht lediglich in Zeile 110. An die X-Schleife wurde das 
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•ngagaban 


n Sstunden fUr C12B blw. C64 








PRE. 


BIS 


BIS 


BIS 


BIS 


BIS 


BIS 


BIS 


BIS 


BIS 


GRENZE 


NAME 


sa 


100 


2B0 


sea 


ibbb 


2BBB 


sen 


1BBBB 


4EB5 




PR2A 




a 




2 


3 




30 


64 


— 


32000 






i 




3 


IB 




57 


119 





19BBB 


PR2B 





i 




2 
4 


5 
IB 




3B 

55 


&2 





12300 
7500 


PR2C 




4 




23 


49 










400000 


PR2D 




8 




43 


94 











24000B 



PR - Prim - R«chn»r 



IB REM **»»»*»»*»#*«»»»»*»»*»»»»*****»* <060> 

20 REM » PRIM - RECHNER 1C * <016> 

30 REM » FUER C64 !< C128 » <017> 

70 REM *»»**»»**»**»*»»**»»#»»*»*»»*»#* <120> 
100 INPUT" {CLR,2D0WN,2SPACE>fiBERGRENZE";0B 

: PRINT 2, <242> 

110 FOR X=3 TO OB STEP 2: FOR Y=2 TO SOR(X) <218> 

120 IF X/Y=INT(X/Y)THEN 140 <103> 

130 NEXT YrPRINT X, <0B8> 

140 NEXT X <088> 



Listing 3. "Prim-Rechner 1c«, eine Berechnungsreduzie- 
rung in der Y-Schleife ist sogar bis Wurzel x erreichbar 



10 REM »»*»»»»»»»»»**»#»»**»*»«»***»*»» <060> 

20 REM » PRIM - RECHNER ID * <018> 

30 REM ♦ FUER C64 & C12B * <017> 

70 REM *»»*»#»»»»»#**»***»***»*»»»*»»** <120> 
1 00 I NPUT " £CLR , 2D0WN , 2SPACE ) flBERGRENZE " ; OB 

:PRINT 2,3, <008> 
110 FOR X=3 TO OB STEP 2: FOR Y=3 TO SQR(X) 

STEP 2 <027> 

120 IF X/Y=INT(X/Y)THEN 140 <103> 

130 NEXT Y:PRINT X, <088> 

140 NEXT X <088> 

Listing 4. Alle geraden Zahlen werden beim "Prim- 
Rechner 1d« nicht mehr gepriift 



STEP2 angefugt, damit alle geraden Zahlen iibersprungen 
werden. Die Y-Schleife lauft statt bis X/2 nur noch bis 
SQR(X). 

Wenn Sie noch einmal einen Blick auf die Zeitentabelle 
1 werfen, werden Sie in der Spalte »bis 500« eine Zeitredu- 
zierung auf nur noch 1 /i feststellen. 

Aber wir wollen uns damit immer noch nicht zufriedenge- 
ben, denn an der Y-Schleife lassen sich noch weitere Ver- 
besserungen vornehmen. Der Startwert dieser Schleife ist 
immer noch 2. Wir haben aber in der X-Schleife schon alle 
geraden Zahlen ausgeschlossen, und ungerade Zahlen 
sind sowieso nicht durch 2 teilbar; so konnen wir die Y- 
Schleife gleich mit 3 beginnen lassen. Allerdings tritt dabei 
eine unerwiinschte Nebenwirkung auf, namlich die 3 wird 
nicht mehr als Primzahl erkannt und wir mussen diese wie 
die 2 schon vorweg ausgeben. 

Da, wie eben schon gesagt, nur ungerade Zahlen in die 
Y-Schleife gelangen, brauchen wir ja auch nicht mehr zu 
prufen, ob diese durch gerade Zahlen teilbar sind, deshalb 
setzen wir auch hinter die Y-Schleife ein STEP2. 

Unser Ergebnis, den Prim-Rechner 1d, sehen Sie in Li- 
sting 4. 

Gegeniiber dem »Prim-Rechner 1c« wurden folgende 
Veranderungen vorgenommen: 

100: Die Primzahl 3 wird schon vorweg wie die 2 ausge- 
geben. 

110: Die Y-Schleife beginnt statt mit 2 jetzt mit 3. AuBer- 
dem wurde ein STEP2 an die Y-Schleife angefugt, damit 
die geraden Zahlen iibergangen werden. 

Die Zeiten erfahren Sie wieder aus der Tabelle 1. 

Sie werden sich jetzt fragen, was denn jetzt noch zu ver- 
bessern sei. Nun, man konnte zum Beispiel die X-Schleife 
erst mit 5 beginnen lassen. Das ist aber alles, was dieses 
Programm noch hergibt. Man kann auch eine andere Ver- 
anderung vornehmen, die aber nicht so wirkungsvoll ist. In 
Zeile 120 wird zweimal die Rechnung X/Y ausgefuhrt. 
Wenn man diese Rechnung nur einmal ausfiihrt und das 
Ergebnis einer Variablen zuweist, spart dies etwas Zeit, 
was aber nicht der Rede wert ist, wie Sie in unserer Zeiten- 
tabelle erkennen konnen. 

Das entsprechende Programm ist der »Prim-Rechner 
1e« (Listing 5). 

Gegeniiber dem Prim-Rechner 1d wird in Zeile 120 der 
Variablen Z das Ergebnis X/Y zugeordnet. In der IF- 
Bedingung wurde das X/Y durch Z ersetzt. 

Die Prim-Rechner der Klasse 1 wurden soweit verbes- 
sert, daB sich die Zeiten bis auf ein Achtel der Grundzeit von 
Listing 1 reduziert haben, wenn man die Berechnung bis 
200 zugrunde legt. Wir wollen nun ein anderes Verfahren 
anwenden, mit dem wir noch mehr Zeit sparen werden. 

Zeit contra Speicherplatz 

Haben Sie schon einmal etwas von dem Sieb des Erato- 
sthenes gehort? Es funktioniert folgendermaBen: Es wer- 
den nicht die Primzahlen berechnet, sohdern die Nicht- 
Primzahlen. Folglich sind alle fehlenden Zahlen die von 
uns gesuchten Primzahlen. Marcus Werner hat ein kleines 
Programm nach diesem Prinzip entwickelt, das Sie in der 
64'er 9/86 auf Seite 65 finden. Ob die Behauptung »Die 
schnellste Primzahlenberechnung in Basic« wahr ist, wer- 
den wir spater noch sehen. 

Listing 6 (Prim-Rechner 2a) ist ein Programm nach die- 
sem Prinzip. 

Die Programmbeschreibung ist hier ein biBchen langer, 
da das Verfahren nicht ganz so einfach ist: 

Allgemein: Es wird ein Variablenfeld P°/o(x) eingerichtet. 
Dann werden alle moglichen Produkte gebildet, die also 
keine Primzahlen sind. Das Feldelement mit dem Produkt 
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als Index wircl auf 1 gesetzt. Gerade Produkte werden gar 
nicht berechnet und auch nicht auf 1 gesetzt; darauf muB 
naturlich bei der Ausgabe geachtet werden. Am Ende der 
Berechnung der Produkte haben alle Feldelemente, deren 
Index eine Primzahl ist, den Inhalt und konnen mit einer 
IF-Bedingung ausgegeben werden. 

100: Zuerst wird die Grenze eingegeben und der Varia- 
blen »H« zugeordnet. Z ist die Variable, von der dann die 
Vielfachen gebildet werden, das heiBt, zuerst werden alle 
Vielfachen von 3 auf 1 gesetzt, dann von der nachsten Zahl 
und so weiter. Z wird im Verlaufe des Programms verandert. 
T enthalfdle nach oben abgerundete Wurzel von der Ober- 
grenze H. W gibt an, von wieviel Zahlen die Produkte gebil- 
det werden mussen. G erhalt das Quadrat von T, das etwas 
groBer ist als H. G ist also die nachste auf H folgende Qua- 
dratzahl. Das Feld P% wird deshalb auch fur G Elemente 
eingerichtet, da dies einfacher zu handhaben ist. 

110: Hier findet das eigentliche Berechnen der Nicht- 
Primzahlen statt. Wenn Sie aber naher hinsehen, stellen 
Sie fest, daB gar nicht gerechnet wird. Die X-Schleife gibt 
lediglich an, wie oft die innere Y-Schleife durchlaufen wer- 
den soil. Beim ersten Durchlauf der X-Schleife kommen wir 
mit Z=3 in die Y-Schleife, das heiBt, die Y-Schleife beginnt 



Schleife erst mit dem Quadrat von Z beginnt, so lautet die 
Antwort, daB die Elemente darunter schon gesetzt sind. 
Hatte die Y-Schleife im zweiten Fall mit 15 begonnen, so 
ware dies uberflussig gewesen, da die erste Y-Schleife fur 
Z=3 die 15 schon als Nicht-Primzahl gesetzt hat. 

120: Diese Zeile dient ausschlieBlich der Ausgabe der 
Primzahlen. Die 2 wird vorweg ausgegeben. Die weiteren 
Primzahlen werden durch die X-Schleife bestimmt, wobei 
die geraden Indices gleich wieder iibergangen werden. 

In der IF-Bedingung wird gepruft, ob der Inhalt des Feld- 
elements ist, gegebenenfalls erfolgt die Ausgabe auf dem 
Bildschirm. 

130: Das NEXT gehort zur X-Schleife der Ausgabe. Es 
muBte lediglich auf die nachste Zeile gezogen werden, da 
Zeile 120 mit einer IF-Bedingung endet. 

Nach dieserausfiihrlichen Programmbeschreibung hof- 
fe ich, daB Sie alle einen Einblick in dieses fast nicht mehr 
zu verbessernde Programm erhalten haben. 

Aber das Beste an diesem Programm konnen Sie der Zei- 
tentabelle 2 entnehmen. 

Die Bearbeitungsgeschwindigkeit dieses Programms ist 
einfach hervorragend. Dafur hat dieses Programm einen 
groBen Nachteil. Wenn Sie die Primzahlen bis 10000 be- 



ta REM »»»»»»»»»»»*«»»»»»»»»»»»»»*«»»»» <060> 

20 REM « PRIM - RECHNER IE * <020> 

30 REM » FUER C64 U C12B » <01?> 

70 REM »»»»»»»»»*»#*»»*»»»»»»»»**»»*«»* <120> 
1 00 I NPUT " <CLR , 2DQWN , 2SPACE >SBERGRENZE " ; OB 

:PRINT 2,3, <00B> 
110 FOR X=3 TO OB STEP 2: FOR Y=3 TO SQR(X) 

STEP 2 <027> 

120 Z=X/Y:IF Z=INT(Z)THEN 140 <028> 

130 NEXT Y: PRINT X, <0B8> 

140 NEXT X <0BB> 

Listing 5. »Prim-Rechner 1e«, die Berechnung x/y in 
Zeile 120 wird einer Variablen zugewiesen, ein erneuter 
Zeitgewinn 



10 REM »»*»»»»»*#»*»**♦***»*»•**»»*«**» 

20 REM * PRIM - RECHNER 2B » 
30 REM * FUER C64 & CI 28 » 
70 REM *#»**»*»*»»*»»»*»**»*»*♦»#»»»»*» 
100 INPUT" {CLR,2D0WN,2SPACE>fiBERGRENZE";H: 

Z=3: T=INT (SQR (H) +1 ) : W= (T-l ) /2: G=T»T: DI 

M P(G) 
110 FOR X=l TO W:FOR Y=Z*Z TO G STEP Z*2:P 

<Y)=1: NEXT: Z=Z+2: NEXT 
120 PRINT 2,:FOR X=3 TO H STEP 2: IF P(X)=. 

THEN PRINT X, 
130 NEXT 



<0<b0> 
<015> 
<017> 
<120> 



<250> 



<23B> 



<194> 
<140> 



Listing 7. »Prim-Rechner 2b«, in dieser Version des 
Listings 5 ist der Variabientyp (reale Zahl/lnteger-Wert) 
entscheidend 



10 REM *»*»»»«»»*»»»»»»»»»»»»»»»»«***»» 

20 REM » PRIM - RECHNER 2A * 

30 REM » FUER C64 & CI 28 « 

40 REM 

50 REM 

60 REM 

70 REM 

80 REM 

90 REM 

1 00 I NPUT " <CLR , 2DOWN , 2SP ACE > QBERGREN ZE " ; H : 

Z=3: T=INT (SQR (H) +1 ) : W= (T-l ) /2: G=T»T: DI 

M PX(G) 
110 FOR X=l TO W:FOR Y=Z»Z TO G STEP Z»2:P 

X (Y)=l: NEXT: Z=Z+2: NEXT 
120 PRINT 2,:F0R X=3 TO H STEP 2: IF P%(X)= 

.THEN PRINT X, 
130 NEXT 
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<060> 
<013> 
<017> 
<045> 
<237> 
<175> 
<083> 
<028> 
<140> 



<057> 
<221> 



<094> 
<140> 



Listing 6. »Prim-Rechner 2a« arbeitet nach dem Prinzip 
des Eratosthenes 



ie REM 
20 REM 
30 REM 

40 REM 
50 REM 
60 REM 



PRIM - RECHNER 2C 
NUR FUER C12B 



BY! THOMAS HANSCH 

DELMENHORST < 1 986 ) 
70 REM ••»»»»•»»»*•»»»»•• 
B0 : 
9« i 

100 DEF FN AD(Y)=INT< <Y-1> /16> -HOOOO 
HO DEF FN FA(Y)=2t( ( <Y-l > /16-INTI (Y-D/16) !«B) 
120 INPUT "<CLR,2DOWN,2SPACE>£BERGRENZE" I H: Z=3l 

T=INT(SQR(H>+1 >i M«<T-l)/2i G=T«T 
130 FDR X=10000 TO 10OOO+H/16: POKE X,0: NEXT 
140 FOR X=l TO U: FOR Y=Z*Z TO G STEP Z»2i BANK O 

: POKE FN AD<YI ,PEEK(FN AD<YI) OR FN FA(Y>: N 

EXT i Z-Z+2I NEXT 
130 PRINT 2,: FOR X=3 TO H STEP 2: BANK 01 IFIPEE 

K(FN AD(XI) AND FN FA(X))=0 THEN PRINT X, 
160 NEXT 



<A99> 
<AHA> 
<APB> 
<B1C> 
<D9S> 
<BHE> 
<BPF> 
<NAT> 
<NOV> 
<16K> 
<414> 

<QRO> 
<230> 



<UAA> 
<1B0> 



Listing 8. Der Zustand Primzahl/keine Primzahl wird bei 
»Prim-Rechner 2c« in Bits gespeichert. Das Programm 
lauft nur auf dem C128. Bitte Eingabehinweise beach- 
ten 



mit 9 und lauft bis G. Mit dem STEP-Befehl wird Y immer 
urn Z*2 erhoht. Also liefert die Y-Schleife die Werte 9, 15, 
21, 27, 33 und so weiter. Gerade Zahlen werden durch das 
*2 iibergangen. Alle Feldelemente mit dem Index Y werden 
auf 1 gesetzt, danach wird Z urn 2 erhoht, wiederum urn die 
geraden Zahlen zu ubergehen. Also liefert die Y-Schleife 
im zweiten Durchlauf die Werte 25, 35, 45, 55, 65 etc. Die be- 
treffenden Feldelemente werden wie oben schon beschrie- 
ben gesetzt. Falls Sie sich die Frage stellen, warum die Y- 



rechnen lassen wollen, brauchen Sie ein Feld mit 10000 
Elementen. Dajedes Integer-Element 2 Byte benotigt, kon- 
nen Sie sich schon ausrechnen, daB Sie nicht allzu weit mit 
diesem Programm kommen. 

Ein paar Anmerkungen zur Zeitentabelle 2: Da das Pro- 
gramm so schnell ist, hat es sich nicht gelohnt, die Zeiten 
fur die Berechnung der Primzahlen bis 50, 200 und 2000 zu 
ermitteln. In der letzten Spalte ist angegeben, bis zu wel- 
cher Zahl Sie die Primzahlen berechnen lassen konnen. 
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Um nun noch einmal auf die Behauptung vom schnell- 
sten Basic-Programm zur Berechnung von Primzahlen zu- 
ruckzukommen - es muB widersprochen warden. Ersetzt 
man die Integer- Variable P% durch die reelle Variable R so 
kann man noch ein paar Sekunden sparen, denn bevor ei- 
ne Operation mit einer Integer-Zahl ausgefuhrt wird, muB 
sie erst in eine reelle Zahl umgewandelt werden. Soil das 
Ergebnis wieder einer Integer-Variablen zugeordnet wer- 
den, so erfolgt wieder eine Umrechnung. Diese Umrech- 
nungen kann man sich sparen, indem man, wie oben schon 
gesagt, die Integer- Variable durch die reelle Variable er- 
setzt. Das Programm »Prim-Rechner 2b« konnen Sie Li- 
sting 7 entnehmen. 

Es ist im Gegensatz zum Prim-Rechner 2a nur die Varia- 
ble P°/o duch P ersetzt worden. 

Der Haken an dieser Anderung ist eine noch groBere 
Platzverschwendung, denn eine reelle Zahl benotigt 5 Byte 
Speicherplatz im Gegensatz zu den Integer-Zahlen mit 2 
Byte. 

Theoretisch benotigen wir ja gar keine ganze Zahl, um 
den Zustand prim Oder nichtprim zu unterscheiden. 

Dafiir reicht ein einziges Bit aus, und da die geraden Zah- 
len sowieso nicht mehr gesetzt, sondern vom Programm 
ubergangen werden, kann man gleich die Speicherplatze 
dafiir einsparen. 

Das Problem ist bloB die richtige Adressierung des richti- 
gen Bits. Eine derartige Losung konnte folgendermaBen 
aussehen: 

Fur den C128: Prim-Rechner 2c (Listing 8) 

Fur den C64: Prim-Rechner 2d (Listing 9) 

Programmbeschreibung: 

100: Definition einer Funktion AD, die in Abhangigkeit 
von der Zahl die Adresse des betreffenden Byte ermittelt. 

110: Definition einer Funktion FA, die in Abhangigkeit von 
der Zahl den Wert des betreffenden Bits liefert. Ein Bit wird 
mit OR FN FA(x) gesetzt. 

120: entspricht der Zeile 100 vom Prim-Rechner 2a. 

130: Loschen aller benotigten Bits. 

140: entspricht der Zeile 110 vom Prim-Rechner 2a. Aller- 
dings wird das Setzen des Bit durch POKE erledigt. 

150/160: Ausgabe der Primzahlen entsprechend Zeile 
120 des Prim-Rechners 2a. 

Die Versionen fur den C128 und C64 sind unterschied- 
lich, weil dem C 128 durch BANK0 noch zusatzlich der Spei- 
cherbereich angegeben werden muB, auf den sich die 
PEEK'S und POKE'S beziehen. 

Erneute Problematic! lyse 

Durch diese platzsparende Methode konnen wir beim 
C128 die Primzahlen bis etwa 400000, bei C64 bis zirka 
240000 berechnen lassen. Allerdings kostet die Berech- 
nung der Adressen so viel Zeit, daB es nicht sinnvoll ist, das 
Programm so weit laufen zu lassen. Die Zeiten konnen Sie 
in der Zeitentabelle nachschauen. 

Wenn wir alles Bisherige zusammenfassen, haben wir 
einen Prim-Rechner (1e), der Primzahlen bis zu einer Mil- 
liarde berechnen konnte, er ist aber viel zu langsam. Der 
Prim-Rechner 2a, den wir kennengelernt haben, ware 
wahrscheinlich schnell genug, er benotigt aber zuviel Spei- 
cherplatz, so daB wir lediglich Primzahlen bis 32000 (bezie- 
hungsweise 19000) berechnen lassen konnen. Wir wollen 
nun versuchen, die Vorteile beider Programme »unter ei- 
nen Hut« zu bringen. 

Damit wir auf ein wirklich neues Prinzip kommen, 
schauen wir uns die Beschreibung einer Primzahl aus dem 
Lexikon noch einmal genauestens an: 

Primzahl, in der Mathematik eine natiirlicheZahl, die kei- 
ne andere natiirliche Zahl als Toiler hat, auBer 1 und sich 
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PRG. 


BIS 


BI3 
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BIS 
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GRENZE 


NAME 


sa 


iae 
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see 


ieee 


2MM 


seee 


leeee 


4EB3 




PR3 
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13 


23 




IS3 


349 


IB H 


1EB9 
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20 


44 




281 


644 




1EB9 



PR ■ Pria - Rachnar 



H - Stund»n 



10 REM **»»»«**»»*»»»»#»*»•»»*»»**««»»* <060> 

20 REM « PRIM - RECHNER 2D » <019> 

30 REM * NUR FUER C64 ♦ <167> 

70 REM »***»»»»*»***»»***#*»**»»*»»»»*» <120> 

100 DEF FN AD(Y)=INT<(Y-1)/1&)+10000 <165> 

110 DEF FN FA(Y)=2tC < < Y-l ) /16-INT < (Y-D/16 

)>*8) <1&8> 

1 20 I NPUT » <CLR , 2D0WN , 2SPACE >flBERGRENZE " ; H: 

Z=3: T=INT (SQR (H> +1 ) : W= (T-l ) /2: G=T*T <218> 

130 FOR X=10000 TO 10000+H/16,:POKE X,0:NEX 

T <083> 

140 FOR X=l TO W:FOR Y=Z*Z TO G STEP Z»2:P 

OKE FN AD(Y> ,PEEK<FN AD(Y))OR FN FA(Y) 

: NEXT: Z=Z+2: NEXT <135> 

150 PRINT 2,:F0R X=3 TO H STEP 2:IF<PEEK<F 

N AD (X)) AND FN FA(X))=0 THEN PRINT X, <084> 
160 NEXT <170> 

Listing 9. -Prim-Rechner 2d« ist wie Listing 8, jedoch 
fur Basic 2.0 auf dem C64 



10 REM **»»»»»»#**»»»»****»»»*•**»»»»*» <060> 
20 REM * PRIM - RECHNER 3 » <056> 
30 REM * FUER C64 & C12B « <017> 
70 REM »»»»*»*»»»»»»»»*»»»»*»»*»»»*»»»» <120> 
100 DIM PR (4000) <131> 

110 INPUT" £CLR,2D0WN,2SPACE>flBERGRENZE ";0 

B <010> 

120 PR ( 1 ) =2: PR (2) =2: PZ=2: MX=1 : W=4: PRINT, 1 ; 

2, <085> 

130 FOR Z=3 TO OB STEP 2: IF Z>W THEN.MX=MX 

+1:W=PR(MX)*PR(MX) <09B> 

140 FOR ZA=2 TO MX: F=Z/PR (ZA) : IF FOINT(F) 

THEN NEXT ZA:PRINT PZ; Z, : PZ=PZ+1 : IF PZ 

<4000 THEN PR(PZ-1)=Z <232> 

150 NEXT Z <114> 

Listing 10. Zur schnelleren Berechnung groBer Prim- 
zahlen werden werden beim -Prim-Rechner 3« die 
ersten 4000 Primzahlen in einem Array gespeichert 



selbst. Die ersten Primzahlen sind 2, 3, 5, 7, 11, 13, 17, 19, 

23,29,31,37,41 Jede natiirliche Zahl ist entweder prim 

Oder kann als Produkt von Primzahlen dargestellt werden, 
zum Beispiel 780 = 2*2*3*5* 13. 

Es gibt unendlich viele Primzahlen, obwohl sie mit wach- 
sendem absoluten Betrag immer sparlicher werden. 

Bei unserem ersten Programm haben wir sozusagen nur 
vom ersten Satz Gebrauch gemacht, denn wir haben die zu 
untersuchende Zahl einfach durch verschiedene natiirli- 
che Zahlen geteilt. War das Ergebnis ebenfalls eine natiirli- 
che Zahl, so ist die untersuchte Zahl keine Primzahl. Unser 
zweiter Prim-Rechner hat vom zweiten Satz Gebrauch ge- 
macht, indem wir einfach Produkte gebildet haben und 
dann die iibriggebliebenen Zahlen als Primzahlen ausge- 
geben haben. Bei diesem Verfahren kam es aber vor, daB 
bestimmte Zahlen mehrmals als Produkte vorkommen. 

Der zweite Satz der Beschreibung aus dem Lexikon laBt 
sich auch fur Nicht-Primzahlen umformulieren: 

Eine Zahl ist keine Primzahl, wenn sie als Produkt von 
Primzahlen dargestellt werden kann. 

Vielleicht sehen Sie jetzt schon, worauf es hinauslauft: 
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Beim Prim-Rechner 1e haben wir die zu untersuchende 
Zahl durch alle ungeraden Zahlen, mit 3 beginnend, bis zur 
Wurzel der Zahl geteilt. Unter diesen ungeraden Zahlen, 
durch die geteilt wird, sind sicherlich einige Nicht- 
Primzahlen enthalten, wie zum Beispiel 9, 15 und 21 . Da die 
Primzahlen in hoheren Bereichen immer sparlicher wer- 
den, werden die ungeraden Nicht-Primzahlen immer mehr. 
Urn nun das Priifen einer Zahl zu optimieren, muB also 
die zu untersuchende Zahl nur durch Primzahlen geteilt 



10 REM ***»********»»*»»»»****»*»*»»»*» 




<060> 


20 REM * PRIM - ZWILLINB 1 » 




<137> 


30 REM » FUER C64 S. CI 28 * 




<017> 


70 REM »»»»»»»»»*»»*»»*»«»»»*»»*»»*#»»» 




<120> 


100 INPUT" {CLR,2D0WN,2SPACE>SBERGRENZE"; 


OB 




:PRINT,2;3,3;5,5;7,11;13, 




<lb7> 


110 FDR X=17 TO OB STEP 10 




<171> 


120 T=X+2:G0SUB 190: IF FLAG=0 THEN F2=0: 


GO 




TO 140 




<221> 


130 F2=1:T=X:G0SUB 190: IF FLAG=1 THEN PRIN 




T X;X+2, 




<123> 


140 T=X+4:G0SUB 190: IF FLAG=0 THEN 170 




<B52> 


150 IF F2=l THEN PRINT X+2;X+4, 




<192> 


160 T=X+6:GDSUB 190: IF FLAG=1 THEN PRINT 


X 




+4;X+6, 




<171> 


170 NEXT 




<180> 


180 END 




<182> 


190 FOR Y=3 TO SQR(T)STEP 2 




<137> 


200 IF T/Y=INT(T/Y)THEN FLAG=0:GOTO 220 




<115> 


210 NEXT Y:FLAG=1 




<052> 


220 RETURN 




<022> 


Listing 11. »Prim-Zwilling 1«, unser erstes Programm 


zur Berechnung von Primzahlenzwillingen 







werden. Diese Primzahlen mussen standig vorhanden 
sein. Wenn Sie an den Prim-Rechner 2 denken, so haben 
Sie auch schon die richtige Speichermoglichkeit gefunden. 

Sicher werden Sie denken, daB nicht alle Primzahlen bis 
zu 1 Milliarde im Computer gespeichert werden konnen. Da 
haben Sie schon recht, aber wir benotigen ja nur die Prim- 
zahlen bis zur Wurzel von 1 Milliarde, das heiBt bis 31623. 
Da wir unsere Primzahlen aber nicht durch Produktbil- 
dung, sondern durch das Teilverfahren vom Prim-Rechner 
1 bestimmen wollen, werden in einem Feld alle ermittelten 
Primzahlen gespeichert. Das Feld konnten wir vom Typ In- 
teger einrichten, da die Zahl 31623 kleiner als 32767, der 
groBten im C64 und C128 darstellbaren Integer-Zahl, ist. 
Aber wir haben selbst beim C64 genugend Platz, eine reel- 
le Variable einzurichten.Sicherheitshalberkann die Anzahl 
der Elemente auch auf 4000 heraufgesetzt werden, obwohl 
die Zahl 31627 (die nachstfolgende Primzahl auf 31623) erst 
zirka die 3350. Primzahl ist. Der Index eines Feldelements 
gibt zudem noch an, urn die wievielte Primzahl es sich han- 
delt. 

Nach diesen ganzen Voruberlegungen erhalten Sie ein 
entsprechendes Listing, den »Prim-Rechner 3« (Listing 10). 
Hier nun die Programmbeschreibung: 

100: Einrichten des Feldes PR fur 4000 Elemente. 

110: Eingabe der Obergrenze. 

120: Die Zahl 2 wird als erste Primzahl (Index von PR ist 
1) gespeichert. Dem Feldelement PR(2) muB schon ein 
Wert vorgegeben werden, damit es in Zeile 140 nicht zum 
Abbruch kommt. PZ gibt an, die wievielte Primzahl gerade 
berechnet wird. MX ist der maximale Index des Feldele- 
ments, dessen Primzahl die letzte ist, durch die die zu prii- 
fende Zahl geteilt wird. W enthalt die Zahl, bis zu der der 
maximale Index MX nicht erhoht werden muB. Danach folgt 
die Ausgabe der 2 als erste Primzahl. Da wir in diesem Pro- 
gramm einen Zahler PZ haben, der die Primzahlen zahlt, 
wird diese Anzahl bei der Ausgabe mit ausgegeben. 



130: Die Z-Schleife lauft von 3 bis zur Obergrenze in 2er- 
Schritten, damit die geraden Zahlen ubergangen werden. 
Wird Z groBer W, erhoht sich der maximale Index um 1 und 
W wird neu berechnet. 

140: In der ZA-Schleife wird uberpriift, wo es sich um eine 
Primzahl handelt. ZA ist der Index von PR. Er beginnt aber 
erst mit 2, da gerade Zahlen nicht in die ZA-Schleife kom- 
men. Folglich braucht Z durch 2 nicht mehr geteilt zu wer- 
den. ZA lauft bis zum maximalen Index MX durch. 

Es wird jeweils der Quotient F=Z/PR(ZA) gebildet, das 
heiBt, F wird das Ergebnis aus der zu prufenden Zahl geteilt 
durch die Primzahlen zugeordnet. Hat F keine Nachkom- 
mastellen, so wird das Programm in der nachsten Zeile fort- 
gesetzt. Die Zahl Z ist dann keine Primzahl. Hat F bei jeder 
Berechnung Nachkommastellen, so wird die Primzahl mit 
ihrem Index ausgegeben. Der Index PZ wird daraufhin um 
1 erhoht. Solange der Index noch kleiner 4000 ist, wird die 
Primzahl Z in PR gespeichert. 

150: Das NEXT leitet die Prijfung der nachsten Zahl ein. 

Damit wir auch sehen, ob das Programm unseren 
Erfolgserwartungen gerecht wird, finden Sie die entspre- 
chenden Angaben in Zeitentabelle 3. 

Vielleicht sind Sie etwas enttauscht, da die Zeiten fur 100 
und 500 Primzahlen ungefahr mit denen vom Prim- 
Rechner 1e gleich sind. Eine Zeiteinsparung laBt sich aller- 
dings erst ab 1000 erkennen. Der entscheidende Vorteil 
liegt darin, daB die Zeiten nur gering ansteigen. So errech- 
net der Prim-Rechner die Primzahlen bis 400000 in zirka 10 
Stunden. Wiirden Sie dieses Programm einsetzen, um 
740914799 auf eine Primzahl testen zu lassen, so konnen 
wir ja mal eine kleine Hochrechnung anstellen: 

Vermutlich wird das Programm im Durchschnitt 30 Minu- 
ten fur ein 10000er-lntervall benotigen. Das entspricht 
37000 Stunden Oder guten 4 Jahren. Erinnern Sie sich 
noch, wie lange unser Prim-Rechner 1 dafiir benotigte? 

Sicher laBt sich auch unser Prim-Rechner 3 noch etwas 
beschleunigen, indem man vielleicht die ersten Primzah- 
len durch die Produktbildung berechnet. Wenn Sie SpaB 
daran haben, konnen Sie ja vielleicht noch einen Prim- 
Rechner entwickeln, der nur noch 1 Jahr benotigt, um alle 
Primzahlen bis 740914799 zu berechnen. 

Oder vielleicht mochten Sie ja anhand einer neuen Pro- 
blemstellung Ihre eigenen Verbesserungen und eigenen 
Prinzipien entwickeln, deshalb hier eine neue Aufgabe: 

Schreiben Sie ein Programm, das alle Primzahlenzwillin- 
ge berechnet. 

Primzahlenzwillinge sind benachbarte Primzahlen, de- 
ren Differenz2 ist, wie zum Beispiel 3/5, 5/7, 11/13, 17/19 und 
29/31. 

Die Zahl 2 spielt wieder eine Ausnahmerolle, denn das 
Paar 2/3 ist auch ein Primzahlenzwilling. Sie konnten es 
sich sehr einfach machen, wenn Sie den Prim-Rechner 2 
verwenden und bloB die Ausgabe andern. Wenn Ihr Pro- 
gramm die Zwillinge bis zu einer GroBe von 1 Milliarde be- 
rechnen kann, so ware das aber viel besser. 

Es braucht wohl nicht extra erwahnt zu werden, daB das 
Programm so schnell wie moglich arbeiten soil. 

Zu schwierig? Betrachten wir also die Primzahlenzwillin- 
ge etwas genauer. 



Ungleiche Zwillinge 



Der einfachste Weg, einen Primzahlenzwilling zu finden, 
ist, eine Primzahl zu ermitteln und dann zu priifen, ob die 
um 2 groBere Zahl auch eine Primzahl ist. Von daher ist es 
am einfachsten, einen der bis jetzt entwickelten Prim- 
Rechner zu verwenden. Daraus laBt sich folgern, daB die 
Zeit, die das betreffende Programm benotigt, verlangert 
wird, da zu der Ermittlung einer Primzahl noch zusatzlich 
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gepruft werden muB, ob die urn 2 groBere Zahl auch eine 
Primzahl ist. Ein Beispiel fur diese Vorgehensweise wird Ih- 
nen spater vorgestellt. 

Zuerst erhalten Sie ein Programm, das auf den Prim- 
Rechner 1e aufbaut, aber schneller ist. Sie haben richtig 
gelesen, das Programm ist wirklich schneller. Der Grund 
dafiir ist, Sie werden es sich schon denken, ein vollig neues 
Prinzip. Und zwarstellt man test, wenn man beispielsweise 
das 10er-lntervall von 15 bis 25 untersucht, daB'nur die 
Primzahlenpaare mit den Endziffern 7/9, 9/1 und 1/3 mog- 
lich sind. Paare mit der Endziffer 5 sind nicht moglich, da 
die betreffende Zahl ja immer durch 5 teilbar ist. Der Be- 
reich bis zur Zahl 15 bildet hier dann eine Ausnahme, das 
heiBt, die Zwillinge werden »von Hand« ausgegeben. Der 
entscheidende Vorteil ist, daB immer ein 10er-lntervall un- 
tersucht wird. Es werden aber nicht alle vier betreffenden 
Endziffern gepruft, sondern die Prufung beginnt mit der 
Endziffer 9. Ist dies keine Primzahl, braucht die Endziffer 7 
gar nicht mehr gepruft zu werden, da das Paar 7/9 schon 
nicht mehr moglich ist. War die Zahl mit der Endziffer 9 eine 
Primzahl, so muB auch Endziffer 7 gepruft werden. Handelt 
es sich dabei auch urn eine Primzahl, so wird das Paar aus- 
gegeben. Als nachstes wird die Endziffer 1 uberpruft. Ist es 
keine Primzahl, so ist die Untersuchung des Intervalls 
schon beendet. Ist Endziffer 1 eine Primzahl, und war End- 
ziffer 9 eine Primzahl, so wird erst einmal das Paar 9/1 aus- 
gegeben. Ansonsten wird die Endziffer 3 noch gepruft und 
entsprechend das Paar 1/3 ausgegeben oder auch nicht, 
wenn Endziffer 3 keine Primzahl ist. Die Prufung der einzel- 
nen Zahlen erfolgt wie im Prim-Rechner 1e. 

Da Sie jetzt das Verfahren kennen, hier die Programmbe- 
schreibung des etwas langeren Listings 11, dem -Prim- 
Zwilling 1«. 

100: Eingabe der Obergrenze und Ausgabe der Primzah- 
lenzwillinge bis 15. 

110: X-Schleife beginnend mit 17 bis zur Obergrenze in 
10er-Schritten. 

120: T erhalt die Zahl, die auf eine Primzahl gepruft wer- 
den soil, danach erfolgt der Aufruf des Unterprogramms in 
Zeile 190. Die Variable FLAG ist gesetzt, wenn es sich urn 
eine Primzahl handelte. Die Variable F2 ist ein Hilfs-Flag 
und wird geloscht, wenn Endziffer 9 keine Primzahl war. Da- 
nach wird nach 140 gesprungen. 

130: War Endziffer 9 eine Primzahl, so wird F2 auf 1 ge- 
setzt. Danach wird Endziffer 7 gepruft. Ist FLAG gesetzt, so 
wird das Paar 7/9 ausgegeben. 

140: Endziffer 1 wird gepruft. Ist es keine Primzahl, so 
wird gleich nach 170 gesprungen zur Untersuchung des 
nachsten Intervalls. 

150: War die Endziffer 9 eine Primzahl, so wird das Paar 
9/1 ausgegeben. 

160: Danach wird Endziffer 3 gepruft. Ist es auch eine 
Primzahl, so wird auch das Paar 1/3 ausgegeben. 

170: Fortsetzung der X-Schleife. 

180: Ende des Programms. 

190: Beginn des Unterprogramms mit einer Y-Schleife, 
die von 3 bis zur Wurzel der Zahl T in 2er-Schritten lauft. 

200: Treten bei der Division einmal keine Nachkomma- 
stellen auf, so wird FLAG geloscht und es erfolgt ein Sprung 
nach 220. 

210: Ansonsten wird die Y-Schleife fortgesetzt und am 
Ende FLAG gesetzt. 

220: Ende des Unterprogramms; Riicksprung ins Haupt- 
programm. 

Die Ergebnisse konnen Sie der Zeitentabelle 4 entneh- 
men. 

Wenn Sie die Zeiten vom Prim-Zwilling 1 mit dem Prim- 
Rechner 1e vergleichen, sehen Sie, daB bei der Berech- 
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1 
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9 
18 


21 
39 
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27B 






1EB9 
1EB9 
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B 
1 
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13 




36 
69 


75 
143 




32BOB 

19000 



PZ - Prim - Znilllng 

nung bis 1000 ganze 10 (beziehungsweise 21 bei C64) Se- 
kunden eingespart wurden. 

Diesen Prim-Zwilling 1 konnen Sie, wenn Sie die Zeit 
haben, bis zu einer Milliarde rechnen lassen. Falls Sie aber 
die Primzwillinge nur bis 32000 (beziehungsweise 19000) 
benotigen, konnen sie sich viel Arbeit sparen. 

Der Prim-Rechner 2a eignet sich namlich auch hervorra- 
gend fur die Berechnung von Primzahlenzwillingen. Es 
braucht lediglich die Zei le fur die Ausgabe geandert zu wer- 
den, denn es muB gepruft werden, ob die urn 2 groBereZahl 
auch eine Primzahl ist. Wie das im einzelnen aussieht, se- 
hen Sie im »Prim-Zwilling 2« (Listing 12). 

Zur Funktionsweise: Das Programm entspricht dem 
Prim-Rechner 2a, nur Zeile 120 ist verandert. 

120: Zuerst wird der Ausnahme-Zwilling 2/3 ausgegeben. 
Danach beginnt die X-Schleife von 3 bis H in 2er-Schritten 
zum Priifen von Primzahlenzwillingen. Ist das Feldelement 
mit dem Index X und mit dem Index X+2 nicht gesetzt, so 
sind beide Zahlen Primzahlen, folglich handelt es sich urn 
einen Zwilling und er wird ausgegeben. 

Die Zeiten des Prim-Zwillings 2 sind natiirlich langer als 
die des Prim-Rechner 2a, da bei der Ausgabe einige Uber- 
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prufungen mehr gemacht werden mussen. Aber dennoch 
ist er erheblich schneller als Prim-Zwilling 1. 

Die beiden vorgestellten Prim-Zwillinge basieren auf den 
Prim-Rechnern 1 beziehungsweise 2. Sicherlich kann man 
auch einen Prim-Zwilling mit dem Prim-Rechner 3 als 
Grundlage erstellen. Der wiirde allerdings viel langsamer 
werden. Bis zur 4000sten Primzahl ist es noch relativ ein- 
fach, da bis dahin die Primzahlen gespeichert werden und 
man nur die Differenz zur letzten Primzahl iiberpriifen mu8. 
Allerdings wird es schon schwieriger, wenn man iiber die 
4000ste Primzahl hinauskommt, da man dann die letzte 
Primzahl zwischenspeichern miiBte, urn sie mit der nach- 
sten zu vergleichen. Diese ganzen MaBnahmen nehmen 
einfach zuviel Zeit in Anspruch. Wir werden aber sehen, 
wofiir sich der Prim-Rechner 3 besser eignet. 

Damit waren unsere Programme zur Berechnung aller 
Primzahlen abgeschlossen, deshalb erhalten Sie als Zu- 
sammenfassung noch einmal die Zeiten aller bisher ent- 
wickelten Programme auf einen Blick in Zeitentabelle 5 (Zu- 
sammenfassung). 

Prim oder nichtprim? 

Der nachste und letzte Teil dieses Kurses wird sich mit der 
Priifung einzelner Zahlen auf den Zustand prim Oder nicht- 
prim beschaftigen. 

Nachdem wir die Berechnung von alien Primzahlen bis 
zu einer gewissen Obergrenze abgeschlossen haben, wer- 
den wir diesmal einzelne Zahlen auf den Zustand prim oder 
nichtprim testen lassen. 

Fur diese Zwecke lassen sich naturlich auch wieder un- 
sere Prim-Rechner einsetzen. Die Frage ist nur, welche 
Prim-Rechner geeignet sind. Da der Prim-Rechner 2 nur 



10 REM »*»*»»*»»**»*»»*»»»***»*»»»**»#» <060> 

20 REM » PRIM - ZHILLING 2 » <139> 

30 REM » FUER C64 & C128 * <017> 

70 REM »*«»*»»»»*»**»#»»»»*»*#**»*»»»»» <120> 
100 INPUT" <CLR,2D0WN,2SPACE}flBERGRENZE";H: 

Z=3:T=INT(SQR(H)+1):W=(T-1)/2:G=T*T:DI 

M P%(G) <057> 
110 FOR X=l TO W:FOR Y=Z*Z TO G STEP Z»2:P 

%<Y)=1:NEXT:Z=Z+2:NEXT <221 > 
120 PRINT, 2;3,:F0R X=3 TO H STEP 2: IF PS ( X 

)=.AND PX(X+2)=.THEN PRINT X;X+2, <231> 

130 NEXT • <140> 

Listing 12. Fast wie »Prim-Rechner 2a« arbeitet auch 

»Prim-Zwilling 2« 



10 REM »»»*»*»****»»*»*»»*»»»**»»**»»»* 


<060> 


20 REM » PRIM - GENERATOR » 


<223> 


30 REM * FUER C64 S, CI 28 * 


<017> 


70 REM »*»•»*»»*»»»»»*»*■»*»»»*■»»»»**»»»* 


<120> 


100 PRINT" <CLR,2D0WN,2SPACE>aiE PfUMZAHLEN 




-flATEI WIRD ERSTELLT ! " 


<000> 


110 DIM PR (4000) 


<141> 


120 OPEN 2,8,2, "@0:PRIMZAHLEN,S,W" 


<193> 


130 PR(1)=2:PZ=2:W=4:PRINT#2,2 


<253> 


140 FOR Z=3 TO 33500 STEP 2 


<117> 


150 IF Z>=W THEN MX=MX+1 : W=PR (MX) *PR (MX) 


<134> 


160 FOR ZA=1 TO MX-1:F=Z/PR(ZA) : IF FOINTI 




F>THEN NEXT ZA: PRINT#2, Z: PR (PZ> =Z: PZ=P 




Z + l 


<224> 


170 NEXT Z 


<134> 


180 CLOSE 2 


<199> 


Listing 13. Der -Prim-Generator- richtet eine sequen- 


tielle Datei ein, die etwa 4000 Primzahlen enthalt 





bis 32000 (beziehungsweise 19000) verwendbar ist, schei- 
det er schon einmal aus. Der entscheidende Unterschied 
zwischen den zwei verbleibenden Prim-Rechnern ist, daB 
die Zeiten beim Pri m-Rechner 1 starker ansteigen, was wie- 
derum bedeutet, daB die Priifung groBerer Zahlen, relativ 
gesehen, langer dauert als beim Prim-Rechner 3. Von da- 
her werden wir uns fur den Prim-Rechner 3 entscheiden. 

Dabei tritt allerdings wieder ein Problem auf; der auser- 
wahlte Prim-Rechner benotigt etwa die ersten 4000 Prim- 
zahlen, urn iiberhaupt eine Zahl testen zu konnen. Hierfur 
bieten sich wieder zwei Losungsmoglichkeiten an. Erstens 
kann man die betreffenden Primzahlen in DATA-Zeilen im 
Programm unterbringen. Das hat zur Folge, daB das Pro- 
gramm 90 Blocke lang wird. Da die Zahlen nach dem Star- 
ten aus den DATA-Zeilen dann in die Feldvariable uberge- 
ben werden mussen, steigt der C64 aus, da ihm der Spei- 
cherplatz fehlt. Der C 128 spielt hier aber mit, und deshalb 
ist auf der Programmdiskette zu dieser Ausgabe auch der 
entsprechende Pri m-Tester 1 (nur fur den C 128) enthalten. 
Urn aber den Prim-Rechner 3 auch fur den C64 zu nutzen, 
muB mit einem Zusatzprogramm eine Datei eingerichtet 
werden, die die benotigten Primzahlen enthalt. 

Das »Prim-Generator«-Programm finden Sie unter Li- 
sting 13. 

Zum Programmaufbau: 

100: Information fur den Anwender. 

110: Einrichten des Feldes PR, vorsichtshalber auf 4000 
Elemente. 

120: Gffnen der sequentiellen Datei »Primzahlen«. 

130: Die 2 wird als erste Primzahl dem Feld zugeordnet, 
die Hilfsvariablen PZ und W werden gesetzt. Die 2 wird 
auch als erste Primzahl in die Datei geschrieben. 

140: Z-Schleife bis 33500 (weiter werden die Primzahlen 
nicht benotigt). 

150-170: Bekannte Prufroutine vom Prim-Rechner 3. 

180: SchlieBen der Datei. 

Auf Ihrer Diskette mussen fur die Datei mindestens noch 
109 Blocke zur Verfiigung stehen. Selbstverstandlich 
braucht die Datei nur einmal eingerichtet zu werden. Die 
Zeit fur die Einrichtung betragt beim C 128 rund 30 Minuten, 
beim C64 etwa 50 Minuten. 

Alle Vorbereitungen sind abgeschlossen. Wir konnen 
uns nun an das Programmieren des Prim-Tester 2 machen. 

Wenn Sie sich noch einmal die Programmbeschreibung 
vom Prim-Rechner 3 ansehen, finden Sie dort die Variable 
MX, die den Index der Primzahl enthalt, die groBer ist als die 
Wurzel der zu untersuchenden Zahl. Diese Variable wird im 
Programmverlauf i mmer auf den neuesten Stand gebracht. 
Da wir die Primzahlen aber nicht von Anfang an berechnen 
wollen, mussen wir den Index anders berechnen. Da die 
Primzahlen ja in aufsteigender Reihenfolge vorhanden 
sind, ist dies mit Hilfe der »binaren Suchmethode« kein Pro- 
blem und geht zudem noch auBerst schnell. 

Falls Ihnen diese Methode nicht gelaufig sein sollte, hier 
eine kurze Erklarung: Wird ein bestimmtes Element in ei- 
nem sortierten Feld benotigt, so nimmt man das mittlere 
Element und vergleicht, ob es groBer oder kleiner ist. Ist der 
Wert zu groB, wird nur die untere Halfte weiter betrachtet, 
ansonsten wird nur die obere Halfte weiter verwendet. Aus 
der ermittelten Halfte nimmt man wieder das mittlere Ele- 
ment und teilt die Halfte in zwei weitere Halften, aus denen 
man sich wieder die heraussucht, in der der gesuchte Wert 
liegen muB. Verfahrt man weiter auf diese Weise, erhalt 
man zwangslaufig den gesuchten Wert. 

Als weiteren Service soil der Prim-Tester 2 bei Nicht- 
Primzahlen samtliche Primfaktoren ausgeben. Dies laBt 
sich so realisieren, daB wenn eine Zahl teilbar ist, der Teiler 
den ersten Primfaktor darstellt. Der Rest wird als neue zu 
priifende Zahl verwendet. 
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Urn Sie nun nicht langer auf die Folter zu spannen, hier 
nun die ausfiihrliche Programmbeschreibung des »Prim- 
Tester 2« (Listing 14): 

100: Einrichten des Feldes fur 3584 Elemente (3584 ent- 
spricht2hoch11 + 2hoch10 + 2hoch9). Das erste Element 
wird nicht benotigt, aber aus Sicherheitsgriinden mit der er- 
sten Primzahl belegt. 

110: Information fur den Anwender. 

120: Offnen der Primzahlen-Datei. 

130: Einlesen der Primzahlen und SchlieBen der Datei. 

140-150: Information fur den Anwender. 

160: Eingabe der zu priifenden Zahl (EG). 

170: Priifen, ob die Eingabe giiltig ist, ansonsten Wieder- 
holung der Eingabe. 

180: F ist der Exponent fiir die binare Suchmethode. Er 
wird von 11 bis heruntergezahlt. Damit wir hier mit einem 
ganzen Exponent arbeiten konnen, wird angenommen, 
daB das Feld 2hoch12 = 4096 Elemente hat. IN enthalt den 
Index des mittleren Elements sowie X die Wurzel der ge- 
suchten Zahl. 

190: Ist F bei angelangt, ist die binare Suchmethode 
beendet und das Programm wird in Zeile 230 fortgesetzt. 

200: Herabzahlen von F. 

210: Ist der Inhalt des Elements mit dem Index IN zu klein, 
so wird die obere Halfte weiterverwendet, IN wird entspre- 
chend erhoht und es folgt ein Sprung nach 190. 

220: Ist der Inhalt zu groB, so wird IN verringert und es er- 
folgt der Sprung nach 190. 

230: Schleife zum Priifen, ob EG eine Primzahl ist. Lauft 
die Schleife bis zum Ende, so handelt es sich urn eine Prim- 
zahl und es erfolgt ein Sprung nach 260. 

240: Ist FLAG gelbscht, so lauft das Programm fiir die 
Original-Eingabe durch; ist es gesetzt, so ist schon minde- 
stens ein Primfaktor gefunden worden und das Programm 
lauft jetzt mit dem Rest, urn zu priifen, ob er selbst eine 
Primzahl ist oder ob er sich in weitere Primzahlen zerlegen 
laBt. Ist FLAG in diesem Fall 0, so wird ausgegeben, daB EG 
keine Primzahl ist und FLAG wird gesetzt. 

250: Ausgabe eines Primfaktors sowie ein »*« als Multi- 
plikationszeichen. EG wird der Rest der Eingabe, geteilt 
durch den Primfaktor, zugeordnet. Danach folgt der Sprung 
nach 180 zum Prufen des Rests. 

260: Ist FLAG geloscht, so wird ausgegeben, daB EG ei- 
ne Primzahl ist. 

270: Sonst wird einfach die Zahl ausgegeben. 

280-300: Frage an den Anwender, ob er noch eine Zahl 
prufen lassen will. 

310: Ende des Programms. 

Die Zahl 2 stellt auch bei diesem Programm eine Ausnah- 
me dar, deshalb wird sie bei der Eingabe nicht akzeptiert. 
Ein kleines Fehlerchen in diesem Programm ist, daB bei 
2er-Potenzen als letzter Primfaktor die 1 ausgegeben wird. 

Dies ist mathematisch gesehen falsch, soil uns aber 
nicht weiter storen, da ein Faktor 1 die Zahl nicht verandert. 

Mit diesem Programm sind wir eigentlich am Ziel unserer 
Trauma Wenn Sie den Prim-Tester 2 nun starten und dann 
die Zahl 740914799 eintippen, erfahren Sie, ob es sich nun 
urn eine Primzahl handelt oder nicht. Das Ergebnis ist, daB 
obige Zahl aus den Primfaktoren 22229 und 33331 besteht. 
Die Zeit, die dieses Programm zur Prufung einer Zahl beno- 
tigt, hangt ganz von der GroBe ab. Fiir kleine Zahlen wer- 
den einige Sekunden benotigt, wahrend die Priifung einer 
9stelligen Zahl bis zu iiber 1 Minute dauern kann. 

Urn die Zahl 740914799 als Nicht-Primzahl zu entlarven, 
hatten Sie es sich aber auch einfacher machen konnen. Mit 
dem »Prim-Test 740.. .« (Listing 15), der auf dem Prim- 
Rechner 1e aufbaut, erhalten Sie nach 78 Sekunden (be- 
ziehungsweise 117 Sekunden beim C64) die betreffenden 
Primfaktoren. 



10 


REM **»»»*»**»***»*»»**»»«***»»*»»»» 


<060> 


20 


REM » PRIM - TESTER 2 » 


<050> 


30 


REM * FUER C64 8, CI 28 * 


<017> 


70 


REM *»*»«»»»#»»*»»»»»»»##»*»*»»»»♦»» 


<120> 


100 


DIM PR (3584) : PR (0) =2 


<108> 


110 


PRINT" <CLR,2D0WN,2SPACE}flDMENT BITTE ! 






XCH LESE SATEN ! " 


<177> 


120 


OPEN 2,8,2, "PRIMZAHLEN, S,R" 


<019> 


130 


FDR X=l TO 3584:INPUT#2,PR(X):NEXT:CL0 






SE 2 


<179> 


140 


PRINT:PRINT" <CLR ,2SPACE>2ITTE GEBEN 5.1 






E NUN DIE ZAHL EIN,'.' 


<158> 


1S0 


PRINT: PRINT" <2SPACE>DIE GEPRUEFT WERDE 






N SOU.:" 


<232> 


160 


PRINT: INPUT" C2SPACE}"; EG: FLAG=0: PRINT 


<165> 


170 


IF EG>=lE+09 OR EG<3 OR EGOINT (EG) THE 






N PRINT" <4UP>": GOTO 160 


<U4> 


180 


F=U: IN=2tF:X=SQR(E6> 


<194> 


190 


IF F=0 THEN 230 


<22B> 


200 


F=F-1 


<155> 


210 


IF PRdNXX THEN IN=IN+2TF: GOTO 190 


<030> 


220 


IF PR(IN)>=X THEN IN=IN-2TF: GOTO 190 


<097> 


230 


FOR X=0 TO IN:F=EG/PR(X):IF FOINT(F)T 






HEN NEXT: GOTO 260 


<044> 


240 


IF FLAG=0 THEN PRINT: PRINT EG" IST KEIN 
E £RIMZAHL !" SPRINT: PRINT" <2SPACE>£RIM 






FAKTOREN VON"EG": ": PRINT: FLAG=1 


<066> 


250 


PRINT PR(X)"»",:EG=EG/PR(X):GOTO 180 


<062> 


260 


IF FLAG=0 THEN PRINT: PRINT" <2SPACE>£IE 






2AHL"EG"IST EINE £RIMZAHL !" 


<227> 


270 


IF FLAGO0 THEN PRINT EG 


<1B9> 


280 


PRINT:PRINT:PRINT"{2SPACE>JiDCH EINE JE 






RECHNUNG ? (J/N) " 


<057> 


290 


GET X*: IF X«="J"THEN GOTO 140 


<010> 


300 


IF XSO"N"THEN 290 


<173> 


310 


END 


<058> 


Listing 14. »Prim-Tester 2« verwertet die etwa 109 




Blocks lang sequentielle Datei, die durch Listing 


14 


erzeugt wurde 





10 REM »**#»*»*******#»»»»*»»***»»»*»»* <060> 

20 REM * PRIM - TEST 740.914.799 # <159> 

30 REM * FUER C64 S, C128 • * <017> 

70 REM »#»»»»»*»»#»»**»»«»»»##»»#*»»»»», <120> 
100 PRINT" {CLR,2D0WN,2SP ACE >iST 740.914.79 

9 EINE PRIMZAHL ? " <203> 

110 X=74091 4799: FOR Y=3 TO SOR(X)STEP 2 <133> 
120 Z=X/Y:IF Z=INT(Z)THEN PRINT: PRINT"£RIM 

FAKTOREN " ; Y; "*" ; Z: GOTO 140 <01 1 > 
130 NEXT Y:PRINT:PRINT"<2SPACE>"X" IST EIN 

E £RIMZAHL ! " <142> 

140 END <142> 

Listing 15. -Prim-Test 740.. .« lost die Frage, die uns 
von Anfang an interessiert hat 



Eine Programmbeschreibung fiir dieses Programm ist 
wohl uberfliissig. 

So, damit ware dieser Exkurs in die Gefilde der Primzah- 
len abgeschlossen. Wenn wir unsere erarbeiteten Pro- 
gramme betrachten, so kann man behaupten, daB wir das 
sehr zeitintensive Problem »Primzahlen« recht gut in den 
Griff bekommen und alle Moglichkeiten des C128 bezie- 
hungsweiseC 64 in Basic ausgeschopfthaben.Es sind nun 
Maschinen-Sprache Experten gefragt, die auf den in Basic 
entwickelten Prinzipien schnelle Assembler-Routinen er- 
stellen. Vielleicht f iihlt sich ja der eine oder andere unter Ih- 
nen durch diesen Kurs angesprochen und inspiriert. 

(Thomas Hansch/kn) 



Eingabehinweise 

Geben Sie bitte alle Listings bis auf Listing 8 mit dem C64-Check- 
summer von Seite 159 ein. 

Da Listing 8 ein C 128-Listing ist, sollten Sie fur die Eingabe den neuen 
•Checksummer 128« aus dem C 128-Sonderheft (Sonderheft 22) ver- 
wenden. Die Prufsummen sind nicht identisch mit den Prufsummen 
des C64-Checksummers von Seite 159. Sie kSnnen natiirlich auf die 
Prufsummen verzichten und Listing 8 mit dem normalen Basic-Editor 
eingeben. 
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»Mas<hinen-Power« in Basic 



Traumen Sie als Basic-Programmierer auch 
manchmal von atemberaubender Geschwindig- 
keit, wie sie die Maschinensprache ermoglicht? 
Wenn ja, dann kommen Sie im folgenden Artikel 
voll auf Ihre Kosten. Wir werden dem Basic- 
Interpreter durch die Anwendung von Betriebs- 
system-Routinen namlich ganz schon einheizen. 



D 



er C64 ist in der Grundausstattung nicht gerade mit 
(einem herausragenden Basic bestiickt. Will man 

mehr aus seinem Commodore herausholen, so kann 
man sich entweder eine der inzwischen zahlreichen Basic- 
Erweiterungen zulegen, Oder sich in die Tiefen der Maschi- 
nensprache wagen, urn seine eigenen Befehle und Unter- 
programme zu erstellen. 

Es gibt noch eine dritte Moglichkeit, sozusagen den gol- 
denen Mittelweg, namlich das Ausnutzen der vorhandenen 
Interpreter- und Betriebssystem-Routinen von Basic aus. 
Wenn solche Routinen erst einmal analysiert worden sind, 
dann wird auch der Basic-Programmierer in die Lage ver- 
setzt, diese Unterprogramme ohne Maschinensprache- 
Kenntnisse zu verwenden. 



Kleine »Byte«ologie 



Folgende Tatsachen sollten Ihnen jedoch gelaufig sein. 
Wie Sie sicher wissen, speichert Ihr Computer jede Zahl, 
jeden Buchstaben, jedes Programm, schlicht und einfach 
alles in Bytes ab. Ein Byte kann bis zu 256 verschiedene 
Werte annehmen, man kann also Zahlen von bis 255 dar- 
in speichern. Urn groBere Werte verarbeiten zu konnen, 
nimmt man einfach zwei Byte zusammen und erhalt so die 
maximale Zahl 65535. Das erste Byte enthalt den nieder- 
wertigen Anteil (nicht, wie man vielleicht annehmen moch- 
te, den hoherwertigen Teil), im folgenden deshalb Low-Byte 
genannt. Entsprechend heiBt das zweite, hoherwertige By- 
te, High-Byte. 

Folgende Basic-Zeile wandelt eine Zahl in zwei Byte urn: 
H?=INT(X%/256) :L%=X%-H%*256 

X% ist hierbei die zu wandelnde Zahl; L% und H% das 
Low- und High-Byte. 

Umgekehrt das Errechnen einer Zahl aus zwei Byte: 
X%=H%*256%+L% 

Eine Eigenschaft der Maschinensprache ist es, bei Anga- 
ben von Speicherbereichen die Endadresse plus 1 anzu- 
geben. Beispiel: Sie wollen den Bildschirm von 1024 bis 
2047 speichern. Dann mussen Sie als Startadresse den 



1 REM BLOCKVERSCHIEBUNG 


<198> 


2 REM CREATED BY CHRISTOPH BERGMANN 


<242> 


3 REM 


<065> 


10 DEF FN H(X>=INT<X/256> 


<244> 


20 DEF FN L(X)=X-FN H<X>«256 


<019> 


IBB INPUT"ALTE STARTADRESSE" ;S 


<215> 


11B INPUT"ALTE ENDADRESSE+1 "; E 


<BB9> 


120 INPUT"NEUE ENDADRESSE+1 "; N 


<212> 


2BB POKE 95, FN L(S):POKE 96, FN H(S) 


<221> 


21B POKE 9B,FN L(E):POKE 91, FN H(E) 


<202> 


220 POKE B8.FN L(N):POKE 89, FN H(N) 


<136> 


300 SYS 4 1920: END 


<09B> 


Listing 1. Routine zur Verschiebung von beliebigen Spei- 


cherbereichen 





Wert 1024 und als Endadresse den Wert 2048 (!) verwen- 
den. 

Soviel zum notigen »Grundwissen«. Jetzt geht's los mit 
dem ersten Tip: Ei ne hauf ige Aufgabe, die der Computer zu 
erfullen hat, ist das Verschieben von Speicherbereichen. 
Wollen Sie zum Beispiel einen deutschen Zeichensatz auf 
dem C64 realisieren, so mussen Sie zuerst den normalen 
Zeichensatz auf einen freien Platz kopieren und dann dort 
die gewiinschten Zeichen andern. Eine andere An- 
wendung ist das Kopieren des Basic-ROMs und des Be- 
triebssystem-ROMs (Kernel) in das darunterliegende RAM, 
urn dort dann Anderungen vorzunehmen (zum Beispiel 



1 REM DEMO ZUR CURS0RP0SITI0NI6RUNG 


<250> 


2 REM CREATED BY CHRISTOPH BERGMANN 


<242> 


3 REM 


<B65> 


IB POKE 5328B,0:POKE 53281,0 


<138> 


20 PRINT" <CLRJ"; 


<214> 


30 FOR X=0 TO 6 STEP. 1 


<B36> 


4B Y=SIN(X>+1 


<216> 


5B POKE 211,X*6:POKE 214,Y»11 


<184> 


60 SYS 58732: POKE 783,1: SYS 58634 


<B3B> 


70 PRINT"<WHITE>6<:GREY 3>4«3REY 2>E<BREY 


1 


>R" 


<BB7> 


80 NEXT: END 


<051> 


Listing 2. Dieses Programm demonstriert die Cursor- 


Positionierung auf dem Bildschirm 





Eindeutschen des Befehlssatzes). Dabei mussen aller- 
dings uber 16000 Byte gelesen und wieder geschrieben 
werden. 

In Basic dauert das eine ganze Weile. Aber der Interpre- 
ter stellt uns eine Routine zur Verfiigung, die genau dassel- 
be in Sekundenschnelle fur uns erledigt. Hierzu muB man 
in die Speicherstelle 95 das Low-Byte und in 96 das High- 
Byte der Anfangsadresse des zu verschiebenden Bereichs 
eingeben, entsprechend in 90 und 91 die Endadresse. In 88 
und 89 schlieBlich muB die Endadresse (+1) des Zielbe- 
reichs angegeben werden. Rufen Sie danach die Routine 
mit SYS 41920 auf (das Programm in Listing 1 verschiebt 
einen beliebigen Speicherblock). In den Zeilen 10 und 20 
sehen Sie ubrigens eine sehr elegante Methode zur Um- 
wandlung einer Adresse in das Low-Byte und High-Byte. 

Speicher »henintschieben« 



Vom Verschieben von Speicherbereichen zum Verschie- 
ben des Bildschirms. Sie konnen den Bildschirm jederzeit 
nach oben scrollen ohne die Cursorposition zu verandern, 
indem Sie einfach die entsprechende Routine mit SYS 
59626 auf rufen. 

An dieser und den folgenden Routinen sehen Sie ubri- 
gens, wie leistungsfahig das Betriebssystem des Commo- 
dore 64 zum Beispiel in der Bildschirmsteuerung ist. Man 
muB es nur zu nutzen wissen. Wenn Sie eine oder mehrere 
Zeilen auf dem Bildschirm loschen wollen, so konnen Sie 
dies ebenfalls dem Betriebssystem iiberlassen. Einfach die 
zu loschende Zeile in die Speicherzelle 781 POKEn und die 
entsprechende Routine mit SYS 59903 starten. Schon ist 
die gewunschte Zeile vom Bildschirm verschwunden. Wol- 
len Sie mehrere Zeilen loschen, so benutzen Sie eine FOR- 
NEXT-Schleife. Das sieht folgendermaBen aus: 
10 FOR T=A TO E : POKE 781, T : SYS 59903 : NEXT T 

A ist hierbei die Anfangszeile und E entsprechend die 
Endzeile. Eine weitere, sehr wichtige Unterroutine ist "Cur- 
sor Setzen/Holen«. Damit kann man den Cursor auf jede 
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beliebige Position des Bildschirms setzen. Einfach die Zei- 
le in 214 und die Spalte in 211 schreiben und... Halt! Ma- 
chen Sie nicht den Fehler und rufen Sie sofort die Routine 
auf. Sie sollten zuvor mit POKE 783,1 die Routine auch auf 
»Setzen« schalten. Dann konnen Sie mit SYS 58640 das er- 
ste Unterprogramm starten (das Listing 2 demonstriert dies 
anhand einer kleinen Sinuskurve). 

Fur die zweite Funktion der Unterroutine, namlich 
»Cursorposition holen«, miissen Sie lediglich POKE 783,0 
und SYS 58640 eingeben, danach steht die Zeile des Cur- 
sors in der Speicherzelle 781 und die Spaite in 782. Damit 
laBt sich zum Beispiel ein Menu, aus dem man mit einem 
Cursor auswahlen kann, sehr gut realisieren. 

Sicher ist es Ihnen schon einmal passiert, daB Sie alle 
mdglichen Parameter zur Bildschirmausgabe verandert 
haben (zum Beispiel Rahmen-, Hintergrundfarbe, Lage des 
Bildschirms, und so weiter...) und nicht mehr wissen, wie 
die Anfangswerte ausgesehen haben. Abgesehen davon 
ist es sehr miihsam, alles »per Hand« wieder zuriickzustel- 
len. Durch Aufruf der Routine »Bildschirm-Reset« mit SYS 
65409 wird alles wieder in den Ausgangszustand (wie nach 
dem Einschalten, also dunkelblauer Hintergrund, hell- 
blaue Rahmen- und Zeichenfarbe, und so weiter...) zuriick- 
gesetzt. Dies sollten Sie ubrigens zu Beginn jedes Pro- 
gramms einmal durchfuhren, da ja der Benutzer vorher al- 
les verstellt haben konnte. 

Wenden wir uns nun ab von der Bildschirmsteuerung 
hin zu anderen Betriebssystem-Routinen. Zur Fehlersuche 
zu gebrauchen ist eine Routine, die die aktuelle Zeilennum- 
mer, in der sich das Programm gerade befindet, ausgibt. 
Durch SYS 48578 erfolgt die Ausgabe »in xxxx«, wobei es 
sich bei »xxxx« urn die aktuelle Zeilennummer handelt. 

Das laufende Basic-Programm wird danach ganz normal 
fortgesetzt. 

Wenn Sie nicht Fehler verhindern oder aufspiiren, son- 
dern produzieren wollen, so hilft Ihnen die folgende Routi- 
ne weiter. POKEn Sie einen Wert zwischen 1 und 30 in die 
Speicherzelle 781 und starten Sie das Unterprogramm mit 
SYS 42039. Schon bricht Ihr Programm mit der der Num- 
mer entsprechenden Fehlerausgabe ab. 

Alle Kanale schlieften 



Nun wieder zu etwas Nutzlichem: Wenn Sie in einem Pro- 
gramm mehrere Ein- oder Ausgabekanale mit OPEN eroff- 
net haben, so ist es etwas muhsam, alle Kanale wieder mit 
CLOSE zu schlieBen. Das Betriebssystem hat hierfiir ein 
Unterprogramm, das alle moglichen Kanale auf einmal 
schlieBt. Der Aufruf erfolgt mit SYS 65511. 

Wie Sie sicher wissen, kann ein Programm nicht nur mit 
LOAD "Name", 8 (hier wird das Programm immer ab dem 
Basic-Anfang, der bei 2049 liegt, geschrieben), sondern 
auch mit LOAD " Name " ,8,1 geladen werden. Bei letzterem 
ladt das Betriebssystem ein Programm an die ursprunglich 
angegebene Stelle im Speicher. Die Startadresse wird 



1 REM SPEICHERBEREICH ABBPEICHERN 


<181> 


2 REM CREATED BY CHRISTOPH BERGMANN 


<242> 


3 REM 


<065> 


10 DEF FN H(X>=INT(X/256) 


<244> 


2B DEF FN L(X)=X-FN H<X>»256 


<019> 


100 INPUT"STARTADRESSE"iS 


<085> 


110 INFUT"ENDADRESSE+1";E 


<230> 


120 INPUT"NAMECBSPACE>";N* 


<146> 


150 SYS (57812) NS, 8 


<215> 


200 POKE 193, FN L(S):POKE 194, FN H(S) 


<206> 


210 POKE 174, FN L<E):POKE 175, FN H(E) 


<222> 


300 SYS 62957: END 


<198> 


Listing 3. Speichern eines beliebigen Speicherbereichs 


Kassette oder Diskette 





beim SAVEn mitgespeichert. Dies kann man sehr nutzbrin- 
gend anwenden, denn es muB sich ja nicht unbedingt urn 
ein Maschinenprogramm handeln. Man kann vielmehr je- 
den beliebigen Speicherbereich speichern, zum Beispiel 
Sprite-Daten, den Bildschirmspeicher, HiRes-Grafiken, Va- 
riablenwerte, etc. Es ergeben sich wirklich viele Anwen- 
dungsmoglichkeiten. 

Urn so einen Bereich zu speichern, mussen Sie folgen- 
des eingeben: Als erstes »SYS(57812)"Name",g« zum Er- 
offnen des Programmfiles. Wenn Sie fur »g« den Wert 8 ver- 
wenden, so speichern Sie das Programm auf die Diskette, 
beim Wert 1 auf Kassette. Danach mussen Sie die Start- 



1 REM EINGABE - UNTERPROGRAMM <250> 

2 REM CREATED BY CHRISTOPH BERGMANN <242> 

3 REM <065> 
50000 SYS 42336: E*="":Z=512 <059> 
60010 P=PEEK(Z):IF P THEN E*=E*+CHR* <P> : Z= 

Z+l:GOTO 60010 <135> 

60020 RETURN <131> 

Listing 4. Unterprogramm zur Eingabe einer Zeichenkette 
in eine Stringvariable 



adresse des Speicherbereichs in die Speicherstellen 193 
und 194 schreiben sowie die Endadresse in 174 und 175. 
Zum SchluB rufen Sie die Routine zum Speichern mit SYS 
62957 auf. Das Programm in Listing 3 speichert einen an- 
gegebenen Bereich wie oben beschrieben. 

Der Umgnng mit Sprites 



Im folgenden ein sehr niitzliches Beispiel: Wenn Sie in ei- 
nem Programm Sprites verwenden, so werden Sie die zu- 
gehorigen Daten wahrscheinlich in DATA-Zeilen geschrie- 
ben haben, diese dann mit einer FOR-NEXT-Schleife wie- 
der auslesen und an einen bestimmten Speicherplatz PO- 
KEn. Das dauert bei vielen Sprites nicht nur sehr lange, es 
verbraucht auch ungefahr vier- bis funfmal soviel Platz, wie 
eigentlich notig ware. Wenn Sie die Sprite-Daten allerdings 
vorher auf Diskette speichern und dann direkt in den Spei- 
cher laden, so umgehen Sie beide Nachteile. Dies konnen 
Sie am besten folgendermaBen bewerkstelligen: 

Laden Sie Ihr altes Programm und starten Sie es. Nach- 
dem die Sprite-Daten an die richtige Stelle gePOKEt wur- 
den, konnen Sie es unterbrechen und loschen. Tippen Sie 
nun das Programm in Listing 3 ab und starten Sie es. Als 
Start- und Endadresse geben Sie die entsprechenden Wer- 
te fur Ihre Sprites ein. Nach Eingabe eines Namens werden 
die Daten als Programmfile gespeichert. Laden Sie nun ihr 
altes Programm. Daraus entfernen Sie nun die DATA-Zeilen 
und die FOR-NEXT-Schleife. Fiigen Sie als erste Zeile fol- 
gendes ein: 

1 IF A=0 THEN A=l : LOAD "Name ",8,1 

Als »Name« verwenden Sie den Namen, den Sie beim 
Speichern angegeben haben. So, jetzt ist Ihr neues Pro- 
gramm fertig und Sie konnen es speichern. 

Wenn Sie sich schon einmal uber den INPUT-Befehl des 
Commodore-Basic geargert haben, weil er verschiedene 
Zeichen (zum Beispiel Doppelpunkt, Komma, fuhrende 
Leerzeichen und so weiter) einfach nicht ubernimmt, dann 
ist hier die Abhilfe: Rufen Sie mit SYS 42336 die Eingabe- 
routine des Betriebssystems auf. Diese Routine schreibt al- 
le Zeichen in einer logischen Bildschirmzeile (maximal 80 
Zeichen) in den Basic-Eingabepuffer ab Adresse 512. Dar- 
aus kann man nun mit ei ner einfachen Schleife die Eingabe 
einlesen. Das Ende wird mit einem CHR$(0) gekennzeich- 
net (das Programm in Listing 4 zeigt ein Beispiel.) 

(Christoph Bergman/N. Heusler) 
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PEEKs und POKEs mit Effekt 



Der C64 besitzt viele niitziiche Speicherstellen, 
mit deren Hilfe Sie Ihrem Computer auch die letz- 
ten Geheimnisse entlocken konnen. Aus diesem 
Grand haben wir die effektvollsten und interes- 
santesten PEEKs und POKEs fur Sie gesammelt 
und thematisch geordnet. 

Viele Effekte und Funktionen lassen sich mit den her- 
kdmmlichen Basic-Befehlen nicht realisieren. In sol- 
chen Fallen mu8 man mit PEEK und POKE in das In- 
nenleben des C64 eingreifen, um die gewunschten Reak- 
tionen zu erhalten. Dazu gehoren etwa die Programmie- 
rung von Sound und Graf ik aber auch die EinfluBnahme auf 
wichtige Computerfunktionen der Ein-/Ausgabesteuerung 
sowie die Manipulation der Speicherverwaltung IhresC 64. 
Die folgende Liste der wirkungsvollsten PEEKs und POKEs 
soil Ihnen bei dieser Arbeit zur Hand gehen. In sechs Grup- 
pen aufgeteilt bietet sie zu jedem Thema die notigen Spei- 
cheradressen mit ausfuhrlichen Erlauterungen. 

Ein-/Ausgabesteuerung allgemein 

ASCII-Code der letzten gedruckten Taste (CHR$(0)=keine 

Taste gedruckt) 

PEEK(197) 



Bildschirmcode 
PEEK(206) 



des Zeichens unter dem Cursor: 



Cursor blinkt schneller 
POKE 788,62 



Cursorblinken wahrend Programmablauf einschalten 
POKE 204,1 



Cursorblinken ausschalten 
POKE 204,0 



Cursor auf angegebene Position setzen (X=Zeile (0 bis 24); 

Y=Spalte (0 bis 39)). 

POKE 21 1,X: POKE 214.Y 

Nach SYS 58640 erscheint der Cursor auf der entsprechen- 

den Position 



Fehlermeldungsausgabe sperren 
POKE 768,61 



Fehlermeldungsausgabe wieder zulassen mit 
POKE 768,139 

Hintergrundfarbe bestimmen (Farbcode: bis 15) 
POKE 53281, Farbcode 



Rahmenfarbe festlegen 
POKE 53280, Farbcode 



INPUT-Befehl: Ausgabe des Fragezeichens unterdrucken 
(Achtung: Cursor springt nach < RETURN > nicht mehr in 
die nachste Zeile). 
POKE 19,1 
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Normales Verhalten bei INPUT wiederherstellen 
POKE 19,0 



Invers-Darstellung einschalten 
POKE 199,1 



Insert-Modus ausschalten (vor jeder GET-Anweisung PO- 
KE 216,0 verhindert in Eingaberoutinen etc., daB die Betati- 
gung einer Cursortaste nach < SHIFT INS/DEL> Grafik- 
zeichen erzeugt). 
POKE 216,0 

Joystickabfrage Port 1 (1 oben; 2 unten; 4 links; 8 rechts; 16 

Feuer). 

PEEK(56320) 

Joystickabfrage Port 2 (1 oben; 2 unten; 4 links; 8 rechts; 16 

Feuer). 

PEEK(56321) 

Lange des Tastaturpuffers andern 

(X=Lange des Puffers=Maximalanzahl der bei zu schnel- 

len Eingaben zur Weiterverarbeitung gespeicherten Ta- 

sten) 

POKE 649.X 

Listing ohne Zeilennummern 

POKE 22,35 

Repeatfunktion fur Tasten (X=0 Normalzustand; X=64 Re- 
peatfunktion fur alle Tasten ausschalten; X=128 Repeat- 
funktion fur alle Tasten einschalten). 
POKE 650.X 

Abfrage der Sondertasten 

PEEK(653) 

(1 = SHIFT-Taste gedruckt; 2 = CBM-Taste; 4 = CTRL- 

Taste). Sind mehrere Tasten gleichzeitig gedruckt, addie- 

ren sich die Werte. 

Tastaturpuffer loschen nach jeder GET-Anweisung sorgt 
dafiir, daB im Tastaturpuffer gespeicherte und noch nicht 
verarbeitete Zeichen geloscht werden - das »Nachlaufen« 
von Basic-Programmen bei zu schneller Eingabe wird ver- 
hindert. 
POKE 198,0 

Zeichen in Tastaturpuffer schreiben 
POKE 631,ASC("A"):POKE 632,ASC("B")... 
ASCII-Codes der Tasten <A>, <B>,... in den Tastatur- 
puffer schreiben, um entsprechende Tastenbetatigung zu 
simulieren. 

Zeichenfarbe bestimmen (X=Farbcode: bis 15) 

POKE 646.X 

Zeichensatz-Umschaltung sperren 

POKE 657,128 

Umschaltung wieder zulassen 

POKE 657,0 

PEEK(647) Farbe unter dem Cursor: Mit den Werten bis 
15 werden die jeweiligen Farben gePOKEt: POKE 647,X 
(X : 0-15) 

Repeat-Verzogerung: Alle eingePOKEten Werte verzogern 
die Repeat-Fuktion.Hoherer Wert = groBere Verzogerung: 
POKE652, X 

Horizontal-Position des Lichtgriffels: 

PEEK(36870) 

Vertikal-Position des Lichtgriffels: PEEKQ6871) 

Softscrolling: Ein horizontales Softscrolling kann folgen- 

dermaBen gePOKEt werden. 

POKE 53270,0 = scrollen nach rechts 

POKE 53270,1 = scrollen nach links 

Blinkfrequenz des Cursors: 56325 Die Blinkfrequenz des 
Cursors kann in diesem Byte bestimmt werden. Hoherer 



Wert = langsamere Blinkfrequenz. Mit POKE 56325,58 
wird die normale Blinkfrequenz festgelegt. 

Userport-Abfrage. Mit POKE (56576) kann man die Pins 
PB0-PB7 vom User-Port (auf der Unterseite der Ports, sie- 
he Handbuch) auslesen. Mit POKE in diese Speicherstelle 
kann man auch Ausgaben uber den User-Port laufen las- 
sen. 

Datenrichtungsregister fur User-Port: 56578. Jedes der Bits 
gibt die Datenrichtung fur die PINS PB0-PB7 des User- 
Ports an (Bit gesetzt = Ausgang, Bit nicht gesetzt = Ein- 
gang). 

Der Tastaturpuffer 

1. Die Arbeitsweise des Tastaturpuffers zeigt am besten 
ein kleines Beispiel, wie die folgende »Mini-Textverar- 
beitung«: 

100 GET A$ 

110 FOR 1=1 TO 100:NEXT I 

120 PRINT A$; 

130 GOTO 100 

Das Demoprogramm wartet auf eine Taste, gibt das zuge- 
horige Zeichen aus und wartet anschlieBend erneut auf ei- 
nen Tastendruck. Wegen der Warteschleife in Zeile 110 ist 
das Programm zu langsam, um Ihren Eingaben zu folgen, 
wenn Sie sich bemuhen, moglichst schnell zu tipper.. 

Die vom Programm noch nicht verarbeiteten Zeichen 
speichert der Computer im Tastaturpuffer ab Adresse 631 
fur die spatere Verarbeitung. In der Speicherzelle 198 wird 
die Anzahl der noch zu verarbeitenden Zeichen abgelegt, 
die sich im Tastaturpuffer befinden. Es gehen also keine 
Zeichen verloren. Wenn der Benutzer schon langst keine 
Taste mehr betatigt, erscheinen die Zeichen nach und nach 
auf dem Bildschirm - das Programm »hinkt hinterher«. 

Dieses »Nachlaufen« ist bei Basic-Programmen, die mit 
GET arbeiten (Textverarbeitung, Eingaberoutine), pro- 
blemloszu vermeiden, indem vor jeder GET-Anweisung in 
Speicherzelle 198 (Anzahl der Zeichen im Tastaturpuffer) 
der Wert gePOKEt wird. Dem C64 wird damit simuliert, 
daB keine noch zu verarbeitenden Zeichen im Puffer vor- 
handen sind, und er wartet auf die nachste Tastenbetati- 
gung. Nachteil: Bei zu schnellen Eingaben gehen die nicht 
mehr sofort zu verarbeitenden Zeichen verloren, da sie 
nicht mehr im Puffer »gerettet« werden. 

2. »Simulierter Direktmodus«. Verschiedene Anweisun- 
gen sind nur im Direkt-, nicht im Programmodus moglich. 
Zum Beispiel konnen Sie nur im Direktmodus Programm- 
zeilen loschen Oder andern. 

Der Direktmodus kann jedoch im Programm simuliert 
werden. Die gewiinschte Anweisung wird Zeichen fur Zei- 
chen - die ASCII-Codes der Zeichen! - in den Tastaturpuffer 
ab 631 gePOKEt. In 198 wird die Zeichenanzahl gePOKEt 
und das Programm mit END beendet. Nach dem Beenden 
eines Programms arbeitet der C64 automatisch die Zei- 
chen im Tastaturpuffer ab, also die von Ihnen dort abgeleg- 
ten Tasten. 

100 INPUT "FUNKTI0N (BSP. Y=2#C0S(X) ) ";A$ 
110 PRINT CHR$(U7);:REM BILDSCHIRM L0ESCHEN 
120 PRINT "210 ";A$:REM FUNKTI0N IN 0BERSTE ZEILE 
130 PRINT "RUN 200": REM PROGRAMM AB ZEILE 200 

STARTEN 
1-40 POKE 631, 19: REM CODE VON 'CURSOR HOME' 
150 POKE 632, 13: REM RETURN-CODE 
160 POKE 633, 13= REM RETURN-CODE 
170 POKE 198,3 :REM SIMULATION VON 3 

TASTENBETAETIGUNGEN 
180 END 
190 

200 INPUT "X-WERT";X 
210 Y=SIN(X):REM DIESE ZEILE WIRD GEAENDERT !!! 
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220 PRINT Y 

230 GET A$:IF A$="" THEN 230: REM AUF TASTE WARTEN 

240 GOTO 100: REM NEUE FUNKTION 

Wenn Sie dieses Demoprogramm eingeben und starten, 
werden Sie nach einer Funktion gefragt. Geben Sie zum 
Beispiel ein Y=2*X, und driicken Sie < RETURN >. 

Der Bildschirm wird geloscht und in der obersten Zeile 
die Zeilennummer 210 und dahinter Ihre Funktionsvor- 
schrift ausgegeben. In der folgenden Zeile wird die Anwei- 
sung RUN 200 ausgegeben 
200 Y=SIN(X) 
RUN 200 

In den Tastaturpuffer werden nacheinander die Codes 
derTasten < CURSOR HOME >, < RETURN > undnoch- 
mal < RETURN > gePOKEt, in den »Zeichenzahler« 198 
entsprechend die Zahl 3. 

Nach der END-Anweisung bearbeitet der Computer die 
im Tastaturpuffer abgelegten Zeichen. Das erste Zeichen - 
CURSOR HOME - setzt den Cursor auf die oberste Bild- 
schirmzeile. Das zweite Zeichen - REJURN - sorgt fur die 
Ausfuhrung der Anweisung, also die Ubernahme der neu- 
en Funktion als Zeile 210. 

Der zweite RETURN-Code bewirkt die Ausfuhrung der 
nachsten Anweisung: RUN 200. Das Programm wird ab 
Zeile 200 neu gestartet. Es fragt Sie nach einem X-Wert, be- 
rechnet mit der geanderten Funktionsvorschrift in Zeile 210 
den zugehorigen Y-Wert und gibt ihn aus. Wenn Sie an- 
schlieBend eine beliebige Taste driicken, geht dieses Spiel 
von vorne ios. 

Graffik 



(VIC=Speicherzelle 53248) 

Grafikmodus 

Einschalten: POKE VIC+17,PEEK(VIC+17) OR 32 

Ausschalten: POKE VIC+17,PEEK(VIC+17) AND 223 

Grafikspeicher 

Grafikspeicher-Startadresse ab Adresse 8192: POKE 

VIC+24,PEEK(VIC+24) OR 8 

Grafik loschen 

Grafikspeicher loschen (Voraussetzung: Beginn ab 8192) 

FOR 1=8192 TO 8192+8000:POKE l,0:NEXT I 

Multicolor-Modus 

Einschalten (Voraussetzung: Grafikmodus wurde zuvor 

eingeschaltet) POKE VIC+22,PEEK(VIC+22) OR 16 

1. Grafikspeicher schiitzen. Wie Sie die Hires-Grafik ein-/ 
ausschalten, den Beginn des Grafikspeichers auf Adresse 
8192 legen und den Grafikspeicher loschen, finden Sie in 
der zugehorigen Abteilung unserer Liste. 

AnschlieBend liegt der Grafikspeicher jedoch mitten im 
eigentlich fur das Basicprogramm und die Variablen ver- 
wendeten Speicherbereich. Eine Moglichkeit, dieses Pro- 
gramm zu losen, besteht darin, den fur das Basicprogramm 
verfiigbaren Speicherbereich zu begrenzen und dem C64 
mitzuteilen, daB er bei Adresse 8191 endet: 
POKE 5,255:POKE 56,31 

Diese beiden Befehle sollten sich in der ersten Zeile Ihres 
Grafikprogramms befinden! Ihnen stehen nun zwar nur 
noch 7 KByte fur Ihr Programm zur Verfiigung, zum Experi- 
mentieren mit der Grafik reicht das jedoch allemal. 

2. Punkte setzen/loschen: Die »Grafik-POKEs« uberneh- 
men zwar alle notwendigen Vorbereitungen, der eigentli- 
che Sinn von Grafikprogrammen, das Setzen oder Loschen 
von Punkten, fehlt jedoch in der Liste. Die folgenden beiden 
Formeln setzen voraus, daB den Variablen X und Y die 
Punktkoordinaten zugewiesen wurden. 
AD = 320 * INT(Y/8) + (Y AND 7) + 8*INT(X/8) 
BN = 7 - (X AND 7) 



Nach diesen Berechnungen kann der betreffende Punkt 
gesetzt Oder geloscht werden. 
Setzen: POKE 8192+AD,PEEK(8192+AD) OR 21 BN 
Loschen: POKE 8192+AD,PEEK(8192+AD) AND (255- 
2!BN) 

Die obigen Berechnungen funktionieren jedoch nur, 
wenn die Hires-Grafik mit 320 x 200 Punkten eingeschaltet 
ist. AD ist dabei die Nummer des Bytes ab der Anfangs- 
adresse des Graf ikbildschirms und BN ist die Nummer des 
Bits in dem Byte Anfangsadresse + AD. 



Sprites 



(VIC=53248, NR=Spritenummer (0 bis 7)) 
Breite verdoppeln 

POKE VIC+29,PEEK(VIC+29) OR 21NR 

Hohe verdoppeln 

POKE VIC+23,PEEK(VIC+23) OR 21NR 

Kollision feststellen 
PEEK(VIC+30):POKE VIC+30,0 

(die Bits der beiden kollidierten Sprites sind gesetzt; in 
VIC+30 muB (!) anschlieBend der Wert gePOKEd werden, 
da diese »Kollisionsspeicherzelle« nicht automatisch ge- 
loscht wird!). 

Multicolor-Sprite 

Einschalten: POKE VIC+28,PEEK(VIC+28) OR 2tNR 

Spritefarben 

Definieren: POKE VIC+39+NR,Farbcode 



Sprites einschalten 

POKE VIC+21,PEEK(VIC+21) OR 2tNR 

Sprites ausschalten 

POKE VIC+21,PEEK(VIC+21) AND 255-21 NR. 

X-/Y-Koordinaten 

Festlegen durch POKE VIC+2*NR,X:POKE VIC+2*NR 

+1.Y 

Die »Sprite-POKEs« werden verstandlicher, wenn Sie ein 
wenig uber den Umgang des C64 mit Sprites erfahren. Bis 
zu acht Sprites konnen gleichzeitig verwaltet werden. Je- 
des Sprite bekommt eine Nummer zwischen und 7. Fur ei- 
ne Sprite-Funktion ist meist ein Register des VIC-Chips zu- 
standig, zum Beispiel Register 29 fiir die Verdoppelung der 
Sprite-Hohe. Urn ein Register anzusprechen, miissen Sie 
die Registernummer zur Basisadresse des VIC-Chips ad- 
dieren: 
53248 (Basisadresse) + 29 (Hohen-Register) = 53277 

Die Speicherzelle 53277 beeinfluBt also die Sprite-Hohe. 
Urn gezielt ein bestimmtes Sprite ansprechen zu konnen, 
ist bei fast alien fur die Sprites zustandigen Registern je ein 
Bit einem Sprite zugeordnet. 
Bit Sprite Nummer 
Bit 1 Sprite Nummer 1 



Bit 7 Sprite Nummer 7 

Urn nun gezielt die Hohe von Sprite Nummer 5 zu verdop- 
peln, ohne auch alle anderen Sprites zu beeinflussen, muB 
Bit 5 von Register 53248 gesetzt werden. Gesetzt bezie- 
hungsweise geloscht werden Bits mit Hilfe der logischen 
Operatoren OR (Setzen) und AND (Loschen). Das folgende 
Schema zeigt, wie einzelne Bits gezielt manipuliert werden 
Bit NR setzen POKE X,PEEK(X) OR 21 NR 
Bit NR loschen POKE X,PEEK(X) AND 255-(2!NR) 

Zur Verdoppelung der Hohe eines Sprites finden Sie in 
der Tabelle den POKE: 
POKE VIC+29,PEEK(VIC+29) OR 21 NR 

NR ist hierbei die Spritenummer (0 bis 7), VIC die Basis- 
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adresse des VIC-Chips (53248). Urn die Hohe von Sprite 3 
zu verdoppeln, setzen Sie einfach das entsprechende Bit 
Nummer 3 mit der Anweisung 
POKE 53248+29,PEEK(53248+29) OR 213 

Die Verdoppelung kdnnen Sie jederzeit ruckgangig ma- 
chen, indem Sie dieses Bit wieder loschen 
POKE 53248+29,PEEK(53248+29) AND 255-2t3 

Dieser kleine »Ausflug« sollte verdeutlichen, wie die In- 
halte der Sprite-Register vom C64 interpretiert werden. 
Zum Umgang mit Sprites halten Sie sich bitte einfach an die 
POKE-Liste. Die Anwendung durfte problemlos sein, nach- 
dem Ihnen nun die Bedeutung der Variablen VIC und NR 
bekannt ist. 

Sound 



(SID=54272; alle Angaben beziehen sich auf Stimme 1; fur 
Stimme 2 zur angegebenen Adresse den Wert 7 addieren, 
fur Stimme 3 den Wert 14). 

Gesamtlautstarke: 

Fur alle Stimmen POKE SID+24.X (X zwischen und 15). 

Hullkurve: 

DECAY- und ATTACK-Wert festlegen POKE SID+5.X 

SUSTAIN- und RELEASE-Wert festlegen POKE SID+6.X 

Puls-Pause-Verhaltnis 

POKE SID+2,LB:POKE SID+3.HB (LB/HB Low- und High- 

Byte der Pulsbreite). 

Schwingungsform 

POKE SID+4,PEEK(SID+4) OR 21 1 

(l=4-Dreieck; l=5-Sagezahn; l=6-Rechteck; 

1=7— Rauschen). 

Tonhohe: 

POKE SID,HB:POKE SID+1.LB 

HB/LB High- und Low-Byte der gewunschten Tonhohe 

(siehe Tabelle im Handbuch). 



Programmschutz 



Andern von Programmzeilen verhindern 
POKE 813,2 



Basic-Programm zerstoren 
POKE 776,1 



LIST sperren 
POKE 775,200 



LIST wieder zulassen 
POKE 775,167 



Rechner nimmt keine Befehle mehr an 
POKE 120,2 



RESET nach Programmende 
POKE 768,143 



RESET bei LIST-Anweisung 
POKE 774,226:POKE 775,252 



RESET bei Drucken der RESTORE-Taste 
POKE 792,226:POKE 793,252 



RESET bei SAVE-Anweisung 
POKE 818,226:POKE 818,165 



Speichern verhindern 
POKE 801,0:POKE 802,0:POKE 818,165 
Oder POKE 818,116 : POKE 819,196 oder 
POKE 818,34 : POKE 819,253 



Sperren von Tastatureingaben 
POKE 649,0 



Wiederzulassen von Tastatureingaben 

POKE 649,10 

STOP-Taste ausschalten 

POKE 788,52 oder POKE 808,225 

STOP-Taste wieder einschalten 

POKE 788,49 oder POKE 808,237 

STOP- und RESTORE-Taste ausschalten 

POKE 792,193 

STOP- und RESTORE-Taste wieder einschalten 

POKE 792,71 

Absturz: 

Durch EinPOKEn eines beliebigen Wertes in der Speicher- 
stelle 770 erfolgt die Ready-Ausgabe unendlich oft, nur 
noch Ausschalten hilft 

Nach POKE 777,1 wird kein Befehl mehr ausgefuhrt. Der 
Cursor befindet sich in der linken Ecke. 



Speicherverwaltung 



Speicherstelle 1 

Inhalt 55 = normal 

Inhalt 54 = Basic ausgeschaltet (auf RAM umgestellt) 

Inhalt 53 = Basic und Kernel auf RAM umgestellt. 

(Es empfiehlt sich dabei, das Basic und das Kernal vorher 

ins RAM zu POKEn, damit der Computer bei der Umschal- 

tung nicht aussteigt.) 

Speicherstelle 43/44 

Der Anfang des zur Zeit im Speicher befindlichen Basic- 

Programms errechnet sich durch 

PEEK (43) + PEEK (44) « 256 

Speicherstelle 45/46 

Das Ende des Basic-Programms erhalt man durch 
PEEK (45) + PEEK (46) « 256 

Speicherstelle 55/56 

Mit PEEK (55) + 256 * POKE (56) kann das Ende des 
Basic-RAMs abgerufen werden. 

Speicherstelle 57/58 

Die Zeilennummer, bei der nach einer Programmunterbre- 

chung gestoppt wurde, errechnet sich durch 

PEEK (57) + 256 * PEEK (58). 

Speicherstelle 61/62 

Zeiger auf Basic-Statement fur CONT: Durch PEEK (61) 
+ PEEK (62) * 256erhalt man die Speicherstelle, die nach 
dem zuletzt ausgefiihrten Basic-Befehl liegt, das heiBt die 
Speicherstelle, von der sich der Basic-Interpreter bei CONT 
den nachsten Befehl holt. 

Tip: Bei CONT kommt ofter CAN'T CONTINUE ERROR vor, 
wenn man nach dem Stoppen ein CLR eingegeben oder in 
irgendeiner Programmzeile etwas geandert hat. Liest man 
die Werte mit PEEK (61) und PEEK (62) nach der Unterbre- 
chung aus, dann macht ein CLR oder ahnliches nichts aus, 
wenn man vor CONT die zuvor ausgelesenen Werte wieder 
in die Speicherstellen POKEt. 

Speicherstelle 63/64 

Nummer der aktuellen DATA-Zeile: 
Mit PEEK (63) + PEEK (64) * 256 erhalt man die Nummer 
der Data-Zeile, aus dergerade das letzte Datum geholt wur- 
de. (Gut zum Finden von Fehlern in DATA-Zeilen geeignet.) 

Speicherstelle 69/70 

Zuletzt zugewiesene Variable: 

Bei normalen FlieBkommavariablen liest man den Wert mit 

PRINT CHR$(PEEK (69))+CHR$(PEEK (70)) aus. 
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Bei Integervariablen (zutn Beispiel XY%) erhalt man den 
Namen durch PRINT CHR$(PEEK (69)-128)+CHR$ 
(PEEK (70)-128). 

Strings (zum Beispiel VX$) erhalt man durch PRINT CHR$ 
(PEEK(69))+CHR$(PEEK (70)-128). 

Speicherstelle 641-644 

Start- und Endadresse des Basic-RAMs: Durch Andern die- 
ser Werte kann man die GroBedes Basic-RAMs verandern, 
zum Beispiel: 

POKE 643,0 : POKE 644,128 : SYS 64768 setzt das Ende 
des Basic-RAMs urn 8 KByte nach unten. Anderes Beispiel: 
POKE 641,0 : POKE 642,16 : SYS 64764 setzt das Basic- 
RAM urn 2 KByte nach oben. 

Speicherstelle 781/782 

Startadresse ab der ein Programm geladen wird: Durch 
entsprechende POKE-Werte kann ein Basic-Programm in 
einen anderen Speicherbereich geladen werden. 

Speicherstelle 784/785 

USR-Vektor: Erfolgt der Einsprung in ein Maschinenpro- 



gramm iiber den USR-Befehl, so muB die Einsprungadres- 
se vorher in diese beiden Byte gePOKEt werden. 

Speicherstelle 788/789 

IRQ, Hardware-Interrupt: Das Betriebssystem springt stan- 
dig in diese Routine, durch Andern des Inhalts kann man ei- 
gene, »interruptgesteuerte« Maschinenroutinen standig 
laufen lassen. POKE 788,49 hebt die Wirkung der STOP- 
Taste auf. POKE 788,52 schaltet sie wieder ein. 

Speicherstelle 792/793 

Restore-Vektor: PEEK (792) + PEEK (793) * 256 ergibt 
die Speicherstelle, an die bei Restore-Tastendruck ge- 
sprungen wird. 
Beispiel: POKE 792,226 : POKE 793,252 wird beim 

Driicken der Restore-Taste ein Reset ausgelost. 

Damit beenden wir den PEEK- und POKE-Reigen. Doch 
lassen sich durch Probieren sicherlich weitere interessante 
Effekte an Ihrem C64 realisieren. 

(Said Baloui/M. Kohlen/M. Thomas) 



Bask-Sturt-Generator 



Maschinenroutinen an beliebigen Startadressen 
laden wie Basic-Programme und mit RUN starten, 
bleibt nicht langer ein Wunschtraum . Dieses Pro- 
gramm macht es mogfich. 

Wie war noch die Startadresse fur den Monitor? Sie 
haben bestimmt auch schon ofter die Einsprung- 
adresse eines Maschinenprogramms vergessen, 
wennSievielmitAssembler-Programmenarbeiten.Abhilfe 
schafft diese kleine Routine, die Sie mit dem MSE einge- 
ben mussen. 

Das Programm (Listing 1) macht aus einem im Speicher 
befindlichen Maschinenprogramm ein Programm, das ei- 



0990 
0992 


a9 
aO 


2c 
08 


LDA #2C 
LDY #08 


> Blockanfang (S082C) 


0994 
0996 


85 
84 


5f 
60 


STA5F 
STY 60 


> Ubergabeadresse 


0998 


a9 


?? 


LDA #?? 


> Blockende+1 


099A 


aO 


?? 


LDY #?? 


(wird gesetzt) 


099C 
099E 


85 
84 


5a 
5b 


STA5A 
STY5B 


> Gbergabeadresse 


09A0 


a9 


?? 


LDA #?? 


> neues Blockende+1 


09A2 


aO 


?? 


LDY #?? 


(wird gesetzt) 


09A4 
09A6 


85 
84 


58 
59 


STA58 
STY 59 


> Ubergabeadresse 


09A8 


20 


bf a3 JSR A3BF 


> Sprung in Verschiebe- 


09AA 


4C 


?? ?? JMP ???? 


routine 
> Einsprungadresse 
(wird gesetzt) 



Assemblerlisting des Programmkopfes 



nen normalen Basic-Start besitzt. Es braucht lediglich noch 
auf den Datentrager gespeichert zu werden — fertig! Das 
SAVEn geschieht mit SAVE"name",8 (1 fur Cassette). Da- 
mit entfallt die leidige Frage nach dem SYS-Befehl, die bei 
einer groBen Programmsammlung schon lastig sein kann. 
Das so praparierte Programm kann normal (mit »,8« oder 
»,1«) geladen und mit RUN gestartet werden. 



Ausgenommen sind Programme, die im Bereich von 
$0800 bis $09af und unter dem Basic- und Kernel-ROM lie- 
gen, da hier der Basic-Start-Generator und von ihm ver- 
wendete Routinen liegen. 
Tips zur Bedienung 

1. Laden des zu bearbeitenden Maschinenprogramms 

2. NEW eingeben 

3. Laden des Basic-Start-Generators mit LOAD "START- 
GENERATOR", 8 

4. Starten mit RUN 

5. Eingabe von SYS 2089,[anfang],[ende+1],[einsprung] 

[anfang]: Beginn des Maschinenprogramms im Speicher 
[ende]: Ende des Maschinenprogramms im Speicher 
[einsprung]: Einsprungadresse, also der SYS-Wert, mit 
dem normalerweise das Programm gestartet wurde. 

Alle Parameter mussen in dezimaler Schreibweise ein- 
gegeben werden, wobei der korrekte Bereich (0 bis 65535) 
selbst uberpruft werden muB. Es wird ein "ILLEGAL QUAN- 
TITY ERROR«ausgegeben, falls [anfang] > = [ende] ist. 

6. Speichern des erzeugten Programms mit SAVE 
"name",8 

Funktion 

Nach der Eingabe und Umrechnung der Parameter in 
das 16-Bit-Format wird das Quellprogramm direkt hinter 
den Start-Generator kopiert (ab $08af). Dem Quellpro- 
gramm ist nun sein spaterer Basic-Programmkopf vorgela- 
gert. Des weiteren wird nun ein Teil des Start-Generators 
nach $C000 kopiert, der die weitere Arbeit ubernimmt. 

Jetzt werden der Programmkopf und das dahinter liegen- 
de Quellprogramm nach $0800, also dem Basic-Start, ko- 
piert. AnschlieBend werden die Basic-Pointer (Anfang/En- 
de des Basic-Programms) und im Programmkopf die 
Adressen gesetzt. Nach der Meldung ..READY TO SAVE« 
kann das bearbeitete Programm gespeichert werden. 

Nun eine nahere Erlauterung zum Programmkopf: Im 
Basic-ROM gibt es eine Unterroutine, die Speicherinhalte 
verschieben kann und deren Einsprungpunkt bei $A3BF 
liegt. 

Diese Verschieberoutine macht sich der Basic-Start-Ge- 
nerator im Programmkopf zunutze, so daB das Quellpro- 
gramm wieder in seinen Ursprungsbereich kopiert werden 
kann. Die Obergabe der Kopierparameter erfolgt in den 
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Adressen: 

$5F/$60 — alter Blockanfang 
$5A/$5B — altes Blockende + 1 
$58/$59 — neues Blockende + 1 

Nach dem Start des mit einem Basic-Start versehenen 
Programms wird die Blockverschieberoutine (siehe auch 
den Artikel »Maschinen-Power von Basic aus« in diesem 
Sonderheft) aktiviert und das Programm in seinen Bereich 
kopiert und gestartet. 

Soil das Programm nach RUN nur an seinen ursprungli- 
chen Start verschoben werden, miissen Sie als Einsprung- 



adresse eine Adresse wahlen, bei der ein RTS (return to 
subroutine) steht. Beispielsweise 64922, eine Adresse im 
Betriebssystem des C 64. RTS entspricht einem RETURN 
in Basic. Es bewirkt, daB das Programm zwar verschoben, 
aber nicht gestartet wird. Haben Sie zum Beispiel den 
SMON mit dem Start-Generator behandelt, meldet sich der 
SMON nach RUN mit der Registeranzeige, wenn Sie als 
Einsprungadresse 49152 angegeben haben. Haben Sie 
64922 angegeben, kommt die READY-Meldung. Mit 
SYS49152 kbnnen Sie dann den SMON starten. 

(Hermann-Josef Rottkemper/Nikolaus Heusler) 
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02 
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Listing 1. Der Basic-Start- 




0B81 : 
0B89 : 


3c 
fd 


a9 83 85 fc 
20 f9 08 4c 


a9 
1* 


09 85 
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70 

2a 
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00 

00 


BS 

i.0 


39 

aS 


a9 

39 
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B5 


2d 
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a5 
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3a 


45 
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Generator. Beachten Sie bitte die 
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00 
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as 


20 9e 


ae 


0939 : 


85 


2b 


a5 


2d 


8d 


16 


08 


aS 


d9 


Eingabehinweise auf Seite 159 





Der Griff in 
die Tips- und Trkks-Kiste 

Die Beitrage der Rubrik Tips & Tricks sind oftmals unentbehrliche Heifer bei der Arbeit mit dem C64. 
Doch nur selten findet man aus der Vielzahl der Tips den richtigen auf Anhieb heraus. Eine Zusam- 
menstellung der besten und interessantesten Tricks schafft hier Abhilfe. 



Das lastige Suchen nach den benotigten Tips & Tricks 
hat ein Ende. Denn in diesem Bericht haben wir die 
nutzlichsten Tips, Tricks und Einzeiler aus der FQIIe 
der 64'er-Magazine gesammelt und thematisch geordnet. 
Die Palette derThemen reicht von einfachen Helfern fiir Da- 
tasette und Diskette, uber Rechenprobleme und Program- 

mierhilfen bis hin 



Themengebiet 


Seite 


zu interessanten 
Effekten. Des 


Cursorsteuerung 


132 


besseren Uber- 


Datasette 


133 


blicks wegen fin- 


Floppy-Tricks 


135 


den Sie in Tabelle 


Sound 


138 


1 eine Grobglie- 


Effekte 


139 


derung der The- 


Scrolling 


139 


men mit den ent- 


Arithmetik-Tricks 


140 


sprechenden 


Programmiertricks 


142 


Seitenzahlen. 


Programmschutz 


148 


Diese Ansamm- 
lung der ver- 
schiedensten 


Tabelle 1. Die Themen der einzelnen 


Tips und Tricks im Uberblick 


Tips & Tricks sind 






fur den Einstei- 



ger — und nicht nur fiir diesen — eine reichhaltige Fund- 
grube und zugleich Anreiz, selbst auf »Entdeckungsreise« 
zu gehen. Wir wiinschen Ihnen viel SpaB beim Ausprobie- 
ren und Experimentieren. (Michael Thomas/sk) 



Cursorsteuerung leichtgemadit 

Bei professionellen Programmen der PC-Klasse kann der 
Cursor meist uber Eingabegerate wie die Maus positioniert 
werden. DaB es auch recht gut mit dem Joystick und dem 
C 64 funktioniert, beweist dieses Programm. 

Haben Sie den kurzen MSE-Lader (Listing 1) eingetippt 
und gestartet, konnen Sie den Cursor mit einem Joystick in 
Port 2 steuern. Das Steuerprogramm befindet sich von 
Adresse $C000 bis $C066 im Speicher. Die ersten 15 Byte 
nimmt eine Initialisierungsroutine in Anspruch, die den In- 
terruptvektor auf $C00F legt und das Steuerprogramm in 
den Kernel-Interrupt einbindet. Die Routine wird mit SYS 
49152 aufgerufen. Das Programm benutzt Speicherzelle 
$02 als Zahlregister, da der Joystick nur bei jedem sechsten 
Interrupt abgefragt wird. In Zeile 300 des Assemblerlistings 
(Listing 2) wird die Zahlvariable urn 1 erniedrigt. 1st die Va- 
riable 0, wird sie auf 6 gesetzt und in die Steuerungsroutine 
verzweigt. Ab Zeile 360 wird der Tastaturpuffer auf freien 
Platz uberpruft. Sollte der Puffer voll sein, wird sofort in die 
Interruptroutine des Betriebssystems ($EA31) gesprungen. 
In Zeile 400 wird der Joystick abgefragt und das entspre- 
chende Cursorsteuerzeichen in den Akku geladen. Ab 800 
wird das Zeichen in den Tastaturpuffer geschrieben und der 
Pufferzeiger erhoht. (P. Siepen/sk) 
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PROGRAMM I CURSOR 








caae cb&£ 
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B5 


02 


60 


C6 
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C010 : 
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Listing 1. Listing 
zu »Cursorsteue- 


CB3B : 
CB3B : 
CB4B : 
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20 
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02 
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AD 
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rung leichtge- 
macht«. Das Pro- 
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C050 : 
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29 BB C9 BB 
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AD 
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A6 

00 


DC 
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C6 
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gramm muB mit 
dem MSE eingege- 
ben werden. 



IB REM********************************* 


20 REM* CURSOR STEUEREUNG * 


30 REM* 






* 


65 REM* 


PETEI SIi Pl-IN 


70 REM* 






* 


75 REM* 


VON- 


3TEPHAN- 


STR.6 * 


80 REM* 






» 


82 REM* 


4200 


OBERHAUSEN 1 * 


B4 REM* 






* 


85 REM* TELEFON 


: (0208>/26555 * 


95 : 








100 SYS9*4096 






110 -OPT P.OO 






111 : 








112 : 








113 t 








114 : 








120 *= *C00E 








125 : 








130 : 








140 : 








150 TEST = 


*02 




; ZAEHLVARIABLE 


160 JOY 


56320 


;PORT #2 


170 AZITP = 


*C6 




;ANZAHL ZEICHEN IM PUFFER 


174 : 








175 I 








180 LDA #< BEG INN 


INTERUPTVEKTDR 


1B5 STA *314 








190 LDA #> BEG INN 


AUF NEUE 


195 STA S31E 




ADDRESSE SETZEN 


200 LDA »*0£ 




ZAEHLVARIABLE 


205 STA TEST 




HDCHSETZEN 


210 RTS 




ZURUECK 


ZU BASIC 


215 : 








220 : 








225 : 








300 BEG INN 


DEC 


TEST 




320 : 


BEQ 


START 


;GENUG LEER IRR 


330 : 


JMP 


SEA31 


;NEIM WEITER MIT IRR 


340 START 


LDA 


#*06 


; ZAEHLVARIABLE HOCHSETZEN 


350 : 


STA 


TEST 




360 : 


LDX 


AZITP 


; TASTATURPUFFER 


370 : 


CPX 


MOB 


;VOLL 


380 : 


BCC 


ME ITER 




390 I 


JMP 


*EA31 


JJA WEITER MIT INTERUPT 


400 WE ITER 


LDA 


JOY 


;WENN JOY NICHT 


410 : 


AND 


• 1 


;NACH OBEN 


420 : 


CMP 


M 


; WE ITER 


430 : 


BNE 


NOBEN 




440 : 


LDA 


#••□" 


;WENN J A STEUERZEICHEN 


450 : 


JSR 


AUSG 


; AUSGEBEN 


460 NOBEN 


LDA 


JOY 




470 : 


AND 


»2 




480 : 


CMP 


#0 




490 : 


BNE 


NUNTEN 




500 : 


LDA 


#"BT 




510 : 


JSR 


AUSG 




520 NUNTEN 


LDA 


JOY 




530 : 


AND 


•4 




540 : 


CMP 


M 




550 : 


BNE 


NLINKS 




560 : 


LDA 


#"H" 




570 : 


JSR 


AUSG 




580 NLINKS 


LDA 


JOY 




590 : 


AND 


«8 




600 : 


CMP 


•0 




700 : 


BNE 


NRECHTS 




710 : 


LDA 


#"B" 




720 : 


JSR 


AUSG 




730 NRECHTS 


JMP 


*EA31 





740 : 






750 : 






760 : 






770 : 






780 : 






790 : 






800 AUSG 


LDX »C6 


jX-REG FUER 


B10 : 


STA *277,X 


i INDIZIERTE 


820 : 


INC AZITP 


; ADDRESS I ERUN6 


830 : 


RTS 


; LADEN 


840 : 




j IN TASTPUFFER 


850 : 




;SCHREIBEN 


860 : 




jANZAHL ZEICHEN 


870 : 




; IM TASTPUFFER 


880 : 




; ERHOEHEN 


890 : 






900 : 
READY. 


Listing 2 


Assemblerprogramm der 


Cursorsteuerung 



Cursor steuern 



Das Betriebssystem des C 64 enthalt eine Routine, die man 
benutzen kann, um den Cursor an eine beliebige Stelle zu 
setzen. Geben Sie doch mal folgendes ein: 
POKE 214, (Zeile) : POKE 211, (Spalte) : SYS 58640 
: print "text" (Michael Keukert/sk) 



Cursor beschleunigt 



Fur alle diejenigen C64-Besitzer, denen die Bewegung des 
Cursors bisher zu langsam war, gibt es einen speziellen 
POKE. 

Mit POKE 56325,5 wird der Cursor rasend schnell und 
flitzt bei Betatigung der Cursortasten nur noch so iiber den 
Bildschirm.Wer'sliebergemutlichermag.dersollteesstatt 
dessen einmal mit POKE 56325,255 probieren. 

(Oliver Bausch/sk) 

Kassettenpuffer verlegen 

Kiirzere Maschinenprogramme werden vom Programmie- 
rer gerne im Kassettenpuffer abgelegt. Den Floppy-Be- 
sitzer stdrt dies nicht. Er kann Programme laden und das 
Maschinenprogramm bieibt ihm erhalten. Nicht so beim 
Benutzer einer Datasette. Ladt er ein Programm von Kas- 
sette in den Bereich ab 828 ($033C), so wird es zerstort. Es 
gibt aber einen Trick, den Kassettenpuffer an einen ande- 
ren Speicherbereich zu legen. In den Speicherstellen 178 
und 179 steht der Beginn des Kassettenpuffers. Normaler- 
weise beginnt dieser bei 828. Durch Verandern dieses Vek- 
tors konnen wir den Kassettenpuffer beim Laden von Pro- 
grammen schonen. Um ihn ans Ende des Speicherbe- 
reichs zu legen, schreiben Sie: POKE 179, PEEK (56)-2. 

(Herbert Kunz/sk) 

Datasette richtig justiert 

Jetzt ist SchluB mit -LOAD ERROR« beim Abspielen von 
fremden Kassetten. 

Jeder, der eine Datasette besitzt, weiB, daB diese bei ei- 
nem anderen C 64-Besitzer meist nicht mit derselben Ton- 
kopfeinstellung justiert ist. Bekommt man eine heiBerwarte- 
te Kassette mit Spielen Oder anderen Programmen, wo- 
moglich noch im Turbo-Tape-Format, ist die Enttauschung 
groB, wenn man feststellt, daB die Tonkopfjustierung von 
Aufnahme- und Wiedergabegerat abweicht. 
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C 64 



10 FOR 1=36864 TO 36935: READ A=S=S+A:POKE 

T, A: NEXT <054> 

20 IF S<>6828 THEN PRINT"FEHLER IN DATA'S! 

":STOP <034> 

30 PRINT "CCLR. DOWN. 5RIGHT>SYNCHRO-TEST FUE 

R DATASETTEN" <041> 

40 PRINT' C3D0VN,5R,IGHT>RUECKSPUl J EN UND 'PL 

AY' ODER" <006> 

50 PRINT " BRIGHT}' PLAY' +' RECORD' DRUECKEN . <119> 
60 PRINT" C2DOWN>SIGNAL<:SPACE , RVS01OACRV0FF 

>USWERTEN ODERCSPACE . RVSONJS<:RVOFF)CHRE 

IBEN? "; <123> 

70 POKE 204,0:GET A«:IF A$="A"THEN SYS 368 

96 <188> 

80 IF A$<>"S"THEN 70 <174> 

90 SYS 36864 <126> 

100 DATA 169.0,141.17,208,120,173.18,208.7 

4.74.74,74.41,8,9,7,133,1 ,141 ,24 <204> 
110 DATA 212,74,74,74,141,32,208,76,6.144, 

234.120,169.7.133.1.169,0,141 ,17 <020> 
120 DATA 208,141,32,208,173,13,220,41,16,2 

40,249.173,32.208.73,1 ,141,32,208 <046> 
130 DATA 10.10,10,141,24,212,76,45,144.0,0 

,1 <068> 

6 64 'er 

Listing 3. "Synchro Justage- erlaubt Ihnen, Ihre Data- 
sette auf fremde Kassetten einzustellen 



"SYNCHRO JUSTAGE« (Listing 3) brennt einer.Kassette 
ein 50-Hertz-Synchronsignal auf, das nach der Ubergabe 
der Kassette mit "SYNCHRO JUSTAGE« auf dem Bild- 
schirm ausgewertet wird. Der Empfanger stellt nun mit der 
Einstellschraube seinen Tonkopf so ein, daB das Flackern 
des Bildschirmes minimal wird. Je weniger er flackert, de- 
sto besser hat man justiert. Wandert der Synchronbalken 
nach oben, lauft die Datasette bei der Wiedergabe schnel- 
ler als bei der Aufnahme und umgekehrt. Dann gilt es, zu- 
satzlich die Motorgeschwindigkeit zu uberpriifen und opti- 
mal einzustellen, bis der schwarze Balken stillsteht. 

(Reinhard Abdel-Hamid/sk) 



Programme von Datasette nachladen 



Mit Hilfe der folgenden POKE-Befehle wird das nachste 

Programm von der Datasette nachgeladen und automa- 

tisch gestartet: 

POKE 631,131 : POKE 198,1 : END 

Funktionsweise: 

Dem C 64 wird durch den ersten POKE vorgetauscht, es 
wurde gerade die SHIFT-RUN/STOP-Taste gedriickt. Der 
Code dieser Tastenkombination (131) wird in den Tastatur- 
puffer ab Adresse 631 geschrieben. Daraufhin muB dem 
Computer nochmitgeteilt werden, daB sich in diesemTasta- 
turpuffer ein noch nicht bearbeiteter Tastencode befindet 
(POKE 198,1). (Hans Ippisch/sk) 



Bildschirm auf Kassette/Diskette 



Das kurze Maschinenprogramm (Listing 4) dient dazu, den 
Bildschirminhalt des C64 zu speichern und auch wieder 
einzuladen. Dies kann mit einem Recorder oder Disketten- 
laufwerk geschehen. Dabei werden auBer dem eigentli- 
chen Bildschirmspeicher (der an eine beliebige Stelle ver- 
schoben sein kann und nicht ab Adresse 1024 liegen muB) 
auch das Color-RAM und die Tabelle der Doppelzeilen- 
kennzeichnungen mitberiicksichtigt. Das Speichern und 



Laden erfolgt iiber einen Pufferbereich im »versteckten« 
RAM ab 40960, da die drei verschiedenen Speicherberei- 
che in einem Stuck gespeichert und auBerdem die 1000 
Farbnibbles zu 500 Byte zusammengeschoben werden. 
Daserspartbeim Arbeiten mit dem Recorder wertvolleZeit. 

Nach dem Eintippen des Basic-Loaders kann durch 
»RUN 16« gepruft werden, ob es richtig eingegeben wurde. 
Trotzdem sollte es vor dem Start gespeichert werden, da 
auch durch Prufsummen nicht alle Fehler erkannt werden 
konnen. 

Ausgegeben werden zwei Adressen fur das Laden und 
Speichern. Das Programm kann an jede Stelle des Arbeits- 
speichers geladen werden, in der vorliegenden Version ladt 
es sich an das Ende des Basic-Arbeitsspeichers. Es ist da- 
von auszugehen, daB das Programm direkt nach dem Ein- 
schalten ohne andere Erweiterungen geladen und gestar- 
tet wird. 

Soil ein Bildschirminhalt auf Diskette gespeichert wer- 
den, so erfolgt dies durch 
SYS 40738 "FILENAME", 8 

Beim Arbeiten mit der Datasette kann (auch beim Laden) 
die Geratenummer entfallen; die Angabe einer Sekundar- 
adresse ist nicht erlaubt. 

Durch das Speichern bedingte Betriebssystemmeldun- 
gen wie "PRESS RECORD & PLAY« sowie das Scrolling 
des Bildschirms sind unbedeutend und werden nicht be- 
rucksichtigt. Alle Bildschirmdaten werden zuvor in einen 
Zwischenspeicher ubertragen. 

Das Laden solcherart gespeicherter Bildschirminhalte 
geschieht mit 

SYS 40833 "FILENAME", 8 



REM SCREENSAVER 64 

1 D=55:A=PEEK(56)*256+PEEK(D>-222:GOSUB 4: 
CLR : S=PEEK ( 56 ) «256+PEEK ( 55 ) 

2 FOR I=S TO S+22I:READ At POKE I,A:NEXTiA= 
S+173:D=S+1:G0SUB 4: D=S+96:G0SUB 4 

3 PRINT" <D0WN>SAVE5"S:PRINT"L0ADt"S+95: END 

4 POKE D.A-INT (A/256) »256: POKE D+l,A/256sR 
ETURN 

5 DATA 32, ,,162, 4, 177, 7, 145, 9, 200, 208,249, 
230,8,230, 10,202,208,242, 162,24, 1B1 

6 DATA 217,157,231,163,202,208,248,162,218 
,202,202,134,8,177,7,41,15,133,11,232 

7 DATA 232, 134, B, 177, 7, 10, 10, 10, 10, 5, 11, 14 
5,9,200,208,229,230,10,224,219,208,224 

B DATA 169,160,133,8,165,1,72,41,254,133,1 
,169,7,162,244,160,165,32,216,255,170 

9 DATA 104,133,1,138,176,1,96,76,249,224,3 
2,,, 169,, 32, 213, 255, 176, 243, 165, 1,72 

10 DATA 41,254,133,1,162,4,160, ,177,9,145, 
7,200,208,249,230,8,230,10,202,208,242 

11 DATA 162,24,189,231,163,149,217,202,208 

,248,162,218,202,202,134,8,177,9,145,7 

12 DATA 232,232,134,8,74,74,74,74,145,7,20 
0,208,235,230, IB, 224, 219, 208, 230, 104 

13 DATA 133, 1,96, 32, 87,226, 162, 1,32, 121,, 2 
40,3,32,241,183,160,2,32,186,255,173, 

14 DATA 221,73,3,133,8,173,24,208,41,240,7 
0,8, 106, 70, 8, 106, 133, 8, 160,, 132, 7, 132 

15 DATA 9,169,160,133,10,96 

16 CLR:FOR Q=.TO 221:READ A: X=A+X: Y=A-Y: NE 
XT 

17 PRINT" (DOWN) CHECKSUM "MID* ("ERROR OK",l 
-5»(X=27349 AND Y=-217) ,5) lEND 

© 64'er 



<057> 

<216> 

<101> 
<255> 

<071> 

<234> 

<117> 

<230> 

<038> 

<130> 

<154> 

<100> 

<131> 

<036> 

<047> 
<051> 

<057> 

<027> 



Listing 4. Listing zu -Bildschirm auf Kassette/Diskette« 



Zunachst werden die Daten in den Puffer von Adresse 
40960 bis 42483 geladen und dann in MSB-Tabelle, Farb- 
speicher und die momentan gewahlte Videomatrix ubertra- 
gen. (Ralph Babel/sk) 
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SAVE - mal etwas anders 



Laden Sie das Programm »CLIP« (Listing 5) mit LOAD 
"CLIP ",8,1 und geben Sie danach »NEW« ein. Von nun an 
konnen Teile aus Basic-Programmen auf Diskette gespei- 
chert werden. Es gibt vier Varianten, urn den Befehl anzu- 
wenden: 

1. SYS 828, »NAME« ,AZ 

2. SYS 828,»NAME«,AZ- 

3. SYS 828,»NAME«,AZ-EZ 

4. SYS 828,»NAME«,-EZ 

Dabei bedeutet: AZ = Anfangszeile, EZ = Endzeile 



Die Parameterverarbeitung entspricht dem List-Befehl. 
Der Programmteil wird unter »NAME« auf Diskette gespei- 
chert. Dieser Befehl erspart das zeitaufwendige und un- 
komfortable Loschen von Programmzeilen, urn am Ende 
dieser Prozedur nur die gewunschten Zeilen zu erhalten, 
die man speichern will. 

Zur Funktionsweise ware lediglich zu sagen, daB auf- 
grund der angegebenen Zeilennummern die Adressen der 
Zeilen im Speicher berechnet werden und danach dieser 
Speicherbereich auf Diskette gespeichert wird. 

Die Gerateadresse kann durch POKE 186, (gewiinschte 
Gerateadresse) geandert werden. 

(Hermann Schinagl/sk) 



Name 


clip 033c 03cb 


0374 
037 c 
0384 


01 e8 85 ae 86 af a0 06 


95 


03bc : an 66 af 4c fa f5 20 6b d9 


033c 


20 fd ae 20 57 e2 a9 08 


4e 


a2 00 bl 5f 48 8a 91 5f 
c8 bl 5f 48 8a 91 5f 20 


54 
f9 


03c4 : a9 4c 13 a6 4c 08 af 00 fl 


0344 


85 b8 20 fd ae f0 7d 90 


77 


038c 


fa f5 a0 07 68 91 5f 88 


2b 




034c 


4b c9 ab d0 77 20 73 00 


c7 


0394 


68 91 5f 60 20 c2 03 a5 


18 




03!>4 


20 c2 03 a5 2b a6 2c 85 


ee 


039c 


5f a« 60 65 cl 86 c2 20 


b3 


Listing 5. Mit »CLIP« konnen Sie 
einzelne Teile eines Programms 


035c 
0364 


cl 86 c2 a0 05 bl 5f f0 
08 e6 5f d0 f8 e6 60 d0 


62 
bb 


03a4 
03ac 


79 00 f0 b7 c9 ab d0 lc 
20 73 00 f0 06 20 c2 03 


c6 
16 


036c 


f4 a6 60 a5 5f 69 07 90 


ff 


03b4 


4c 5f 03 a5 2d a6 2e 85 


fl 


speichern 



Maschinenprogramme speichern 



Mit dem folgenden Einzeiler von Markus Eicher konnen 

Maschinenprogramme sehr einfach gespeichert werden, 

ohne den Basic-Pointer zu verstellen. Die Werte fur LE und 

HE werden berechnet, indem man auf die Endadresse eine 

1 addiert. 

Le = Low-Byte der Endadresse 

He = High-Byte der Endadresse 

La = Low-Byte der Anfangsadressse 

Ha = High-Byte der Anfangsadresse 

Low- und High-Byte einer Adresse werden so berechnet: 

Adresse = dez. 2000 

Highbyte = INT(2000/256)=78 

Lowbyte = 20000-Lowbyte*256=32 

Die Variable A$ enthalt den Namen der Datei, in die auf 
der Diskette das Maschinen-Programm abgelegt werden 
soil. X legt fest, ob das Programm auf Diskette (X=8) oder 
Kassette (X=1) gespeichert wird. 

Falls ein langer Programmname gewahlt wird, miissen 
die Befehle abgekurzt werden. 



1 sys(57812)a*,x:pokel93,ls:pokel t ?4,hs:p 
okel74,le:pokel75,he:sys62957 



Beispiel 1: 

Das Programm auf den Adressen 20000 bis 22000 soil 
auf der Diskette unter dem Namen »Beispiel1« gespeichert 
werden. Der Dateiname wird der Variablen$Azugewiesen. 
Die POKE-Befehle lauten: 

POKE193,32:POKE194,78;POKE174,241:POKE175,85 
Beispiel 2: 

Ein Programm von $C000-$C37E soil auf Kassette ge- 
speichert werden. Die Variable X hat also den Wert 1. 
Die Low- und High-Bytes sind: 

1. von $COOO 

Low = $00 = dez. 
High = SCO = dez. 192 

2. von $C37E 

Low = $7E = dez. 126 

High=$C3 = dez. 195 

Die POKE-Befehle heiBen: 

POKE193,0:POKE194,192:POKE174,127:POKE175,195 



Nadiladen von Maschinenprogrammen 



Oftmals mochte man ein Maschinen-Programm, welches 
beispielsweise bei $C000 steht, laden, wahrend noch ein 
Basic-Programm im Speicher steht. Ladt man das Maschi- 
nenprogramm nun mit 
LOAD "NAME", 8,1 

werden die Zeiger auf das Programmende des Maschinen- 
programms verstellt und es kommt zu einem OUT OF ME- 
MORY ERROR. Nach einem NEW, der dies behebt, ist lei- 
der auch das Basic-Programm weg und da der C64 keine 
OLD-Funktion (zum Zuriickholen mit NEW oder Reste ge- 
loschter Basic-Programme) bietet, sieht die Sache leider 
duster aus. 

Folgender Einzeiler behebt die Misere: 
SYS (57812) "NAME", 8,1: POKE 780, 0: SYS (65493) 

Alle Zeiger verbleiben im ursprunglichen Zustand. Dies 
Routine sperrt zudem einen Teil der Fehlermeldungen. Es 
kann beispielsweise kein LOAD ERROR auftreten. 

(Michael Patra/sk) 



Basic-Befehle als ID 



Wer schon immer einmal Basic-Befehle in seinem Directo- 
ry, besser gesagt an der Stelle, wo man sonst die ID vermu- 
tet, sehen mochte, kann dies in einer ganz einfachen Art 
und Weise erreichen: 

Man formatiert eine Diskette ganz normal, jedoch gibt 
man nicht zwei Ziffern als ID ein, sondern »geSHIFTete« 
Buchstaben (zwei Stuck). 

Wenn man danach das Directory ladt und listet, erkennt 
man als ID zwei Basic-Befehle, die der jeweils angegebe- 
nen ID entsprechen. Ein Beispiel: 

Man nehme eine leere Diskette und gebe ein: OPEN 
1,8,15, "N: Name, <SHIFTZ> <SHIFTX>": CLOSE 1. 
Dann LOAD"$",8 und LIST. Im Directory stehen als IDjetzt 
die Befehle »RETURN« und »RESTORE«. Mit diesen und 
anderen geSHIFTeten Buchstaben und Zeichen lassen 
sich leicht abwechslungsreiche Directories gestalten. 
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File-Eintrage mit Sonderzeichen 



Mit dem Einzeiler von Ralf Peiler lassen sich Zusatze an Fi- 
lenamen im Directory anhangen. So wird zum Beispiel aus 
dem Directory-Eintrag "name" der Directory-Eintrag "na- 
me", 8: oder "name ",8,1. Doch nun der Einzeiler: 

INPUT " name ";A$: OPEN 1,8,15, "R: "+A$+" (SHIFT SPACE) 

(CBM D)8(SHIFT @[="+A$: CLOSE 1 

(SHIFT SPACE) teilt dem DOS mit, ein Anfuhrungszeichen 

zu setzen. 

(CBM D) ist der Code f ur »,«. »8« entspricht der normalen »8« 

und (SHIFT @)ist der Code fur »:«. Soil »,8,1« an den Filena- 

men angehangt werden, so ist (CBM D}8(SHIFT @>< zu er- 

setzen durch »(CBM D)8(CBM D>«. Wie Sie sehen, geht das 

Anhangen kinderleicht. Verbluffung kann man auch durch 

ein buntes Directory erzeugen. Allerdings lassen sich nicht 

samtliche Farben darstellen. Bisher sind folgende Kombi- 

nationen gefunden worden: 

name (SHIFT SPACE] (CTRL 2]= name - 

(CTRL 3!= name — 

(CTRL 4) = name — 

(CTRL 6]= name — 

(CTRL) = name — 

(DEL) = name — 



name (SHIFT SPACE) 
name (SHIFT SPACE) 
name (SHIFT SPACE) 
name (SHIFT SPACE) 
name (SHIFT SPACE) 



name (SHIFT SPACE) (RVSON) = name — 



we IB 

rot 

blau 

griin 

elr 

del (auch 

mehrmals) 

bis »PRG« 

revers 



Schreibschutz fur Disketten 



1st es Ihnen nicht auch schon einmal passiert: Sie haben in 
muhevoller Kleinarbeit eine Diskette mit alien wichtigen 
Programmen zusammengestellt, und wie es der Zufall will, 
plotzlich befinden sich durch falsche Eingabe Files auf der 
Diskette, die nicht dort hingehoren, oder die Diskette ist neu 
formatiert. Gut, Files lassen sich loschen. Mit einer neu for- 
matierten Diskette sieht das schon anders aus. Die auf ihr 
gespeicherten Programme sind verloren. 

Der mechanische Schreibschutz (Aufkleber) ist auch 
nicht der Weisheit letzter SchluB, urn solchen Zufallen zu 
begegnen. Wenn haufiger Daten auf der Diskette geandert 
werden sollen, muB der Schreibschutz jedesmal entfernt 



10 OPEN 15,8,15>"I":OPEN 2.8,2, "»" 


<076> 


20 FRINT«15,"U1 2 18 0" 


<248> 


30 PRINT#15."B-P 2 2 ' '■ GETB2 . FO* 


<U3> 


50 PRINT"CCI,R.2DOWN,3SPACEJALTES FORMATZEI 




CHEN = " ; FO$ 


<189> 


55 IF FO$="A"THEN X5="X" 


<031> 


56 IF F0»O"A"THEN X$="A" 


<136> 


60 PRINT" (DOWN. 3SPACE5NEUES FORMATZEICHEN 




= ";X$; "CLEFT}"; 


<146> 


70 POKE 198,0= WAIT 198,1 


<042> 


80 AS=X$:GET X$:IF X$=CHR$< 13 >THEN X$=A$:G 




OTO 90 


<043> 


85 PRINT X$ 


<191> 


90 IF FO$="A"THEN 200 


<172> 


100 PRINTttl5,"M-W"CHR$<l>CHR$(l >CHR$<1>CHR 




$(65) 


<189> 


200 PRINTB15, "B-P 2 2" :PRINT«2 ,X$ ; 


<071> 


220 PRINTH15.'U2 2 18 0": PRINT 


<119> 


230 IF X$="A"THEN PRINT"<2DOWN .3SPACE.RVSO 




NJSCHREIBSCHUTZ ENTFERNT" 


<197> 


240 IF X$o"A"THEN PRINT " <2DOWN ,3SPACE,RVS 




ONJSCHREIBSCHUTZ AKTIVIERT" 


<229> 


250 PRINT«15,"I":CLOSE 2= CLOSE 15 


<047> 
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Listing 6. Schreibschutz fur Disketten 





und nach erfolgreicher Anderung wieder angebracht wer- 
den. Urn diesen mechanischen Schreibschutz zu umge- 
hen, kann eine Diskette auch softwaremaBig geschutzt 
werden (Listing 6). 
Wie das funktioniert, soil kurz erklart werden. 

Auf der Diskette ist im 2. Byte auf Spur 18 Sektor das 
Formatkennzeichen der .1541 gespeichert, und zwar die 
Zahl $41 . Wird in dieses Byte eine andere Zahl geschrieben 
(mit einem Disketten-Monitor), so funktioniert das Be- 
schreiben einer Diskette nur so lange, bis die Floppy- 
Station neu initialisiert wird (zum Beispiel aus- und wieder 
einschalten). Wird jetzt versucht, ein Programm oder Daten 
zu speichern, meldet die Floppy-Station einen Formatfeh- 
ler und nichts geht mehr. Dieser Software-Schutz funktio- 
niert auch dann, wenn versucht wird, die Diskette mit 
OPEN 15,8,15, "N:TEST" 

zu formatieren. Das heiBt, formatiert wird die Diskette mit 
dieser Befehlssequenz eigentlich nicht. Es wird nur das In- 
haltsverzeichnis und ein Diskettenbereich (BAM) geloscht, 
der Informationen daruber enthalt, welche Diskettenblocke 
belegt sind und welche nicht. Dieser Vorgang nennt sich 
auch »weich formatieren«. 

Soil eine softwaremaBig geschutzte Diskette »ent- 
scharft« werden, taucht ein Problem auf. Es laBt sich ja ab- 
solut nichts mehr speichern beziehungsweise andern. Man 
muB also das Betriebssystem der Floppy-Station davon 
iiberzeugen, daB das richtige Formatkennzeichen an der 
richtigen Stelle steht. Dazu existiert im Speicher der 
Floppy-Station eine Speicherzelle, in die nach jeder Initiali- 
sierung das aktuelle Formatkennzeichen gespeichert wird. 
Es handelt sich urn die Speicherzelle $101. Wird in diese 
Speicherzelle mit dem Befehl 

PRINT#15,"M-W"CHR$(1)CHR$(1)CHR$(1)CHR$(65) 
(Zeile100)wiederdas1541-Formatkennzeichen($41 bezie- 
hungsweise 65 oder A) geschrieben, laBt sich die Diskette 
wieder ganz normal beschreiben. Unter anderem kann nun 
auch wieder das Formatkennzeichen auf der Diskette ge- 
andert werden. (Bruno Henze/sk) 

Directory ohne Programmveriust 

Haufig mdchte man sich das Directory einer Diskette anse- 
hen, ohne das gerade im Speicher befindliche Programm 
zu zerstoren. Wenn man das DOS 5.1 nicht geladen hat, be- 
hilft man sich meist mit der zeitaufwendigen Zwischenspei- 
cherung des Programms auf der Diskette. Es geht jedoch 
auch einfacher und schneller. Geben Sie einfach den fol- 
genden Befehl ein: 
POKE 44, PEEK (46) + 1 

Damit wird der Basic-Anfang auf einen freien Speicher- 
bereich gestellt. Sie konnen jetzt wie gewohnt mit 
•LOAD "$",8« 

das Directory laden und anschlieBend auflisten. 

Mit POKE 44,8 sind Sie dann wieder im eigentlichen Pro- 
gramm. 

Gleiches bewerkstelligt auch folgender Einzeiler. 



get#l,a$:a=asc (a*+"?3") :printchr*( <a=13 
0andl3or ( <31<aanda<95> anda) ) ) ; : gotoB 



Er wird gestartet mit 
OPEN 1,8,2, "$":G0T0 0. 

Der OPEN-Befehl eroffnet eine sequentielle Datei (hier 
das Directory) zum Lesen. Mit 

GET#1,A$ 

wird ein Byte vom Disketten-Puffer geholt und das Kom- 

mandO A=ASC(A$+"SHIFT/HOME" ) 
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wandelt ASCII-Zeichen in Zahlen (von bis 255) urn. Hat A$ 
die LangeO, sobehaltderAusdrucktrotzdem die Lange 1. 
Durch 

PRINT CHR$( (A=130 AND 13 OR ( (31< A AND A<95) AND A) ) ) ; 
wird das zugehorige Zeichen zu A gedruckt, wenn A einen 
Wert zwischen 32 und 95 hat. 1st A=130, so wird RETURN 
ausgegeben. Die Steuerzeichen und Grafiksymbole wer- 
den durch die Formel innerhalb der Charakterstring- 
Klammer »herausgefiltert«. Nur Zahlen, Buchstaben und 
Satzzeichen werden ausgedruckt. 

Die Routine kann auch fur andere Zwecke angewendet 
werden. 

Es ist ohne weiteres moglich, alle Kommentare, Inhalte 
von Print-Anweisungen und Texte des auf der Diskette be- 
findlichen Programms auf den Bildschirm zu bringen, da 
man alle Programme auf der Diskette als sequentielle Datei 
lesen kann. 

Eroffnen Sie die Datei dafiir nach dem folgenden 
Schema: 
OPEN 1,8,2, "filename" 

Dann wird das Programm mit 
GOTO gestartet. Wenn die Ausgabe beendet ist, wird mit 
derRUN/STOP-TastedieEndlosschleifewiederverlassen. 

(Heinzpeter Oelkers/sk) 



Floppy-Lister 



Mit einem einfachen SYS-Aufruf konnen Sie Programme 
und sequentielle Dateien direkt von Diskette listen. Pro- 
gramme im Speicher bleiben dabei erhalten. 

»Floppy-Lister« bietet zwei Moglichkeiten, ein Programm 
von Diskette zu listen. Basic-Programme und sequentielle 
Dateien konnen entweder als Klartext Oder als Speicher- 
auszug (Dumps) gelistet werden. Im Dumpmodus werden 
samtliche Daten als Hexcodes ausgegeben und, soweit 
moglich, in ASCII-Zeichen ubersetzt. Deshalb eignet er 
sich besonders zum Analysieren von unbekannten Pro- 
grammdateien. Maschinenprogramme diirfen grundsatz- 
lich nur auf diese Art gelistet werden, will man einen Ab- 
sturz vermeiden. 

Ist das Ladeprogramm (Listing 7) mit dem MSE einge- 



tippt, kann das Maschinenprogramm auf Diskette Oder Kas- 
sette gespeichert werden. Der »Floppy-Lister« kann dann 
direkt geladen (LOAD "name", 8, 1, Oder LO- 
AD "name", 1, 1) und mit SYS 49152, "XYfile- 
name " aufgerufen werden. Vergessen Sie nach dem abso- 
luten Laden nicht, den erforderlichen NEW-Befehl im Di- 
rektmodus einzugeben, urn die Basic-Zeiger in einen ver- 
nunftigen Zustand zu bringen. 

»X« steht fur die Fileart: entweder »P« fur Programm Oder 
»S« fur sequentielle Datei. »Y« steht fur den Modus, in dem 
gelistet werden soil: »L« fur einfaches Listen und »D« fur 
Ausgabe in Form eines Speicherauszugs. Zum Beispiel li- 
stet der Befehl SYS 49152, "SLTESTSEQUENZ" eine 
sequentielle Datei mit dem Namen »TESTSEQUENZ«. Ab- 
kurzungen des Filenamens mit »*« sind erlaubt. Falsche 
Eingaben werden mit einer Fehlermeldung quittiert. 

Mit der CTRL-Taste kann die Ausgabe verlangsamt und 
mit der RUN/STOP-Taste unterbrochen werden. Eine Fort- 
setzung erfolgt mit der A-, und vorzeitiger Abbruch des Li- 
stens mit der DEL-Taste. Am Ende eines Listings muB im- 
mer die SPACE-Taste gedruckt werden. 

Das Maschinenprogramm fur »Floppy-Lister« liegt im Be- 
reich von $C000 -$C2B2 (49152-49842). An das Programm 
schlieBt sich noch ein Pufferbereich an, in dem Daten zwi- 
schengespeichert werden. "Floppy-Lister" lauft mit den 
gangigen Erweiterungen, wie DOS 5.1, Simons Basic und 
Exbasic. (B. Schulzki/sk) 



Floppy-Zeit verkiirzen 



Die kleine Routine von Robert Loos dient dazu, die Zugriffs- 
zeit der Floppy-Disk 1541 ganz entscheidend zu verkiirzen. 
Eine sichere Funktion der Floppy wird nicht gefahrdet, 
wenn der Schrittmotor, der den Schreib-Lesekopf bewegt, 
wesentlich schneller arbeitet. Der Schrittmotor wird im In- 
terrupt bedient. Daher genugt es, die GroBe des Interruptin- 
tervalls zu verandern, um die Drehzahl des Motors zu be- 
einflussen. StandardmaBig wird etwa alle 15 Millisekunden 
(hier etwa alle 4 Millisekunden) ein Interrupt ausgelost, der 
den Stepper um eine Viertelspur bewegt. Alle Bewegungen 
des Kopfes werden dadurch fast viermal schneller. Vorteile 
sind neben der Zeitersparnis: 
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45 


52 3a 


20 


05 


c0B8 : 


9d 


22 


c3 


eB 


ad 


la 


c3 


9d 


5a 


C180 i 


51 


c2 


20 


SI 


c2 


a2 


ff 


20 


«6 


C27B I 


■".<■ 41 4d 45 


20 


5a 55 


20 


cd 


C090 l 


22 


c3 


68 


■8 


9d 


22 


c3 


•9 


IB 


C18B : 


51 


c2 


aS 


a7 


eB 


9d 


b3 


c2 


6B 


C2BB : 


4c 41 4e 47 


20 


21 0d 


BB 


29 


C098 : 


52 


■8 


9d 


22 


c3 


a9 


0B 


p8 


65 


C190 : 


eB 


03 


70 


f3 


20 


SI 


c2 


eB 


fe 


C288 I 


0d 46 45 48 


4c 


45 52 


3a 


bf 


c0aB : 


9d 


22 


c3 


aa 


If 


c3 


ad 


28 


34 


C198 I 


a5 


a7 


9d 


b3 


c2 


d0 


fS 


aB 


4b 


c290 : 


20 46 41 4c 


53 


43 48 


45 


aB 


C0a8 1 


03 


8d 


0f 


c3 


ad 


29 


0? 


Bd 


f9 


cla0 : 


9d 


b3 


c2 


e8 


9d 


b3 


c2 


a9 


ba 


C29B : 


53 20 45 49 


4a 


47 41 


42 


If 


C0b0 : 


10 


c3 


a9 


22 


Bd 


28 


03 


a9 


CM 


cU8 : 


b3 


B5 


5f 


a0 


c2 


B4 


60 


20 


lc 


c2aB t 


45 46 4f 52 


4d 


41 54 


2B 


97 


c0bB : 


c2 


Bd 


29 


03 


ad 


If 


c3 


•a 


14 


clb0 i 


37 


a5 


ad 


00 


03 


48 


ad 


01 


50 


c2a8 i 


21 0d 00 7f 


Cl 


e9 cB 


d7 


5e 


cBcto i 


25 


a0 


c3 


20 


bd 


ff 


a9 


02 


bl 


clb8 : 


B3 


48 


a9 


22 


8d 


00 


03 


a9 


c6 


c2b0 : 


cl e9 C0 32 


a9 


00 ff 


aa 


77 


C0c8 : 


a2 


0B 


a0 


02 


20 


ba 


f f 


20 


ef 


clrB : 


c2 


Bd 


01 


83 


20 


c3 


a6 


68 


75 














C0d0 : 


C0 


f f 


a2 


02 


20 


c6 


f f 


ac 


0a 


clc8 : 


8d 


81 


03 


6B 


8d 


00 


03 


20 


c9 














C0d8 : 


0e 


c3 


b9 


ab 


c2 


Bd 


11 


c3 


10 


cld0 i 


Bf 


c2 


b0 


bl 


4c 


■9 


cl 


20 


fe 


Listing 7. »Floppy-Lister« 
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Das Laufgerausch wird angenehm leise und kurz, und im 
Falle einer Kopfjustage fahrt der Kopf mit erheblich vermin- 
derter Kraft gegen den Anschlag, so da6 die Gefahr einer 
Dejustage deutlich gemindert ist. (sk) 



10 OPEN 1,8,15,"M-W"+CHR*<7)+CHR*C28>+CHR* 

<1)+CHR*<15> 
20 : 
30 REM ZUGRIFFSZEIT DER FLOPPY KUERZER 



Schreibt man nach dem Dateinamen — aber noch inner- 
halb der Anfuhrungszeichen — ein Komma und danach 
den Dateityp (»S« Oder »U«), so wird beispielsweise mit: 
LOAD "ADRESSEN,S",8 

eine sequentielle Datei mit dem Namen »Adressen« nach 
$0801 geladen. 



Hilfe bei »file not found« 



Der VALIDATE-Befehl kann mehr 



Datasetten-Besitzer verwenden ihn haufig, Eigentiimer 
einer Floppy-Station hingegen so gut wie nie. Dabei eignet 
sich der VALIDATE-Befehl auch hervorragend zum Ver- 
gleich von Maschinenprogrammen an nahezu jeder belie- 
bigen Stelie im Speicher. Wichtig ist das oft beim Program- 
mieren, wenn man wissen will, ob das Programm auf Dis- 
kette tatsachlich mit dem im Speicher stehenden uberein- 
stimmt, oder ob die aktuelle Programmversion schon ge- 
speichert ist. 

Der Befehl hierzu lautet ganz einfach: 
VALIDATE "NAME", 8, 1 

Sequentielle- und User-Doteien laden 



Will man mit dem normaien LOAD-Befehl eine Datei mit 
dem Zusatz »SEQ« oder »USR« laden, so erhalt man die la- 
pidare Meldung »FILE NOT FOUND ERROR«. Dabei ist der 
LOAD-Befehl ebenfalls leistungsfahiger, als er auf den er- 
sten Blick erscheint. 



Manchmal starrt man als stolzer Besitzer einer Floppy- 
Station auf den Bildschirm und die Fehlermeidung »file not 
found«. Besonders schlimm ist dies, wenn der Fehler in ei- 
nem Programm auftrat, man also nicht weiB, welches File 
denn nun nicht gefunden wurde. Kein Problem: Durch die 
Eingabe von »SYS 63123- (leicht zu merken) bringt der C 64 
die Meldung »SAVING...« und den zuletzt verwendeten 
File-Namen auf den Bildschirm. Sie kbnnen das leicht te- 
sten: Tippen Sie >.LOAD"XYZ",8« ein (plus RETURN-Taste) 
und anschlieBend »SYS 63123«. (sk) 



Tradc-Zerstbrer: Kopierschufz 



Diese Programmzeile von Jorg Wegmeyer produziert auf 
dem gewunschten Track der Diskette (Variable T) einen 
READ ERROR 21. Damit erreicht man einen relativ siche- 
ren Kopierschutz. 



1 openl ,B,15:open2,B,2,"#":print*l,"ul ! 
0";t;0:print#l , "ra-e"chrJ ( 163) chr* (253) 



Gerausche von A bis Z 



Durch Veranderung der Filterfrequenz und durch verschiedene Filter lassen sich einfache Gerausche erzeugen. 
Zeile 10 S=54272:Rem Basisregister 
Zeile 20 FORL=0TO24:POKES+L,0:NEXT 





Zeile 30 


Zeile 40 


Zeile 50 


Zeile 60 Zeile 70 


Zeile 80 


Zeile 90 


Zeile 100 


Gerausch: 


Frequenz 


Hall 


Grenz- 
frequenz 


Resonanz Pass 


Wellenform 


Schleife und 
POKE 


Warteschleife 
und GOTO 


SchuB 


POKE S+0,0: 
POKE S+1,18 


POKE 
S+5,1- 16+11 


POKE 

S + 22,110 


POKE POKE 
S+23,15'16+3 S+245'16+15 


POKE S+4.0: 

POKE 

S+4,129 


FORJ=1TO 

255: 

POKE S+0.J: 

NEXT 


FORA=1TO 

1000: 

NEXT:GOTO80 


Explosion 


POKE S+0,0: 
POKE S+1,6 


POKE 
S+5,2-16+13 


POKE 
S+22,100 


POKE POKE 
S+23,15>16+3 S+24,3- 16+15 


POKE S+4,0: 

POKE 

S+4,129 


FORJ=1TO 

100: 

POKE S+0.J: 

NEXT 


FORA=1TO 

4000: 

NEXT:GOTO80 


Uhrenschlag 


POKE S+0,0: 
POKE S+1,6 


POKE 
S+5,1- 16+10 


POKE 
S+22,110 


POKE POKE 
S+23,15'16+3 S+24,1 -16+15 


POKE S+4,0: 
POKE S+4,17 


FORJ = 1TO 

255: 

POKE S+0,7: 

NEXT 


FORA=1TO 

500: 

NEXT:GOTO80 


Brandung 


POKE S+0,0: 
POKE S+1,40 


POKE 

S+5,10- 16+12 


POKE S+22,0 


POKES+23,0 POKE 

S+24,0- 16+15 


POKE S+4,0: 

POKE 

S+4,129 


FORJ=1TO 

255: 

POKE S+0.J: 

NEXT 


FORA=1TO 

3500: 

NEXT:GOTO80 



Urn einen SchuB zu erzeugen, muB das Programm 
Beispiel so aussehen: 

10 S=54272 

20 F0RL=0T024:P0KE S + L,0: NEXT 

30 POKE S+0,0 : POKE S + 1,18 

-40 POKE S + 5,1 * 16 + 11 

50 POKE S + 22, 110 



zum 60 POKE S 

70 POKE S 

80 POKE S 

90 F0RJ = 

100 F0RA = 



+ 23, 15 * 16 + 3 

+ 24, 5 * 16 + 15 

+ 4, : POKE S + 4, 129 

1 TO 255 : POKE S + 0,J : NEXT 

1 T 1000 : NEXT : GOTO 80 



(Jurgen Husgen/sk) 
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Buntes Listing 



Wenn Sie ein Basic-Listing vor sich haben, werden Sie be- 
merken, wie schwierig es sein kann , zusammengehdrende 
Unterprogramme zu erkennen. Die Idee ist es nun, diese 
Unterprogramme einfach mit der gleichen Farbe aufzuli- 
sten. Dies konnen Sie mit Hilfe von »kiinstlichen Steuerzei- 
chen« (siehe Serie in friiheren 64'er-Ausgaben) umstand- 
lich oder auch mit List COLOR einfach erreichen. 

10 DATA 12, 201,143, 208, 11, 200, 177, 95, 201, 32, 2-40, 
3,141,134,2,136,104,76,26,167 

20 FOR 1=49152 TO 49171 : READ A : POKE I, A : NEXT 

30 POKE 774,0 : POKE 775,192 

Starten Sie hierzu das kleine Programm. Geben Sie hin- 
ter einem REM-Befehl direkt ein Zeichen ein, so wird dieses 
als Farbcode interpretiert. Wenn kein Zeichen hinter dem 
REM folgt, wird das folgende Listing schwarz gefarbt. 
Wenn Sie zwischen REM und dem nachsten Zeichen ein 
Leerzeichen eingeben, wird in der bisherigen Farbe weiter- 
gelistet. (Arno G6lzer/sk) 



miissen Sie Listing 6 abtippen. Danach wird uber zwei 
POKEs festgelegt, welcher Bildschirmbereich »geschut- 
telt« werden soil: 
POKE 49317, Wert 1 
POKE 49318, Wert 2 

Die Werte 1 und 2 errechnen sich wie folgt: 
Wert 1 = Startzeile (1 bis 25) x 8 + 41 
Wert 2 = Endzeile x 8 + 50 

Wenn Sie Listing 6 mit »run 60000* gestartet und die bei- 
den POKEs errechnet und eingegeben haben, konnen Sie 
die eigentliche »Schiittel-Routine« starten: SYS 49152. 
Wenn es Sie genug geschuttelt hat, beenden Sie den Spuk 
mit SYS 49299. (Erik Becker/sk) 



Explodierender Bildschirm 

Dieser Basic-Einzeiler bewirkt, daB der Bildschirm wie bei 
professionellen Spielen vibriert (zum Beispiel bei Explosio- 
nen): 



Die Sdiuttel-Schrift 



Dieses kleine Programm (Listing 8) laBt den Bildschirm in 
einem vorgewahlten Bereich hin- und herschutteln. Es eig- 
net sich auch zum Einbau in eigene Programme. Als erstes 



S9900 REM 


<013> 


59910 REM DATAS 


<210> 


59920 REM 


<035> 


60000 DATA 120,169,40,141,20,3,169,192.141 




,21 


<099> 


60001 DATA 3,173,165,192.141,18,208,173,17 




,208 


<020> 


60002 DATA 41.127,141,17,206,169.129,141,2 




6.208 


<036> 


60003 DATA 169.1.133.251.169.8.133.252,88. 




96 


<054> 


60004 DATA 173,25,208,141.25.208,48,7,173, 




13 


<215> 


60005 DATA 220,88.76.49.234.173.18,208,205 




.166 


<162> 


60006 DATA 192,176,70.165,251,201.1.240.33 




.165 


<215> 


60007 DATA 252,141,22,208,201.7,240.11.230 




,252 


<019> 


60008 DATA 173,166,192,141,18.208.76,129.2 




34.169 


<093> 


60009 DATA 1.133,251.173.166,192,141,18,20 




8.76 


<194> 


60010 DATA 129.234,165,252.141.22.208.240. 




11 .198 


<076> 


60011 DATA 252.173,166,192.141,18.208,76,1 




29,234 


<117> 


60012 DATA 169.0.133.251,173.166.192.141,1 




8,208 


<142> 


60013 DATA 76.129.234.169.8.141.22.208.173 




.165 


<167> 


60014 DATA 192,141,18,208,76.129.234.120.1 




69.0 


<126> 


60015 DATA 141,26,208,169.49.141,20,3.169, 




234 


<106> 


60016 DATA 141.21,3,88.96,40.82 


<132> 


60100 REM 


<215> 


60110 REM EINLESEN DER DATEN 


<187> 


60120 REM 


<235> 


61000 FOR 1=49152 TO 49318 


<057> 


61100 READ A 


<177> 


61200 POKE I, A 


<129> 


61300 S=S<A 


<015> 


61400 NEXT 


<193> 


61500 IF SO22085 THEN PRINT" FEHLER IN DAT 




AS ! " : END 


<006> 


61600 CUi 


<243> 


© 64 'er Listing 8. Die »Schiittelschrift« 



FOR A=0 TO 15: POKE 53270 , A : NEXT : GOTO 



(Jan Melichar/sk) 



Bildschirnteffekt 



Zwei interessante Bildschirm-Flimmer-Effekte zum Aus- 
probieren: 



10 FOR 1=18 TO 30: POKE 53265, I: NEXT I: GOTO 10 
10 FOR 1=1 TO 255: POKE 53270, I: NEXT I: GOTO 10 



Oder beide Effekte kombiniert: 



10 FOR 1=18 TO 30:P0KE 53270, I: POKE 53265,1: 
NEXT I: GOTO 10 



(Tzimas Kosta/sk) 



Soft-Scrolling 



Mit diesem Einzeiler von Georg Brandt kann ein beliebiger 
Text von rechts nach links punktweise iiber den Bildschirm 
geschoben werden. Die Variable A mit dem Wert 53270 bil- 
det das Register fur horizontales Smooth-Scrolling. Die Va- 
riable L enthalt die Anzahl der Zeichen (L=40 fur die ge- 
samte Bildschirmbreite, weniger fur kleinere Textaus- 
schnitte), die gleichzeitig auf dem Bildschirm erscheinen 
sollen. In der Variablen A$ erwartet die Routine den zu zei- 
genden Text. Das letzte Zeichen sollte ein Leerzeichen 
sein. Das rechtsbundige Zeichen des Strings steht zweimal 
auf dem Bildschirm, da es nicht gelbscht wird. 

Das Programm arbeitet nach folgendem Prinzip: Der 
Text wird auf den Bildschirm ausgegeben. Dann wird der 
Bildschirminhalt mit Hilfe des Smooth-Scrolling-Registers 
punktweise nach links gezogen, bis er urn sieben Punkte 
verschoben ist. Nun wird der gesamte Text nach links ge- 
schoben und das Scroll-Register zuriickgesetzt. Dadurch 
scheint der Text um den achten Punkt verschoben zu sein. 



(333? 



SONDERHEFT 24 



139 



TIPS&TRICKS 



C 64 



Wichtig: 

- Vor Programmaufruf sollte der Bildschirm geloscht wer- 
den, da sonst auch der restliche Bildschirminhalt verscho- 
ben wird. 

- Auch andere Steuerzeichen auBer dem hier verwendeten 
HOME konnen eingesetzt werden, um den Text zu positio- 
nieren. (sk) 



1 FOR R=l TO LEN(A*> 


.FOR 


1=207 


TO 


200 


STEP 


-1: PRINT" {HOME} 


'MID*(A* 


,R,L) 


POKE 


A 


I:NE 


XT I,R 
















10 : 
















20 REM SCROLL 

















Scrollen in x-Richtung 



Bei diesem Einzeiler von Hans-Peter Harmann kann die 
Geschwindigkeit des Scrollers je nach Anwendung neu 
eingestellt werden. Die Verzbgerungsschleife 

FORG=0TO3:NEXT 
muB nur entsprechend abgeandert werden. Durch den 
Wert 3 wird nur eine minimale Verzogerung erreicht. Expe- 
rimentieren Sie ruhig mal damit, mit welchen Verzoge- 
rungswerten der Bildschirm wie schnell gescrollt wird. 



10 i ort=lto7:poke53270,t:f org=0to3: next : 
next: onagotolO: -f ory=1024ta2023: pokey, 194 
: ne:<t : a=l : goto 10 
20 rem 



Scrollen bei bleibendem Text 



Dieses kleine Programm stammt von Peter Eckart. Es be- 
wirkt, daB nur Teile des Bildschirmes gescrollt werden. Die 
Zahl, die Sie in Speicherzeile 59693 POKEn, legt test, wie 
viele Zeilen am oberen Rand stehenbleiben. So kann man 
die Kopfzeile einer Tabelle auf dem Bildschirm festhalten 
oder eine Information, die fur ein Programm wichtig ist 
(Tastenbelegung, Erklarung der wichtigsten Befehle oder 
anderes). Beendet wird dieses Programm durch den Befehl 
POKE 1,55. 

Wenn Sie eine »0« gePOKEt haben, wird eine Zeile auf 
dem Bildschirm festgehalten. Beim POKEn einer »1« zwei 
Zeilen, beim POKEn einer »3« ... 

Obwohl diese Routine sehr kurz ist, braucht sie sehr lan- 
ge zur Ausfiihrung. 



1 fori=40960to49151:pokei ,peek (i ) :next:f 
ori=57344to65535:pakei ,peek(i) :next:poke 
59639, 10:pokel, 53 



Hexadezimal - Dezimal 



Immer mehr Leser fragen uns, wie sie moglichst einfach 
zwischen den beiden Zahlensystemen Dezimal und Hexa- 
dezimal umrechnen konnen. Wir wollen versuchen, einen 
leicht verstandlichen Losungsweg zu erarbeiten. 
1. Was ist das Hexadezimal-System? 

Im normalen Zehnersystem reprasentiert jede Stelle 
einer Zahl eine Zehnerpotenz. Die Zahl 4714 laBt sich auch 
als Summe von Zehnerpotenzen schreiben. 



4714 = 4x10 3 + 7x10 2 + 1x10 1 + 4x10° = 4x1000 + 7x100 
+ 1x10 + 4x1 

Beim Hexadezimalsystem wird nun jede Stelle einer Zahl 
nicht mehr durch eine Zehner-, sondern durch eine Sech- 
zehnerpotenz reprasentiert. Auch hier wieder ein Beispiel: 
Die Hexadezimalzahl 0324 bedeutet nichts anderes als 
3x16 2 + 2x16 1 + 4x16° (= 3x256+2x16 +4x1). 

Dies hat aber noch weitere Konsequenzen: 
Im Dezimalsystem wird eine Stelle immer von bis 9 (ins- 
gesamt 10 Ziffern) durchgezahlt, bevor die nachste Stelle 
um 1 erhoht wird. Also 
00 01 02 03 04 05 06 07 08 09 10... 

Im Hexadezimalsystem jedoch wird eine Stelle um 16 
Werte erhoht, bevor zur nachsten Stelle ein Wert hinzuge- 
f Ligt wird. Da aber unsere Ziffern von bis 9 dazu nicht aus- 
reichen, wurden zusatzlich die Buchstaben A bis F heran- 
gezogen. Sie vertreten die Zahlenwerte 10 bis 15 (von bis 
15 sind es 16 Werte!). Es bedeuten: 
A = 10, B = 11, C = 12, D = 13, E = 14, F = 15 

Die Dezimalzahl 10 ist also gleichwertig mit dem Hexade- 
zimalwert OA. Damit waren wir auch schon bei der Umrech- 
nung. 



- Hex X$ nach dezimal X:10 
x = 0:fori = ltolen(x$): 
x0 = asc (mid$(x$,i,l)):x = 16*x 
+ x0-48 + (x0>64)*7: next 



und - Dezimal X nach hex X$: 



— Dezimal X nach hex X$:10 
x$ = "":fori = Ito4:x0 = x/16: 
x = x-int(x0)*16:x$ = chr$ 
(48 + x-(x>9)*7 + x$:x= 
x0:next 



2. Dezimal - Hexadezimal 

Wenn wir eine Dezimalzahl in Hexadezimal umrechnen 
wollen, so bauen wir den Hexwert Stelle fur Stelle von links 
nach rechts auf. 

Nehmen wir also an, wir mochten die Dezimalzahl 41717 
in Hexadezimal umrechnen. Dazu teilen wir sie erst einmal 
durch 16 3 

41717 : 16 3 = 10,1848145 

Uns interessiert hier nur die Vorkommastelle 10. Sie ist 
gleichbedeutend mit dem Hexwert A. Er bildet die letzte 
Stelle unserer Hexadezimalzahl. 

Nun mussen wir von unserer Dezimalzahl 10x16 3 abzie- 
hen. Also 41717 - 10x16 3 = 757 

Um die nachsten Stellen unserer Hexzahl zu erhalten, 
fiihren wir diese Prozedur nun noch mit 16 2 und 16 1 durch: 
757: 16 2 = 2,9703125 (=2) 
757 - 2x16 2 = 245 
245 : 16 1 = 15,3125 (=F) 
245 - 15x16 1 = 5 

Als endgultige Umrechnung der Zahl 41717 ins Hexade- 
zimalsystem erhalten wir also A2F5. 

3. Hexadezimal - Dezimal 

Diese Umrechnung ist schon wesentlich einfacher. Um 
die Hexzahl A2F5 wieder zuriickzurechnen, geht man wie 
folgt vor: 
Ax16 3 + 2x1 6 2 + Fx16' + 5x16° 

Da man aber mit den Buchstaben A und F nicht rechnen 
kann, mussen diese als Dezimalzahlen angegeben wer- 
den. 
10x16 3 + 2x16 2 + 15X16 1 + 5x16° 

Wenn Sie dies auf Ihrem C 64 einmal ausrechnen, wer- 
den Sie als Ergebnis wieder die Zahl 41717 erhalten! (sk) 
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Umwnndlung beliebiger Zahlensysteme 



Die folgenden beiden Einzeiler von Martin und Hartmut 
Sprave dienen zum Umwandeln von Dezimalzahlen in Zah- 
len beliebiger Basis und umgekehrt. Man kann die beiden 
Programme kombinieren und erhalt so eine Umwandlungs- 
routine zwischen verschiedenen Zahlensystemen. Beide 
sind auch als Unterroutine in einem Programm denkbar. 

Zur Umwandlung dezimal/beliebig: 
Die Variable D enthalt eine Dezimalzahl beliebiger GroBe. 
In der Variablen B muB die Basis angegeben werden, die 
der umgewandelten Zahl zugrurvdeliegt. Das Ergebnis 
steht in Z$. 

Zum Programm: Die Dummy-Schleife (von bis 0) wird 
benutzt, um spater wieder mitten in die Zeile springen zu 
konnen. An jeder Stelle wird die Zahl in der Variablen D 
durch die Basis B geteilt. Dadurch wird die unterste Ziffer 
abgeschnitten. Die jeweils niederwertigste Stelle ist der 
ganzzahlige Rest dieser Division und steht in S. Dieser wird 
in ASCII-Code umgerechnet. Durch den CHR$-Befehl wird 
der Code zu einer Zeichenkette. Diese wird vorne an Z$ an- 
gehangt. Die letzte hochstwertige Ziffer ist erreicht, wenn 
D<1, da die nachste Stelle dann ist. Solange D>=1 ist, 
ist die Endbedingung noch nicht erreicht und die FOR- 
Schleife wird weiter durchlaufen (bis P+1 <=0). 



10 z*="":-forp=OtoO:d=d/b:s=(d-int (d) )*b: 
zt=chr$ (55+S+7* (s< 10) ) +z*: p=-d: next 
40 rem in 10 dez in beliebig 



Zur Umwandlung beliebig/dezimal: 



Diese Routine wandelt eine beliebig groBe Zahl, deren Ba- 
sis in der Variablen B steht, in eine Dezimalzahl um. Die 
Zahl selbst muB in $Z stehen. D wird mit initialisiert. Die 
Schleifenvariable S dient als Zeiger auf die einzelnen Stel- 
len von $Z. Diese werden nacheinander in ASCII-Code um- 
gewandelt. Der Code fur Null (48) wird subtrahiert und das 
Ergebnis in H zwischengespeichert. Man multipliziert die 
umgewandelten Stellen (in D) mit B und erhdht sie dadurch 
um eine Potenz dieser Basis. Dann addiert man die aktuelle 
Stelle (H) dazu. Bei Darstellung durch einen Buchstaben 
(H > 9) ist aufgrund des ASCII-Codes noch die Subtraktion 
einer 7 notwendig. Die Schleife wird so lange durchlaufen, 
bis die niederwertigste Stelle erreicht ist. 



20 d=0:-fars=ltolen (z*) :h=asc (mid*(z*,s) > 

-48:d=d*b+h+7*(h>9) -.next 

50 rem in 20 beliebig in dez 



Die Eingabevariable ist A. B dient als Zahlvariable und C 
als Rechen- und Ausgabe-Variable. 



Dividieren mit beliebig vielen 
Nachkommostellen 



Die Variable Z enthalt die Zahl, die geteilt wird, die Varia- 
ble D den Dividenden, durch den geteilt wird. In N kann die 
Anzahl der gewunschten Nachkommastellen angegeben 
werden. Die Variable E% enthalt das Ergebnis ohne Rest. 
Es wird ausgegeben. R enthalt den Rest und in Q% steht 
der Quotient (beschrankt auf Vorkommastellen). 

Die Vorkommazahl erhalt man durch Q=INT(Z/D), hier 
vereinfacht durch Q°/o=Z/D. Q% wird ausgegeben. Dann 
wird der Rest (Z-Q%*D) berechnet. Die Schleife wird n mal 
durchlaufen (N= Anzahl der Nachkommastellen). 

Analog zu Q% wird E°/o=R*10/D berechnet. E% wird 
ausgegeben als 1. Stelle. Der neue Rest wird gebildet 
durch: 
R(neu) = 10*R(alt)-D*E%. 

Nun kann die Schleife durchlaufen werden, bis alle 
Nachkommastellen ausgegeben wurden. 

Beispiel: Wie lautet die 85. Nachkommastelle von 
116/13? 

Z=116, D=13, N = 85 sind die Variablenwerte. Das Pro- 
gramm liefert das Ergebnis 9. 

Der Autor dieses Programms ist Heinz Bauschke. 




i = 


inputz ,d 
lton: e'/.= 


,n:q7.=z 
r*10/d: 


/d:pr 
print 


intq7i:r 
•|J";e-/.; 


= z 
: r 


-d*q7. 
=10*r- 


•f or 
-d*e 


•/.: 


next 














10 


rem 















Rundungsfehler 



Wie jedermann weiB, ist die Rechengenauigkeit des C 64 
ziemlich gering. Manchmal werden gerundete Ergebnisse 
angezeigt, die zwar richtig aussehen, deren mit Hilfe der 
INT-Funktion ermittelter ganzzahliger Teil ganz anders 
aussieht, namlich um 1 kleiner ist. Ein Beispiel: 

1/50*100=2, aber INT(1/50*100)=1! 

Dies kann man verhindern, indem man die Zahl erst mit 
»STR$« in einen String umwandelt, mit »VAL« daraus wie- 
der eine Zahl macht und dann die ganze Zahl ermittelt, also 
INT(VAL(STR$(1/50* 100)))=2. 

Dieser Trick ist vor allem nutzlich bei Rechnungen, bei 
denen die 9/10-Rundung schon zu ungenau ist. 

(Wolfgang Miiller/sk) 



Die Fakultatsfunkfion 



Null vor dem Komma 



Dieser Einzeiler von Detlev Marks berechnet Fakultaten 
besser als ein Taschenrechner (groBer als »69«). Der C 64 
besitzt standardmaBig keinen Befehl zur Berechnung der 
Fakultat. 



10 


rem 


■f akul taeten 










20 


s 












30 


input a: i rb=ltaa 


:c=c+log 


(b) 


: next: c 


=c/l 


oq 


(10) 


printlOT (c- 


int(c) ) ; 


"e" 


;int(c) 


: run 


40 


c 













Um Realzahlen besser und ubersichtlicher ausgeben zu 
konnen, benutzt man diese kleine Routine; sie schreibt vor 
jedes Ergebnis eine wenn es kleiner als 1 ist (also 0.23 
statt .23). 

Vor dem PRINT muB man folgende Routine aufrufen: 
1000 XX$ = STR$(X) : IF ABS(X) « =1 THEN RETURN 
1010 XX$ = LEFT$ (XX$,1) + "0" + RIGHTS (XX$,LEN 
(XXI)-l) 
1020 RETURN 

Danach steht das Ergebnis in der Variablen XX$. 

(Kurt Huwig/U.Beenen) 
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10 f $= " [6 space) " : rem fuellstring 

20 inputx:gosut>1000:printx$:end 
1000 x=int(x*100+.5)/100 
1010 x$=f$+str$(x) 
1020 ifx=int(x)thenx$=x$+".00" 
1030 ifmid$(x$,len(x$)-l,l)=". "thenx$=x$+"0" 
1040x$=right$(x$,9) 
1050 return 

Zu Beginn des Programms wird ein Fulfstring definiert. 
Zur Aufbereitung der Variablen X wird ins Unterprogramm 
verzweigt. Zeile 1000 rundet X auf die Anzahl der Nachkom- 
mastellen (hier 2). Zeile 1010 wandelt X in eine Stringvaria- 
ble und stellt ihr den Fullstring voran. In den Zeilen 1020 
und 1030 werden bei Bedarf die Nachkommastellen auf 
zwei aufgefullt. Zeile 1040 schneidet den String der pas- 
senden Lange heraus, hier sechs Vor- und zwei Nachkom- 
mastellen plus Dezimalpunkt. (H. G. Sander/sk) 

Formatierte Ausgabe 

Dieser Einzeiler gibt Zahlen unabhangig von Lange und 
Vorzeichen rechtsbundig aus. Die Tabulatorfunktion von 
Volker Walter ist sicher beim Aufbau von Tabellen nutzlich. 

Die Variable A enthalt die Zahl, die ausgegeben wird. Die 
Zahl »22« legt fest, daB die Kommata der ausgegebenen 
Zahlen in Spalte 24 stehen (2 Stellen werden vom Komma 
gebraucht). Die Spaltennummer kann tm Listing beliebig 
gesetzt werden (Zahl im Listing = tatsachliche Spalten- 
nummer -2). 

Ist A > =1, so wird der Zehnerlogarithrnus von A berech- 
net und von der Spaltennummer abgezogen, bei der der 
Dezimalpunkt stehen soil. Da der C 64 nur den Logarith- 
muszur Basis e berechnen kann, muB das Ergebnis mit der 
Konstanten .43429448188 multipliziert werden. Dadurch 
erhalt man den Zehnerlogarithrnus. 
Diese Berechnung erfolgt durch 
INT(LOG(B-(B=0))*.43429448188)-(B<=1). 
Ist A <1, so wird zur Spaltennummer eine 1 addiert. 
Null bildet einen Sonderfall, da die Null noch vor dem Kom- 
ma stehen muB. 
INT(-B)*(B<1). 



20 b=abs (a) :printtab (int (log (b- (b=0) )*.4 
342944818B)*(b>=l)+int (-b) ♦ (b< 1 ) +22) ;a 



Texte formatieren 



Oft hat man das Problem, Texte entweder mittezentriert 
oder rechtsbundig auszugeben. Mit einer der folgenden 
kleinen Basic-Zeilen ist dies am einfachsten zu realisieren: 
Mittezentrierung: 

FOR I = 1 TO (40-LEN(A$))/2 : PRINT " ";: NEXT : PRINT A$ 

Rechtsbundig: 

FOR I = 1 TO 40-LEN(A$) :PRINT " "; :NEXT:PRINT A$ 

In der Variablen A$ muB jeweils die zu formatierende 
Textzeile enthalten sein. (Hans-Peter Harmann/sk) 

ASCII-Code in Bildsdiirmcode umwandeln 



Wie wandelt man am einfachsten ein Zeichen vom ASCII- 
Code (PRINT CHR$(...)) in den Bildschirmcode (POKE...) 
urn? Die wirklich einfachste und genialste Losung besteht 



darin, das entsprechende Zeichen auf den Bildschirm zu 
bringen und dann mit PEEK den Code direkt aus dem Bild- 
schirmspeicher auszulesen. Also: 

10 PRINT" (HOME) "CHR$(ASCII-Code) .-PRINT PEEK(102<4) 
Umgekehrt geht es naturiich ebenso einfach: 

10 POKE 1024, Bildschirmcode :PRINT" (HOME) ":0PEN1, 3: 
INPUT #1,A$: PRINT ASC(A$+CHR$(0) ) :CL0SE1 

Und weil wir gerade bei der Bildschirmverwaltung sind: 
Urn in einem Programm die nachste PRINT-Anweisung zu 
positionieren, gibt es zwei Moglichkeiten: 

1. Man verwendet eine Kolonne von Cursor-Steuerzeichen, 
oder 

2. zwei POKEs und einen SYS-Befehl: 

P0KE211 , Spalte : P0KE214 , Spalte : SYS58640 

(Hans Ippisch/sk) 

»NEW« riickgcitigig modien 

Wie oft hat man »NEW« eingetippt, urn hinterher festzustel- 
len, daB man das Programm noch gar nicht gespeichert 
hat. Mit dieser kleinen Routine konnen Basic-Programme 
nach einem »NEW« wieder vollstandig zuriickgeholt wer- 
den. 

Man geht dabei so vor: Zuerst einmal muB das Listing 9 
eingetippt und gestartet werden. Es erzeugt dann auf Dis- 
kette das Programm »AUTO-OLD«. Hat man nun einmal 
aus Versehen »NEW« eingegeben, so legt man die Diskette 
mit dem Old-Programm in die Floppy und gibt 
»LOAD "AUTO-OLD ",8,1« ein. Das Old-Programm wird nun 
geladen und automatisch gestartet. Ein eventuell gelosch- 
tes Basic-Programm ist wiederhergestellt. 

(Georg Brandt/sk) 



:REM AUTO-OLD BY G. BRANDT <094> 

10 OPEN 1 ,8.1. "AUTO-OLD. P.W": FOR 1=0 TO 40 

:READ A:PRINT«1 ,CHR$(A) ; :NEXT:CLOSE 1 <059> 
20 DATA 221,2,165,44,160.1,145,43,32,51,16 

5.165,34,24,105,2,133.45.165,35,105 <068> 
30 DATA 0.133,46,169,131,162,164.141,2,3.1 

42,3,3,108.2.3.139.227,221,2 <079> 

© 64 'er Listing 9. Die Auto-OLD-Routine k6nnen Sie 
mit Hilfe des Checksummers (Seite 159) eingeben 



Betrifft: Joystick 



Jeder Neuling unter den C 64-Fans wird sich fruher oder 
spater fragen, warum Commodore gleich zwei Joystick- 
Ports einbaute, es aber versaumte, das Basic des C 64 urn 
eine Funktion zu bereichern, diese Joysticks auch abzufra- 
gen. Viele andere Computer haben einen »JOY(X)«-Befehl, 
der die Richtung angibt, in die der Joystick gerade gedruckt 
wird. 

Auf dem C 64 wurden solche Abfragen bisher mit lang- 
wierigen IF-THEN-Sequenzen iiber die PEEK-Funktion 
realisiert. Es gibt aber einen sehr viel eleganteren Weg: die 
DEF FN-Funktion. 

Wenn man namlich am Anfang eines Basic-Programms 
definiert: 

DEFFNJ0Y(X)=INT((L0G(255.5-(PEEK(56322-X)0R224)))/ 
L0G(2)+2) 

so laBt sich iiber »print fn jcy(x)« der Joystick abfragen. 
»x« gibt dabei an, ob man die Position von Joystick-Port 1 
oder 2 wissen mochte. Es entsprechen: 1: Nullstellung, 2: 
oben, 3: unten, 4: links, 5: rechts und 6: Feuerknopf 

Uber eine »ON FN JOY(x) GOTO ...«-Anweisung NeBe 
sich dann auBerst schnell in die entsprechenden Unterpro- 
gramme verzweigen. (Henning Zipf/sk) 
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DATA Eingabehilfe 



Das kleine Programm ist eine Hilfe zum Eintippen von DA- 
TAs. In Zeile 1 wird nach der Startzeilennummer gefragt, ab 
der die DATAs beginnen und in welcher Schrittweite die Zei- 
lennummer erhoht werden soil. 

Nachdem das Programm mit RUN gestartet und die bei- 
den Parameter eingegeben wurden, erscheinen 20 Zeilen 
mit der gewiinschten Startzeilennummer und dahinter das 
Wort »DATA«. 

Diese Zeilen konnen nun editiert werden. 

Das Programm laBt sich beliebig verandern. Statt DATA 
kann man auch PRINT Oder ahnliches einsetzen. 

1 INPUT " STARTZEILENNUMMER" ;X: INPUT 
"SCHRITTWEITE" ;Y: FOR Z=l TO 20 

2 PRINT X "DATA" : X=X+Y: NEXT: PRINT 
" [HOME] (CRSR DOWN]": END 

(Frank Besler/sk) 



DATA-Zeilen 



Wer beim Uberpriifen von DATA-Zeilen keinen Heifer hat, 
kann den Computer zu Hilfe nehmen. Man braucht nur ei- 
nen Sprachsynthesizer (beispielsweise »S.A.M.«) laden 
und auf Sprachausgabe zu schalten (bei »S.A.M.« RECI- 
TER laden und »**« »R« eingeben). 

Die Einleseschleife muB dann folgendermaBen ausse- 
hen: 

100 READ X : POKE Y,X : Z=Z+X : A$=STR$(X): SAY A$ 
: NEXT 

Zubeachtenist,daBder»S.A.M.«dieZahlenZifferfiirZif- 
fer ausspricht (one, two, one = 121), nur 64 spricht er als 
sixty-four. (Kurt Huwig/U.Beenen) 



Basic-Programme verbinden 



So manchen C 64-Besitzer wird es schon geargert haben, 
daB sein Computer keinen MERGE-Befehl besitzt. Mit we- 
nig Aufwand ist es aber dennoch moglich, Basic-Program- 
me aneinanderzuhangen: 

1. Im Direktmodus »print peek(43); peek(44)« einge- 
ben und sich die Ergebnisse merken. 

2. Das erste Programm normal laden. 

3. Erscheintjetzt nach -PRINT PEEK(45)«eineOodereine 
1, dann geben Sie 

»P0KE 43, 256 +PEEK(45) 2 : POKE 44, PEEK(46) - 1 : 
NEW« ein. Im anderen Fall wird »POKE 43, PEEK(45) - 2 : 
POKE 44,PEEK(46) : NEW« eingegeben. 

4. Nun wird das anzuhangende Programm geladen (Ach- 
tung! Das anzuhangende Programm muB die hdheren Zei- 
lennummern haben). 

5. Jetzt POKEn Sie in die Speicherstellen 43 und 44 die 
zu Anfang gemerkten Werte. 

Beide Programme sind nun verbunden. Wichtig bei der 
ganzen Prozedur ist, daB noch keine Variablen definiert 
werden, da das MERGEn sonst nicht richtig funktioniert. 

Eine ganz kurze Routine, die sich auch innerhalb von 
Programmen verwenden laBt, verkettet Programme auf 
ahnliche Weise. 



10 a=peek(45)+256*peek(4&)-2:poke44,a/25 
6: poke43,a-peek (44) *256: pr int "prg laden 
Si p043,l:p044,B 



Moschinenprogramme auf Tastendruck 



Mit einer kleinen Routine kann man ein Maschinenpro- 
gramm mit einem Tastendruck auf rufen. Dafiir benutzt man 
ein Zeichen, das normalerweise nicht Oder nur selten ver- 
wendet wird. Ich habe mich fur das ©-Zeichen entschie- 
den. 

Im Interpreter existiert eine Schleife, die einen Basic- 
Befehl holt und ausfuhrt. 

A7E1 JMP (0308) ; zeigt normalerweise auf A7E4 
A7E4 JSR 0073 ; nachstes Zeichen aus Basic- 
Text holen 
A7E7 JSR A7ED ; Statement ausfuhren 
A7EA JMP A7AE ; zuriick zur Interpreterschleife 

In den Speicherzellen $0308 und $0309 (776 und 777 
dez) liegt ein Zeiger, der normalerweise auf den Beginn die- 
ser Schleife zeigt. Verbiegt man nun den Zeiger auf eine ei- 
gene Routine, kann man den Basic-Befehl auf das eigene 
Zeichen uberpriifen. 

Wird es erkannt, springt man auf den Anfang des ge- 
wiinschten Unterprogramms.Wurde das Zeichen nicht vor- 
gefunden, macht man in der Schleife normal weiter. 

Dieses Verfahren verwende ich bei der Programmierhilfe 
»Merge« aus Ausgabe 4/84, die normalerweise mit SYS 
50000 gestartet werden muB. Es kann aber auch fur andere 
Maschinenprogramme umgeschrieben werden. 

»Merge« belegt den Speicherbereich 50000 bis 50264. 
Die eigene Routine beginnt auf Adresse 49152 (C000 hex). 
Der Wert in den Adressen $0308 und $0309 muB deshalb 
auf C000 abgeandert werden. Der Computer durchlauft 
dann vor jedem Befehl, den er ausfuhren soil, folgende 
Schleife: 

C000 JSR 0073 ; nachstes Zeichen holen 
C003 CMP 40 ; Vergleich mit ©-Zeichen 
C005 BEQ ; verzweigen wenn erkannt 

C007 JSR 0079 ; Flags setzen 
C00A JMP A7E7 ; RUcksprung 
C00D JSR 0073 ; nachstes Zeichen holen 
C010 JSR C350 ; zur eigenen Routine 
C013 JMP A7AE ; Riicksprung 

Nach dem Driicken von @ und RETURN wird nun das 
Programm ab Adresse 50000 (C350 Hex) ausgefiihrt. Auf 
die anderen Befehle hat diese Routine keinen EinfluB. Eine 
Hurde gibt es noch zu meistern. Die Anderung der Adres- 
sen 0308 und 0309 ist auf der Basic-Ebene mit POKE nicht 
moglich. Dies ist auch verstandlich, da POKE auch ein 
Basic-Befehl ist und durch die Anderung der ersten Adres- 
se der Einsprung verandert wird. 

Deshalb muB diese AdreBanderung in Maschinenspra- 
che durchgefiihrt werden. 
C100 LDA 00 ; Lade Akku mit 00 
C102 STA 0308 ; Speichere Akku nach 0308 
C105 LDA CO ; Lade Akku mit CO 
C107 STA 0309 ; Speichere Akku nach 0309 
C10A RTS ; Ruckkehr nach Basic 

Basic-Lader fur Befehlserweiterung 
240 FOR 1= 49152 TO 49152 + 21 
250 READ Q : POKE I, Q 
260 NEXT 

300 FOR I = 49408 TO 49408 + 10 
310 READ Q : POKE I, Q 
320 NEXT : SYS 49408 
11000 DATA 32,115,0,201,64,240,6,32,121 
12000 DATA 0,76,231,167,32,115,0,32,80 
13000 DATA 195,76,174,167 
14000 DATA 169,0,141,8,3,169,192,141,9,3,96 

Diesen Basic-Lader tippt man hinter das Programm 
»Merge« und speichert es gemeinsam ab. 
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Die Zeilennummern sind so gewahlt, daB man sie direkt 
zum Basic-Lader von »Merge« dazutippen kann. In Zeile 
10260 miissen aber dann die letzten funf Nullen geloscht 
werden. 

Mit SYS 49408 wird die Befehlserweiterung aktiviert und 
steht dann zur Benutzung bereit. (Patrik Fleig/sk) 

Der C 64 als PET 



her definierte Basic-Routine gesprungen werden. Diese 
konnte zum Beispiel den noch freien Speicherplatz Oder 
die Uhrzeit anzeigen. 

Das Programm (Listing 11) bitte mit dem MSE eingeben. 
Es liegt dann im Speicherbereich von 40499 bis 40768. Ge- 
iaden wird es absolut mit LOAD "PSEUDO-IRQ ",8,1. Da 
das Programm im Bereich fur die Basic-Variablen steht, 



Wenn Sie CBM 2000, 3000 Oder 4000 geschriebene Pro- 
gramme auf Ihrem C 64 laufen lassen wollen, miissen Sie 
umstandlich PEEKs und POKEs andern. Der "Pet- 
Simulator" nimmt Ihnen diese Arbeit ab. 

1st das Programm (Listing 10) eingegeben und gestartet, 
werden als erstes die DATAs fur das Maschinenprogramm 
in den Bereich abAdresse 49152 gePOKEt(SL) = Priifsum- 
me fur die Daten). Danach fragt das Programm nach der 
Zeichenfarbe. Sie werden aufgefordert, eineZahl zwischen 
und 15 einzugeben. 
(0 = schwarz, 1 = weiB,..., 15 = grau 3). 

Bei anschlieBendem Starten des Maschinenprogram- 
mes wird das Basic-ROM in das darunterliegende RAM ge- 
POKEt (Basic-Interpreter kopieren). AnschlieBend wird das 
Bildschirm-RAM von Adresse 1024 nach Adresse 32768 
verlegt. Basic-Speicheranfang und -ende werden dem des 
PET angepaBt. Weiterhin wird in der POKE-Routine des 
Basic-Interpreters ein Eingriff vorgenommen, nach der der 
Computer aus dem Interpreter in eine Routine des Maschi- 
nenprogramms springt. Hier wird uberpriift, ob das 
Bildschirm-RAM angesprochen wurde. Trifft dies zu, wird 
die dazugehorige Farb-RAM-Adresse berechnet und der 
vorher festgelegte Farbwert (Zeichenfarbe) hineingePO- 
KEt. Urn das Zurucksetzen des Bildschirmes auf das C 
64-Format zu vermeiden (durch Driicken der RUN/STOP- 
und RESTORE-Tasten), wird die RESTORE-Taste durch 
Verandern des NMI-Vektors ausgeschaltet. Programme 
konnen aber noch mit der RUN/STOP-Taste unterbrochen 
werden. 

Nach Ablauf des Maschinenprogrammes meldet sich 
der Computer mit »PET-SIMULATOR AKTIV«. Sie konnen 
jetzt immer noch die Zeichenfarbe mit POKE 49239, ZF (ZF 
= Zeichenfarbe - siehe oben) andern. Wenn Sie jetzt zum 
Beispiel POKE 32768,1 eingeben, erscheint ein »A« am lin- 
ken oberen Bildschirmrand in der gewahlten Zeichenfarbe. 
SchluBbemerkung: Bevor Sie das Programm starten, emp- 
fiehlt es sich, es vorher zu speichern, da sich das Pro- 
gramm selbstandig loscht. (Wolfgang Hopf/sk) 



Pseudo-lnterrupt 



Diese Befehlserweiterung erlaubt es, ein Basic-Programm 
zu jedem beliebigen Zeitpunkt per Tastendruck durch die 
F1-Taste unterbrechen zu lassen. Es kann dann in eine vor- 



REM » 
REM « 
REM » 


PET - SIMULATOR 
<C> BY W. HOPF 1984 


» 
» 
* 



1 

2 
3 

4 

5 

6 

7 REM PROGRAMM VOR DEM START ABSPEICHERN 

S 1 

10 FOR 1=49152 TO 49152+91 1 READ AiSU-SU+A 

20 POKE I.AiNEXT 

30 IF BUO 12552 THEN END 

40 PRINT"{CLR,2D0WN>BITTE WAEHLEN SIE DIE 

ZEICHENFARBE" 
50 PRINT" {DOWN >< 0- 15 EINGEBEN) ! (DOWN)" 
60 INPUT ZFi IF ZF>=B AND ZF<-15 THEN POKE 

49239, ZFiPOKE 646 , ZF: GOTO 80 
70 PRINT" <DOWN>NICHT ERLAUBT " i FOR 1=1 TO 1 

0001 NEXT I SOTO 40 
80 SYS 49152IP0KE 1 ,54: PRINT" <CLR>PET-BIMU 

LATOR AKTIViNEW 
10000 DATA 160,0,132,254,169,160,133,255 
10005 DATA 177,254, 145, 254, 200, 20B, 249, 230 
10010 DATA 255,166,255,224,192,208,241 
10015 DATA 169,5,141,0,221,141,24,208,169 
10020 DATA 128,141,136,2,133,56,169,4 
10025 DATA 133,44,169,0,141,0,4,169 
10030 DATA 63,141,37,184,169,192,141,38 
10035 DATA 184,169,193,141,24,3,96,32 
10040 DATA 235,183,24,165,21,201,128,144 
10045 DATA 18, 201, 132, 176, 14, 24, 105, B8 
10050 DATA 133,255,165,20,133,254,169,0 
10055 DATA 234,145,254,96 
60000 i 
60010 REM LISTE DER VERWENDETEN COMMODORE- 

STEUERZEICHEN 
60020 REM "<CLR>" - CLR 
60030 REM "<DOWN> M - CRSR-DOWN 

Listing 10. Listing zu »Der C64 als PET« 



<132> 
<251> 
<052> 
<21B> 
<136> 
<238> 
<071> 
<240> 
<231> 
<117> 
<064> 

<063> 
<124> 

<089> 

<066> 

<208> 
<121> 
<103> 
<1B9> 
<221> 
<229> 
<241> 
<01B> 
<211> 
<095> 
<177> 
<209> 
<037> 
<029> 

<140> 
<245> 
<186> 



muB es durch POKE 56,158:CLR vor Uberschreiben ge- 
schutzt werden. Nach dem Start durch »SYS 40541« ste- 
hen die neuen Befehle zur Verfiigung: 
IF1JUMP <Zeilennummer> legt fest, in welche Zeile im 
Falle einer Unterbrechung durch die F1-Taste gesprungen 
werden soil. Tritt der Befehl mehrmals auf, so gilt die zuletzt 
angegebene Zeilennummer. 

IJBACK bewirkt die Fortsetzung des Basic-Programms ab 
der Stelle, an der unterbrochen wurde. 
!SF1 verhindert Unterbrechungen. Dies kann zum Beispiel 
beim Aufbau einer Grafik Oder bei Arbeiten mit der Disket- 
tenstation wichtig sein. !CF1 laBt gesperrte Unterbrechun- 
gen wieder zu. (Guido Schuhmacher/sk) 
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9af9 ■ 4c 08 af 20 


73 00 c9 46 


24 


9all i 


4a 


d0 06 20 


79 


aa 


4c 


ml 


d8 


9aS9 i 


20 


73 


aa 


c9 


55 


d0 


26 


20 


51 


9f01 i d0 b3 20 73 


00 c9 31 dB 


d6 


9al9 ■ 


«/ 


c9 04 fa 


06 


2a 


IH 


00 


0b 


9a91 l 


73 


00 


c9 


4d 


d0 


1* 


20 


73 


Ba 


9f09 i ac a9 75 Bd 


01 9a 20 73 


05 


9e21 i 


4c 


■7 a7 aS 


cb 


cV 


4a 


da 


ad 


9e99 i 


B0 


c9 


bB 


d0 


18 


20 


73 


00 


•fc 


9f!l i 00 4c aa a7 


20 73 00 c9 


09 


9a29 ■ 


♦ a 


ad 01 9a 


+a 


06 


2a 


/v 


cl 


9aal i 


20 


6b 


a9 


a5 


14 


Bd 


B2 


9a 


B9 


9*19 i 46 d0 9a 20 


73 00 c9 31 


33 


9»31 l 


00 


4c a7 a7 


la 


aV 


03 


20 


61 


9aa9 ■ 


a5 


15 


Bd 


B3 


9a 


a9 


aa 


8d 


mt 


9f21 l d0 93 a9 00 


8d 01 9e 20 


cl 


9a39 ■ 


tb 


a3 aS 7a 


4fc) 


ab 


n> 


4B 


mt 


9abl ■ 


01 


9b 


4c 


ae 


a7 


4c 


aB 


mt 


47 


9f29 l 73 00 4c aa 


a7 4a 42 41 


da 


9a41 i 


•9 


39 48 a5 


3a 


4U 


aV 


/B 


cl 


9ab9 i 


20 


73 


0CJ 


c9 


42 


d0 


f6 


20 


93 


9*31 l 43 cb a9 2a 


85 22 a9 9f 


d9 


9a49 i 


40 


Sd 01 9a 


ad 


B2 


9« 


US 


dc 


9acl ■ 


73 


00 


c9 


41 


d0 


rt 


20 


73 


c3 


9f39 l 85 23 4c 47 


a4 01 00 .is 


a9 


9oSl ■ 


14 


ad 03 9e 


bb 


lb 


2a 


■3 


99 


9ac9 i 


00 


c9 


43 


clB 


a8 


?B 


73 


00 


f 6 








9a59 l 
9*61 ■ 


03 


4c mm a7 
«9 9a 8d 


a9 
09 


04 
03 


Bd 
a9 


08 
75 


c9 
cc 


9adl i 
9ad9 i 


c9 
59 


4b 
68 


dB 

B5 


Bl 

3a 


68 

68 


c9 

as 


75 

39 


dB 
68 


fc 
77 


Listing 11. Listing zu -Pseudo- 




9e69 I 


Ud 


01 9a 60 


20 


73 


00 


c9 


5c 


9ael i 


85 


7b 


68 


85 


7a 


a9 


00 


Bd 


** 


lnterrupt" 
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RESTORE fur Unterprogramme 



Will man in ein Programm ein schon vorhandenes Unter- 
programm einfiigen, kann es beim Lesen von DATAs 
Schwierigkeiten geben. Oft genugt die RESTORE-Anwei- 
sung nicht. 

Wenn beide Programmteile, Hauptprogramm und Unter- 
programme, DATAs enthalten, muB sichergestellt werden, 
daB auch wirklich die richtigen Werte gelesen werden. 
Wenn man nicht aufpaBt, kann es passieren, daB das Unter- 
programm DATAs aus dem Hauptprogramm Nest. Wie kann 
man das verhindern? Es gibt eine umstandliche Methode: 
Man kann eine kleine Basic-Erweiterung einbauen, den 
RESTORE X-Befehl. Es geht aber auch einfacher. Die Zero- 
page, das sind die ersten 256 Byte des Speichers, hilft uns 
bei der Losung des Problems. Genauer gesagt, die Adres- 
sen 65/66 und 122/123. Schlagen wir im C 64-Handbuch auf 
Seite 162 nach, dann steht dort: 
65- 66 Adresse des aktuellen DATA-Elements 
122-123 Basic-Zeiger innerhalb der Subroutine 

Mit diesen Informationen laBt sich schon etwas anfan- 
gen. Wenn das Unterprogramm angesprungen wird, dann 
sollte der Zeiger in Speicherstelle 122/123 auf die Adresse 
des Unterprogramms im Speicher stehen. POKEt man die- 
se Werte in die Zeilen 65/55 mit 
POKE 65, PEEK (122) 
POKE 66, PEEK (123), 

so wird beim nachsten READ der Wert gelesen, der hinter 
dieser Basic-Zeile mit den POKEs steht, also das erste 
DATA-Element innerhalb des Unterprogramms. Nach dem 
Rucksprung aus dem Unterprogramm muB der Zeiger 



eventuell auch im Hauptprogramm wieder gestellt werden. 
In dem kurzen Demo-Listing (Listing 12) werden drei Unter- 
programme in zufalliger Reihenfolge aufgerufen. 

(Stephan Patzold/sk) 



************************ 

* DEMO * 

» SUBROUTINE-RESTORE * 



1 REM 

2 REM 

3 REM 

4 REM ************************ 

5 PRINT" <CLR,6SPACE>TASTE DRUECKEN !" 

6 PRINT: PRINT 

IB X=INT(RND<TI)*3)+1 

20 ON X GOSUB 1000,2000,3000 

25 POKE 65, PEEK ( 122): POKE 66, PEEK < 123) 

30 READ A*: PRINT A* 

5B DATA " HAUPTPRG. " 

IBB GOTO IB 

1BB0 REM »«» SUBROUTINE 1 *** 

1BB5 : 

1B1B POKE 65, PEEK! 122): POKE 66,PEEK<123) 

1B2B FOR 1=1 TO 4: READ A: PRINT A;: NEXT 

1B3B READ A*: PRINT A*; 

1B4B POKE 198, B: WAIT 19B,1 

1B50 DATA 1,11,111,1111,"UP1 <2SPACE>" 

1B6B RETURN 

1B7B : 

2000 REM *** SUBROUTINE 2 *** 

2BB5 : 

2B1B POKE 65, PEEK (122): POKE 66,PEEK(123) 

2B20 FOR 1 = 1 TO 4.-READ A:PRINT A;:NEXT 

2B3B READ A*: PRINT A*; 

2B40 POKE 19B,B:WAIT 198,1 

2B5B DATA 2,22,222,2222, "UP 2 " 

2B6B RETURN 

2B7B : 

3BB0 REM *** SUBROUTINE 3 *** 

3BB5 : 

3B1B POKE 65, PEEK ( 122) : POKE hb, PEEK ( 123) 

3B2B FOR 1=1 TO 4: READ A: PRINT A;: NEXT 

3B3B READ A*: PRINT A*; 

304B POKE 198, B: WAIT 198,1 

3B5B DATA 3,33,333,3333, "UP <2SPACE>3" 

3B6B RETURN 

307B : 

Listing 12. Demoprogramm zu "RESTORE fur 
Unterprogramme« mit zwei POKEs 



<12B> 
<B1B> 
<B71> 
<131> 
<1B4> 
<114> 
<125> 
<B4B> 
<BB1> 
<B66> 
<146> 
<B78> 
<183> 
<B42> 
<221> 
<145> 
<105> 
<116> 
<B85> 
<182> 
<1B8> 
<164> 
<B22> 
<2B1> 
<125> 
<BB4> 
<B95> 
<B76> 
<162> 
<B88> 
<145> 
<BB2> 
<181> 
<1B5> 
<B64> 
<B75> 
<B66> 
<141> 
<B67> 



RAM-Floppy 



Wer kennt das nicht: ein paar Veranderungen an einem 
Programm - eine Zeile rein, eine andere raus - und nichts 
geht mehr. Das lastige Neuladen des Originalprogramms 
von Diskette konnen Sie ab jetzt vergessen. 

1st ein Programm mal wieder zu Tode editiert, werden Sie 
nun nicht mehr von den langen Ladezeiten der Floppy 1541 
in Ihrem Programmierdrang gebremst. Mit »RAM-Floppy« 
(Listing 13) kann ein Programm bearbeitet werden, wah- 
rend man eine Kopie davon im RAM hat. In Sekunden- 
schnelle kann die Kopie in den Basic-Speicher gebracht 
oder mit der Originalversion vertauscht werden. ganz ein- 
fach durch Eingabe von »@V« Oder »@T«. Numerische Va- 
riablen bleiben dabei erhalten. Die »RAM-Floppy« besitzt 
eine Speicherkapazitat von maximal 25 KByte. Der Spei- 
cher beginnt ab Adresse 40960. 

Ein Problem ergibt sich im Speicherbereich des Kernel- 
und Basic-ROMs. Ein POKE-Befehl schreibt ins RAM, wah- 
rend die PEEK-Funktion auf das ROM zugreift. Noch kom- 
plizierter sieht es beim Zeichen-ROM und den l/O- 
Bausteinen aus. Wie Sie vielleicht aus unserem Grafikkurs 
wissen, gibt es in diesen Bereichen drei Speicheretagen. 
Der Inhalt der Zelle 1 regelt den Zugriff des Computers auf 
die verschiedenen Speicherebenen. Werden die Bits und 
1 in Adresse 1 geloscht, sieht der Computer nur noch das 
RAM. Basic- und Kernel-ROM sind verschwunden. L6- 
schen Sie diese Bits deshalb nur durch ein Maschinenspra- 
cheprogramm, wenn vorher Ein- und Ausgaben gesperrt 
wurden. Dies wird durch Setzen des Interruptregisters er- 
reicht. 

Das Maschinenprogramm besteht aus drei Teilen. Im Be- 
reich von 40704 bis 40768 erfolgt die Auswertung der Be- 
fehle von »RAM-Floppy« und der Aufruf der beiden Unter- 
programme, die das Tauschen oder Verschieben der Basic- 
Programme erledigen. 

Das abgedruckte Basic-Programm (Listing 12) POKEt 
das Maschinenprogramm ab Adresse 40704. Mit SYS 
40704 wird es initialisiert. 

Die »RAM-Floppy« hat eine Kapazitat von 25 KByte. Das 
Programm im Basic-Speicher kann zwar 38 KByte lang 
sein, laBt sich dann allerdings nicht mehr vollstandig ver- 
schieben oder vertauschen. Der Speicherbedarf sollte 
auch bel Programmen mit vielen Variablen nicht auBer acht 
gelassen werden. Bei langen Programmen mit vielen Varia- 
blen kann es durchaus vorkommen, daB die Programme 
zwar getauscht, die Variablen allerdings nicht mehr uber- 
nommen werden konnen. (Uwe Klatt/sk) 



B REM** 
1 REM* 



RAM-FLOPPY 



2 REM* 



3 REM* UWE KLATT * 

4 REM* BILLERBECKER STR. 27 * 

5 REM* 4939 STEINHEIM * 

6 REM* TEL. B5233/5672 * 

7 REM********************************** 

8 POKE 53280,0: POKE 53281,11 

9 POKE 646,8 

IB PRINT"BITTE WARTEN" 

11 REM ***************************** 

12 REM *** DATAS LESEN *** 

13 REM ***************************** 

14 FOR I=4B7B4 TO 4B76B:READ AlPOKE I,AiS= 
S+A:NEXT 



<B37> 
<B29> 
<B39> 
<B42> 
<148> 
<B67> 
<1B6> 
<B44> 
<B21> 
<B72> 
<B4B> 
<B23> 
<B20> 
<B25> 

<1BB> 
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15 IF S04567 THEN END <1B1> 

16 FOR 1=40784 TO 40849: READ A: POKE I,AiS= 
S+AlNEXT <143> 

17 IF BO 14392 THEN END <B9B> 

18 FOR I =40853 TO 40902: READ A I POKE I,A:S= 
B+A:NEXT <169> 

19 IF SO20412 THEN END <147> 

20 REM ***************************** <032> 

21 REM **» MENUE *** <197> 

22 REM ***************************** <034> 

23 PRINT CHR*(147> <052> 

24 PRINT"{RVSON,40SPACE>"j <194> 

25 PRINT" <RVSON, SPACE >RAM-FLOPPY 25.5 KBYT 
E<18SPACE>"J <B4B> 

26 PRINT" {RVS0N,4BSPACE>" <246> 

27 PRINT"' «V <2SPACE>VERSCHIEBT PROGRAMM I 
N<2SPACE>RAM-FL0PPY" <254> 

28 PRINT" ' ST ' <2SPACE>VERTAUSCHT PROBRAMM M 

IT RAM-FLOPPY" <075> 

29 REM ***************************** <041> 

30 REM »»* MC PROGRAMM STARTEN »«* <222> 

31 REM MM************************* <043> 

32 SYS 40704 1 NEW <211> 

33 REM ************»***»*»»***»****» <045> 

34 REM **» DAT AS FUER 1. MC TEIL *»* <097> 

35 REM •••••••••••*•••••••*•••*••»•• <047> 

36 DATA 169,159,133,56,133,52,169,0,133,55 
,169,21,141,8,3,169 <063> 

37 DATA 159,141,9,3,96,32,115,0,240,4,201, 
64,240,3,76,231 <111> 

38 DATA 167,32,115,0,201,84,240,7,201,86,2 
40,12,76,8,175,32 <255> 

39 DATA 115,0,32,80,159,76,174,167,32,115, 
0,32,149,159,76,174 <127> 

40 DATA 167 <008> 

41 REM ***»******»**«**»*****«*»«*»» <053> 

42 REM **» DATAS FUER 2. MC TEIL *** <234> 

43 REM ***************************** <055> 

44 DATA 169,0,133,45,169,104,133,46,120,16 
5,1,41,252,133,1,169 <051> 

45 DATA 0,133,98,133,100,141,0,160,169,160 
,133,101,169,8,133,99 <246> 

46 DATA 162,96,160,0,177,98,133,102,177,10 
0,145,98,165,102,145,100 <094> 

47 DATA 200,208,241,230,99,230,101,202,208 
,232,165,1,9,3,133,1 <062> 

4B DATA 88,96 <112> 

49 REM *************»»****»******»»» <061> 

50 REM *** DATAS FUER 3. MC TEIL *** <114> 

51 REM MtM«»MHIUIUHHH.mt| <0 63 > 

52 DATA 120,165,1,41,252,133,1,169,0,133,9 
8,133,100,141,0,160 <069> 

53 DATA 169, 160, 133, 101, 169, B, 133, 99, 162, 9 
6,160,0,177,98,145,100 <197> 

54 DATA 200,208,249,230,99,230,101,202,208 
,240,165,1,9,3,133,1 <197> 

55 DATA 88,96 <119> 

Listing 13. Listing zu »RAM-Floppy« 



Automatische Zeilennumerierung 



Das lastige Durchnumerieren der Zeilen bei der Program- 
mierung kann Ihnen dieses kleine Programm abnehmen. 

Die Syntax des AUTO-Befehls ist: 
—A anfangszeilennummer, schrittweite 

Nach Eingabe dieses Befehls wird die Zeilennummer 
vorgegeben und nach RETURN urn »schrittweite« erhoht. 

Urn aus dem AUTO-Modus wieder herauszukommen, 
muB man nach Vorgabe einer Zeilennummer 
»-« RETURN eingeben. 

Falls man nach Vorgabe einer Zeilennummer die 
RETURN-Taste betatigt, wird die entsprechende Zeile, falls 
sie vorhanden ist, geloscht. Hiermit lassen sich auch sehr 
schnell Programmblocke loschen, falls man die RETURN- 
Taste gedriickt halt, die Zeilenvorgabe weiterlauft und die 
entsprechenden Zeilennummern geloscht werden. 
»-«=CHR$(95) 
»A«=CHR$(65) 



1010 

1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 



REM*** 

REM** 

REM** 

REM** 

REM** 

REM** 



AUTO FUER C 64 

VON 
FRANK SIEDEL 
POSENER STR. 18 
2945 SANDE 



*• 
»* 
•• 

»» 



REM*********»»*************«»**»»» 



<130> 
<230> 
<129> 
<145> 
<101> 
<232> 
<192> 
<040> 
<050> 
<060> 




1190 

1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 

1300 



PRINT CHR*(147) 

SU=0 

FOR 1=1 TO 17B 

READ A 

SU=SU+A 

POKE 49151+1, A 

NEXT 

IF SU017417 THEN PRINT "FEHLER IN DE 

N DATAZEILEN"iEND 

PR I NT "OK": END © 64'er 



<239> 
<160> 
<170> 
<233> 
<254> 
<217> 
<018> 
<107> 
<145> 
<020> 

<22B> 
<023> 



Listing 14. Listing zu "Automatische Zeilennumerierung..- 



Das Programm (Listing 14) als Basic-Lader eintippen, an- 
schlieBend mit RUN starten. Falls »FEHLER IN DEN DATA- 
ZEILEN« erscheint, DATAs auf Tippfehler uberprufen. Falls 
»0K«, kann die Basic-Erweiterung mit SYS 49152 initiali- 
siert werden. Nun hat man das Basic urn den Befehl »A« er- 
weitert. (Frank Siedel/sk) 

INPUT mit Komma 



Diese INPUT-Routine von Jurgen Reinert ersetzt den 
INPUT-Befehl. Sie erlaubt Komma, Doppelpunkt und 
Strichpunkt als zusatzliche Satzzeichen bei der Eingabe. 
Sonst funktioniert sie genauso wie der INPUT-Befehl. Die 
Routine ubemimmt alle Zeichen der Tastatur, auch fiihren- 
de Leerzeichen (Leerzeichen vor Beginn des Textes). 

Die Variable AA enthalt die aktuelle Eingabe in ASCII- 
Code. II bildet die Laufvariable fur Schleifen und XX$ ent- 
halt den eingegebenen Text. 

Das »Herz« dieses Einzeilers ist die Eingaberoutine ab 
Adresse 42336. Diese schreibt alle 80 Zeichen einer Bild- 
schirmzeile in den Bastc-Eingabepuffer, der bei Adresse 
512 beginnt. Dann Nest das Programm Zeichen fiir Zeichen 
den Eingabepuffer bis zur genannten und stellt daraus 
den String XX$ zusammen. 

Erfolgt keine Eingabe, das heiBt nur die RETURN-Taste 
wurde gedriickt, so wird die Routine mit XX$=CHR$(32) 
verlassen. In alien anderen Fallen enthalt XX$ alle sichtba- 
ren, eingegebenen Zeichen (auBer Steuerzeichen). 



1 SYS 42336: 
EK(II) : IF 
10 : 
20 REM INPU1 


XX* 
AA 


= ■■" :FOR 
THEN XX4 


11=512 TO 600- 
=XX*+CHR*(AA>- 


AA=PE 

NEXT 
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Zeilen loschen am Bildschirm 



Diese kleine Routine von Stefan Keimeier loscht bestimmte 
Zeilen auf dem Bildschirm. Dabei wird eine Maschinenrou- 
tinedesC 64 verwendet, die diejenigeZeilevom Bildschirm 
loscht, deren Zeilennummer im X-Register steht. Die Zei- 
lennummer wird zunachst in die Speicherzelle gePOKEt, 
deren Inhalt der SYS-Befehl in das X-Register ubernimmt. 
Dabei wird von bis 24 gezahlt. 

Die Variable LN enthalt die Zeilennummer (0 bis 24), V 
gibt die Von-Zeile und B die Bis-Zeile an (geloscht wird 
»von« »bis«). 



10 


FOR LN=V TO B:POKE 781, LN: SYS 59903: NEXT 


20 


: 


30 


REM FUER NUR EINE ZU LOESCHENDE ZEILEGILT: 


40 


: 


50 


POKE 780, LN: SYS 59903 


60 


: 


70 


REM STEFAN KEIMEIER 



Graf ik bildschirm loschen mit dem 
DIM-Befehl 



Die Variablen A und B miissen vor der DIM-Anweisung an- 

gelegt werden: 

(A=0:B=0), da im Programmverlauf das Variablenfeld be- 

einfluBt wird. 

Dann werden durch 

A=PEEK(49):B=PEEK(50) die Werte fur das Variablen- 

ende gesichert. Durch das Dimensionieren einer Variablen 

wird ein entsprechend groBer Platz hinterdem Variablenen- 

de auf Null gesetzt. 

Der Bildschirmspeicher fangt an bei Adresse 8192 und 
geht bis Adresse 16191. Hinter dem bisherigen Variablen- 
ende (Adresse: A+B'256) wird die Variable F (auf der 
Adresse 16191-a-b*256) angelegt. Pro indizierter Variablen 
werden 5 Byte freigemacht. Dabei wird die mit indizierte 
Variable nicht berucksichtigt, ebenso die ersten 7 Byte fur 
Variablenname und Dimension. 

Durch POKE 49,A:POKE 50,B werden die alten Werte 
wiederhergestellt. F ist nun nicht mehr dimensioniert. 

Wenn das Variablenende groBer Oder gleich 8186 ist, 
wenn also das Programm einschlieBlich Variablenfeld gro- 
Ber ist als 6 Byte, wird der Bildschirm nicht ganz geloscht. 

Soil das Grafikprogramm zum Speichern von Bildern be- 
nutzt werden, darf man nicht vergessen, den Zeiger fur 
Speichergrenzen (PEEK(55)+PEEK(56)«256) auf eine 
Adresse kurz hinter den Bildschirmspeicher zu setzen. 

Der Autor des Programms, Manfred Hedtke, schlagt vor, 
im Grafikprogramm die Zeile 10 immer dann aufzurufen, 
wenn uber die Tastatur »SHIFT + CTRL HOME« (entspre- 
chend »freier Bildschirm im Textmodus«) eingegeben wird. 



10 a=0:b=0:a=peek (49) :b=peek (50) :dim-f ( (1 
6191-a-b*256) /5) : poke49, a: poke50,b 
20 rem 



Ein grafischer Disassembler: DI-AS 



Der Speicherbereich des C 64 laBt sich in 256 Seiten a256 
Byte aufteilen. DI-AS interpretiert die Speicherinhalte als 
Bildschirmcode und stellt die 64 KByte des C 64 Seite fur 
Seite auf den Zeilen 7-13 des Bildschirms dar. Die Seiten- 



nummer wird am oberen Bildschirmrand angezeigt. An- 
dreas Carl, der Autor dieses Programms, sagt zur Bedie- 
nung des Dissassemblers: 

Bevor das Progamm geladen und gestartet wird, muB mit 
»SYS64738« unbedingt ein Reset durchgefiihrt werden. 
Dann sollte der Bildschirm mit »CLR« geloscht werden. Mit 
»RUN« wird das Programm gestartet. Dann stehen dem Be- 
nutzer die folgenden Optionen offen: 

- im Speicher vorwartsblattern <CURSOR-rechts> 

- im Speicher ruckwartsblattern <CURSOR-abwarts> 

- die Seite NR betrachten <R/S P0KE3,NR:CLR:RUN> 

Es stehen umfangreiche Fehlerbehandlungen zur Verfii- 
gung. 



5 print"3ai£bSqsl(SHP-HI : "peek (3) "II " : pok 
e41 ,5: geta*: poke3,peek (3) - <a*="M" ) + <a*=" 
cl" ) : sysl024: goto5 



Speicherblockversdiiebung 



Dieser Einzeiler von Jens Baas dient zur Obertragung von 
Speicherblocken. Er ist zum Beispiel nutzlich, wenn Sie 
das Basic Oder das Betriebssystem vom ROM ins RAM ver- 
legen wollen. Die Variablen mit »L« bezeichnen jeweils das 
Low-Byte der Adresse, die Variablen mit »H« das High-Byte. 
Fur eine Adresse X lassen sich diese so berechnen: 
AL=X-256*INT(X/256):AH = INT(X/256). 

Die Routine benutzt die Blockverschiebe-Routine des 
ROMs. 



I poke95,al:poke96,ah:poke'7B,el:poke91,e 
h:pokeB8,nl : pokeB9,nh: sys41919 

II rem beispiel: 

12 poke95,0: poke96, 160: poke90,0: poke91 , 1 
92:poke8B,0:poke89,192:sys41919 

13 rem 1! basic ins ram Tl 



Ein einfaches Renumber 



Diese Routine von Georg Wichert numeriert ein Basic- 
Programm, das bis zu 255 Zeilen hat, in wenigen Sekunden 
neu. Die erste Zeilennummer ist dann 0, die Schrittweite ist 
1, Sprungadressen der Befehle GOTO und GOSUB bleiben 
beim Neu-Numerieren unverandert. Jedes Basic-Pro- 
gramm belegt die Speicherplatze 2048 bis PEEK(45)+ 
PEEK(46)* 256-3. PEEK(2049)+PEEK(2050)*256 gibt an, 
bei welcher Adresse die erste Zeile aufhort. Die erste Zei- 
lennummer A wird aufgrund der Adressen 2051 und 2052 
folgendermaBen berechnet: 
A=PEEK(2051)+PEEK(2052)*256. 
Die zweite Zeilennummer findet man im Speicher an den 
Adressen 

PEEK(2049+PEEK(2050)-256+2 und 
PEEK(2049) + PEEK(2050) * 256 + 3. 

Die Zeilennummern befinden sich jeweils an den Adres- 
sen A+2 (Low Byte) und A+3 (High Byte). 

Ist das Basic-Programm, das neu numeriert wird, langer 
als 255 Zeilen, dann muB der Einzeiler zum Zweizeiler ab- 
geandert werden. Dann wird folgendes wichtig: Aus Platz- 
grunden wird in dieser Programmversion an die Stelle A+2 
derWertzgePOKEt(z=0,1,2...,n-1; n-1 steht fur die Anzahl 
der Zeilen des Basic-Programms, das umnumeriert werden 
soil, inklusive dem Einzeiler) und an die Stelle A+3 den 
WertO. 
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1 FOR A=2049 TO PEEK (45) +PEEK<46) »256-3: PD 
KE A+2,Z:P0KE A+3,0: A=PEEK(A> +PEEK (A+l ) * 
256-1 : 2=2+1: NEXT 

IB : 


20 REM RENUMBER 


(GEDRG 


W I CHERT) 



Der Befehl Goto X - 
eine Basic-Erweiterung 



Dieses Programm von Reinhard Jurk simuliert den im 
Commodore-Basic nicht vorhandenen Befehl GOTO X. 

Zu dem etwas seltsamen Aussehen der Programmzeile: 
In den Anfuhrungszeichen in Zeile 10 steht ein Maschinen- 
programm (Listing 15), dessen Opcodes im Listing des 
Basic-Interpreters diese merkwurdigen Zeichen erzeugen. 

Zur Eingabe: 
In diesem DATA-Lader (Listing 16) ist ein Generierungspro- 
gramm fur diese Zeile 10 angegeben. Dieses wird eingege- 
ben und gestartet. Hat man sich vergewissert, daB das Pro- 
gramm richtig eingegeben wurde, gibt man »LIST« ein, ge- 
folgt von »NEW«. Dann fahrt man mit dem Cursor auf Zeile 
10 und druckt RETURN. Die Routine steht nun im Speicher. 

Zum Einbinden der Routine in eigene Programme andert 
man die Zeilennummern entsprechend ab, weist der Varia- 
blen LL% den Wert der anzuspringenden Zeile zu und 
springt mit »GOTO« zu der Zeile, in der GOTO X steht. 



10 syspeek (61 ) +256*peek (62) +26: " tfl. =te =K I 
u=lv iHMu-SUHMSu «=-1;s.I - EH- +_ Rri~»(" 
20 rem 

30 rem goto x: 1 17.=zei lennummer : gotolO 
40 rem 



BUTE UNBEDINGT GENAUSO EINGEBEN !!! 
13 KLAMHERAFFEN CeD 

5 GOTO20 

18 SYSPEEKC61 D+256XPEEKC62D+26: "eeeeeeee 

20 FORA =2082TO2 1 24 : READX : S =S+X : POKEA , X : N 
EXT: IFS05185THENPRINT"DATA ERROR ! " : END 
30 PRINT"OK." 

40 DATA1 69, 204. 133, 69. 133, 70. 165, 157, 133 
,85,133,86,160,12, 200 ,145.85,162,129 
50 DATA202 , 200 , 1 38 . 1 45 , 85 , 1 72 , 1 28 , 1 63 , 1 6 
6,46,165,45,32,17,177,32,43,175,32,1 
60 DATA184,76.163,168 

READY. 

Listing 16. Der Einzeiler als DATA-Lader 



Cx 



PC IRQ NU-BDIZC AC XR YR SP 
E147 EA31 00110001 08 08 02 F6 



-, 081 A 


A3 CC 


LDA «$CC 


. , 081C 


85 45 


STA $45 


. , 081E 


85 46 


STA $46 


.. » 0820 


A5 9D 


LDA $9D 


- , 0822 


85 55 


STA $55 


- , 0824 


85 56 


STrl $56 


- , 0826 


A0 0C 


LDY »$0C 



0828 
0829 
082B 
082D 
082E 
082F 
0830 
0832 
0835 
0837 
0839 
083C 
083F 
0842 

Listing 15. Die 

Code 



C8 

91 55 
A2 81 
CA 
C8 
8A 

91 55 
AC 80 
A6 2E 
A5 2D 
20 11 
20 26 
20 01 
4C A3 
Bedeutung 



A3 



Bl 
AF 
B8 
A8 



INY 




STA 


C$553, Y 


LDX 


«$81 


DEX 




INY 




TXA 




STA 


C$553, Y 


LDY 


$A380 


LDX 


$2E 


LDA 


$2D 


JSR 


$B111 


JSR 


$AF2B 


JSR 


$6801 


J MP 


$A8A3 


ATAs im Assembler- 



Trick 17 mit ON ...GOTO 



Eine sehr interessante Version einer ON...GOTO-Anwei- 
sung stammt von Peter Zankl (Listing 17). 

Der Ausdruck (A$= "A " ) hat den Wert -1 , wenn ein A ein- 
gegeben wurde. Sonst hat er den Wert 0. Rechnen Sie nach 
Oder probieren Sie es aus! 



100 

200 


rem tastaturabfrage mit sprung 
rem : 




300 
400 


rem vorher: 




410 
420 
430 
440 
450 
499 


geta$: if a*=" "then410 

if a$="a"then2000:rem programmtei 1 

" a^ ="b"then3000: rem programmtei 1 

if a*="x "then end: rem ende 

goto 410 


a 
b 


500 
600 


rem nachher: 




610 
620 


geta*:onl-<a*="a")-2*<a*= ,, b")-3*<a*= 
goto6 1 , 2000 , 3000 : end 


Listing 17. Tastaturabfrage 




List-Schutz fur Basic-Programme 



Dieser List-Schutz (Listing 18) ist fur Nichteingeweihte sehr 
verbluffend. Die Grundidee dazu stammt aus dem Bericht 
»Disketten-Manipulationen« aus der 64'er, Ausgabe 6/85. 
Er wurde jedoch etwas ausgebaut, so dal3 hier beim Listen 
alle Steuercodes aktiv werden. Dies wird dadurch erreicht, 
daB man in eine Speicherstelle vor den Codes die Zahl 141 
schreibt. Urn nun ein Programm zu schutzen, ladt man es 
und gibt zwei Zeilen ein. (Listing 18) 

Danach gibt man im Direktmodus ein: 
POKE 2067,71 : POKE 2073,141 : POKE 2118,0 : 
POKE 2119,0 

Listet man nun das Programm, so wird der Bildschirm ge- 
loscht und der Text in der REM-Zeile ausgegeben. Durch 
das kiinstlich erzeugte Basic-Programm-Endezeichen 
(drei Nullen) wird das Listen abgebrochen. Wird im Pro- 
gramm dann auch noch durch POKE 788, 52 die RUN-STOP-, 
und durch POKE 792,193 die RESTORE-Taste ausgeschal- 
tet, kann keiner mehr an das Programm. Aufheben laBt sich 
dieser List-Schutz nur mit einem Monitor und mit der Kennt- 
nis der Funktionsweise. (Thomas Uttendorfer/sk) 
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1 POKE 2067,73: GOTO IB <134> 

2 REM"A<CLR,3D0WN,YELL0W>IT IS NOT ALLOWED 

TO LIST THIS PROGRAM <BLUE>AA <123> 

© G4'er 

Listing 18. Listing zu »List-Schutz fiir Basic-Programme^ 



Listhilffe 



Wenn man nach Eingabe des LIST-Befehls das LISTen 
will, muB man «RUN/STOP»> betatigen. Fiir weiteres LISTen 
muB erneut der entsprechende Befehl gegeben werden. 
Das Programm »SHIFT-HOLD« (Listing 19) bringt hier Ab- 
hilfe: Durch Drucken der SHIFT-Taste kann man das Listing 
anhalten; laBt man sie wieder los, wird weiter gelistet. 

(Oliver Hertel/U.Beenen) 



Ns 



: shift-hold 



cOOO c021 



oOOO : a9 Ob 8d 14 03 a9 cO 8d bO 

0OO8 : 15 03 60 ad 8d 02 o9 01 It 

cOlO : fO 03 4c 31 oa a5 cb c9 5a 

0OI8 : 40 dO 11 20 87 ea 4c Ob d9 

c020 : cO da 32 f5 fa fc b9 5f d6 



Listing 19. -SHIFT- 
HOLD". Bitte mit 
dem MSE (Seite 
159) eingeben. 



List- und Loschschutz leiditgemacht 



Es wurden schon viele Methoden veroffentlicht, urn ein 
Basic-Programm gegen Listen zu schutzen. Aber alle mir 
bekannten Moglichkeiten weisen entschiedene Nachteile 
auf. Entweder der Schutz ist nicht sicher genug und leicht 
zu entfernen, Oder er ist viel zu aufwendig. 

Ich habe mich daher entschlossen, ein Programm zu 
schreiben, das diese Mangel umgeht und sogar noch an- 
dere positive Merkmale aufweist. 

Zunachst eine Zusammenfassung von drei mir bekann- 
ten Listschutzmoglichkeiten mit ihren Vor- und Nachteilen: 

1. Moglichkeit 

In die erste Zeile des Basic-Programms (zum Beispiel 
Zeilennummer 1) wird REM, gefolgt von zwei Anfuhrungs- 
zeichen und SHIFT L, geschrieben. 
1 REM""L (RETURN) 

Der Cursor wird nun auf das zweite Anfuhrungszeichen 
gesetzt und sechsmal SHIFT INST gedriickt (das Anfuh- 
rungszeichen wird urn sechs Positionen nach rechts ge- 
schoben). Dann wird sechsmal DEL eingegeben (es er- 
scheinen als Steuerzeichen sechs reverse T) und die Zeile 
mit (RETURN) gespeichert. Wird nun der LIST-Befehl auf- 
gerufen, meldet sich der Rechner mit: 

ii 

7SYNTAX ERROR 
READY. 

Auf den ersten Blick sehr beeindruckend, aber durch 
Entfernen dieser Zeile ist der Listschutz wieder aufgeho- 
ben. AuBerdem ist ein »LIST 2« noch mbglich. 

2. Moglichkeit 

In jede Basic-Zeile werden synthetische Steuerzeichen 
eingefugt (genaue Beschreibung im 64'er-Magazin, Aus- 
gabe 6/84). Diese Methode ist zwar recht sicher, will man 
aber alle Zeilen eines langeren Basic-Programms schut- 
zen, istder Aufwand viel zu groB, vom Speicherplatzbedarf 
der Steuerzeichen ganz abgesehen. 

3. Moglichkeit 

Durch POKE 775,200 wird der Listbefehl auBer Kraft ge- 



setzt, durch POKE 775,167 wird diese Wirkung wieder auf- 
gehoben. Dieser Listschutz ist zwar wirkungsvoll, aber er 
muB erst durch diesen POKE-Befehl aktiviert werden. Nach 
dem Laden eines Programms ist er daher noch nicht aktiv. 

Das hier vorgestellte Programm erzeugt nicht nur einen 
sicheren Listschutz, sondern schiitzt auch vor dem L6- 
schen einzelner Basic-Zeilen. So konnen zum Beispiel Hin- 
weise auf ein Kopierrecht und auf den Autor eines Pro- 
gramms nicht geandert oder entfernt werden. Auch kann 
ein so gesichertes Programm nur mit RUN gestartet wer- 
den, ein RUN, gefolgt von einer Zeilennummer, fiihrt zu ei- 
ner Fehlermeldung. Jede Zeile des Programms ist ge- 
schutzt, es konnen also auch einzelne Zeilen nicht gelistet 
werden. Einzige Bedingung fiir die Verwendung dieses 
Schutzes: Das zu schiitzende Programm darf keine Zeilen- 
nummern und 1 enthalten. Ansonsten wird eine Fehler- 
meldung ausgegeben und das Programm bleibt unveran- 
dert. 

Das Listschutzprogramm (Listing 20) liegt als Basic- 
Lader vor. Nachdem es richtig abgetippt wurde, kann es 
durch RUN gestartet werden. Das Maschinenprogramm 
steht dann im Speicher ab der Adresse 50000 zur Verfu- 
gung. Das zu schiitzende Basic-Programm kann nun gela- 
den werden, durch SYS 50000 wird das Schutzprogramm 
aktiviert und das Basic-Programm geschutzt. Es kann nun 



REM 
1 

2 
3 
4 
5 
6 



» 


(C) U. V. GAISBERG 


* 


» 


AM ZUCKERBERG 70 


* 


* 


7140 LUDWIGSBURG 


» 


* 


TEL. 07141/55910 


» 



REM 

REM 

REM 

REM 

REM 

FOR 1=0 TO 340: READ AiB=B+AiPOKE 50000+1 

.A 

7 NEXT I 

8 IF B <> 33527 THEN PRINT"FEHLER IN DATAS 

! " I END 

9 PRINT"OK !":END 

10 REM DATAS FUER MASCHINENPROGRAMM 

11 DATA 169,0,141,32,208,141,33,208,169,1, 
141, 134, 2, 32, 6B, 229, 174, 3, 8, 172 

12 DATA 4,8,192,0,208,7,224,2,176,3,76,206 
,195,162,0,142,134,2,169,32,32 

13 DATA 210,255,232,224,50,208,246,162,0,1 
89,21,196,157,0,4,232,224,29,208 

14 DATA 245,169,24,157,0,4,232,224,69,208, 
246,162,0,189,50,196,157,80,4,232 

15 DATA 224,8,208,245,162,0,189,58,196,157 
,120,4,232,224,8,208,245,162,10 

16 DATA 160,0,24,32,240,255,169,19,162,13, 
160,4,141,119,2,142,120,2,142,121 

17 DATA 2,142,122,2,132,198,96,162,0,189,9 
9, 196, 32, 2KB, 255, 232, 224, 31, 208 

18 DATA 245,96,32,68,229,162,10,160,0,24,3 
2, 240, 255, 162, 1,142, 134, 2, 202, 1B9 

19 DATA 66,196,32,210,255,232,224,33,208,2 
45,169,20,162,17,160,255,141,18 

20 DATA 8,142,29,8,140,4,8,162,0,189,130,1 
96,157,32,8,232,224,34,208,245 

21 DATA 96, 48, IB, 5, 13, 34, 148, 148, 148, 14B,1 
48,148,148,148,148,148,34,12,12 

22 DATA 9,19,20,19,3,8,21,20,26,26,76,49,1 
9,25,19,50,48,57,56,19,25,19,53 

23 DATA 48, 49, 52, 48, 80, 82, 79, 71, B2, 65, 77, 7 
7,32,45,32,40,67,41,32,85,46,86 

24 DATA 46,71,65,73,83,66,69,82,71,32,32,4 
9,57,56,52,66,73,84,84,69,32,90 

25 DATA 69, 73, 76, 69, 32, 48, 32, 85, 78, 6B, 32, 4 
9, 32, 69, 78, B4, 70, 69, 82, 78, 69, 78 

26 DATA 32,33,169,255,141,4,8,169,131,162, 
164,141,2,3,142,3,3,76,131,164 

27 DATA 165,2,141,4,8,169,32,162,8,141,2,3 
,142,3,3,96,0 



9 frl'er 

Listing 20. Listing zu "List- und Loschschutz 
leichtgemacht« 



<131> 
<195> 
<0B0> 
<233> 
<056> 
<136> 

<099> 
<091> 

<042> 
<113> 
<157> 

<018> 

<221> 

<001> 

<190> 

<073> 

<061> 

<065> 

<210> 

<250> 

<171> 

<122> 

<045> 

<224> 

<032> 

<005> 

<172> 

<150> 
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wieder auf Kassette/Diskette gespeichert werden. Das mit 
dem Listschutz versehene Programm ist nur urn wenige By- 
tes groBer als vorher. 
Funktionsweise 

Das Maschinenprogramm generiert zwei Basic-Zeilen 
mit den Zeilennummern und 1. Die Zeile ist eine REM- 
Zeile, in der ein unlistbares Zeichen (SHIFT L) steht. Hinter 
diesem Zeichen stehen dann noch zwei kurze Maschinen- 
programme, deren Funktionen im folgenden noch erklart 
werden. In der zweiten Zeile-steht ein SYS-Befehl, der eine 
der beiden Maschinenroutinen in Zeile startet. Sind diese 
beiden Zeilen nun erzeugt, wird die Zeilennummer durch 
eine hohere, eigentlich unerlaubte Zeilennummer (groBer 
64000) ersetzt. Diese Zeile kann daher auch nicht geloscht 
werden. 

Da alle nun folgenden Zeilen des Programms kleiner 
sind als die erste, konnen diese vom Computer nicht mehr 
erkannt werden. Ein Sprung in eine solche Zeile fiihrtzu der 
Fehlermeldung: ?UNDEF'D STATEMENT ERROR. Es 
kann daher auch keine Zeile geloscht werden, da diese fur 
den Computer ja nicht mehr vorhanden sind. 

Der einzige Nachteil ist, daB es nicht nur ein perfekter 
List- und Loschschutz, sondem auch ein RUN-Schutz ist 
(auch Sprungziele innerhalb des Programms konnen nicht 
gefunden werden). 

Wird das geschutzte Programm gestartet, trifft der Inter- 
preter als erstes auf den SYS-Befehl in Zeile 1. Es folgt ein 
Sprung in das Maschinenprogramm in der REM-Zeile. Dort 
wird dieZeilennummer wieder auf Ogesetzt, und der Vektor 
auf den Basic-Warmstart wird auf die zweite Maschinen- 
routine gesetzt. 

Nun kann das Basic-Programm ohne Fehler ausgefuhrt 
werden. Wird der Programmlauf unterbrochen (durch 
STOP-Taste, Fehlermeldungen, Programmende und so 
weiter), wird das zweite Maschinenprogramm iiber den 
Basic-Warmstartvektor angesprungen. Dort wird die Zei- 
lennummer wieder hochgesetzt, der Warmstartvektor wie- 
der auf den normalen Wert gebracht und die Warmstartrou- 
tine angesprungen. Das Programm liegt nun wieder in der 
geschiitzten Form vor. (Ulrich von Gaisberg/sk) 



Eine Zeile = kompletter Dutenschutz 

Diese Routine von Volker Ritzhaupt erreicht, daB auf einer 
Diskette weder das Inhaltsverzeichnis gelistet, Programme 
geloscht noch irgendetwas auf die Diskette geschrieben 
werden kann. Das Laden der Programme funktioniert hin- 
gegen ganz normal. Der Inhalt der Diskette kann nur durch 
Formatieren mit einer neuen ID-Nummer noch manipuliert 
werden. 

Das Directory wird nicht mehr gelistet, weil es als Basic- 
Programm geladen wird und in dem veranderten Directory 
drei Nullen tfm Anfang (fur den Interpreter das Zeichen fur 
Programmende) erscheinen. Das »Directory-Programm« 
endet also schon nach 10 Byte. Die ersten 5 Byte stellen 
den Zeilenanfang und die Zeilennummer dar. Darauf fol- 
gen, wie immer am Anfang eines Inhaltsverzeichnisses, ein 



1 openl ,8,3, "#" : open2,8, 15, "b-p3, 144" :pr 
intttl , "IXWchr* (0) chr* (O) chr* (O) : print#2 
,"u2:3,0, 18":print#2,"i 

2 rem 

3 rem verhindert au-flisten des directory 

und macht schreibschutz auf disk 

4 rem 



Leerzeichen und ein Anfiihrungszeichen. Urn diese drei 
Zeichen beim Listen verschwinden zu lassen, folgen nun 
drei CHR$(20), also drei DELETES. Dies bewirkt, daB das 
Directory beim Listen vollig verschwindet. Da nun unmittel- 
bar die drei Nullen folgen, wird das Listen hier abgebro- 
chen. Auf den LIST-Befehl erscheint nur die Meldung 
»READY«. 



Reset-Heifer fur C 64 

Das Betriebssystem des C64 enthalt ab der Adresse 
$FD02 ein Unterprogramm, das im Steckmodulbereich ab 
$8000 nach der Zeichenfolge »CBM80« sucht. Nach dem 
Einschalten des Computers oder nach einem Reset wird 
dieses Unterprogramm jedesmal aufgerufen. Werden ab 
der Adresse $8003 die Zeichen »CBM80« gefunden, dann 
wird nicht zum Basic-Start gesprungen, sondern das Be- 
triebssystem nimmt an, daB ein Modul eingesteckt ist, holt 
sich aus der Speicherzelle $8000/$8001 die Startadresse 
des Modulprogramms und verzweigt dorthin. 

Das kleine »Reset-Helfer«-Programm (Listing 21) nutzt 
dies aus, indem es die genannten Speicherstellen in geeig- 
neter Weise abandert. Es schreibt die »CBM80«-Zeichen- 
folge ab $8003 ins RAM und laBt die Speicherstellen $8000/ 
$8001 auf den Basic-Warmstart zeigen. 

Wenn man jetzt einen Reset auslost, kommt man wie ge- 
wohnt aus alien »abgestiirzten« Programmen heraus, ein 
vorhandenes Basic-Programm bleibt aber erhalten. 

(Henning Zipf/sk) 



100 REM **» RESET-HELFER «*» 




<141> 


110 REM 




<172> 


120 REM HENNIN6 ZIPF 




<168> 


13B REM KIRCHSTR. 8 




<036> 


140 REM 6086 RIEDSTADT 5 




<150> 


150 REM TEL. (06158) 72453 




<243> 


160 REM 




<222> 


170 FOR 1=1 TO 9 




.016 


180 READ D 




<244> 


190 POKE 32767+1 ,D 




<196> 


200 NEXT I 




<02B> 


210 POKE 532B0, 14s POKE 53281,6 




<166> 


220 PRINT CHR*(147);CHR*(5) 




<071> 


230 PRINT" C 64 CHANGED RESET VEKTOR" 


<067> 


240 PRINT 




<086> 


250 PRINT" 64 K RAM SYSTEM 38911 


BASIC 


BYT 


ES FREE" 




<233> 


260 PRINT 


. 


<10B> 


270 NEW 




<154> 


280 DATA 0,0,255,0,195,194,205,56,48 


<015> 


290 REM ERST SAVE, DANN RUN ! 




<160> 


Listing 21. Listing zu »Reset-Helfer fur C64« 





Das elektronische Tagebuch 



Uralt schon ist das Bestreben vieler Leute, ihre geheimsten 
und privatesten Aufzeich nungen so gut wie moglich vor all- 
zu neugierigen Mitmenschen zu schutzen. Und wer kennt 
sie nicht, die Kladde mit dem SchloBchen.tler solche Ge- 
heimnisse anvertraut werden - mit dem blauaugigen Glau- 
ben, es gabe niemanden, der auf die Idee kame, sich dem 
SchloB mit einer aufgebogenen Biiroklammerzu nahern... 

Es liegt also nahe, sich nach einem wirkungsvolleren 
Schutz umzusehen. Der Computer bietet sich fur solch ver- 
antwortungsvolle Dienste geradezu an. Es fehlt also nur 
noch das passende Programm. 

Das »elektronische Tagebuch« in seiner Mikroausfuh- 
rung (Listing 22) ist da genau richtig. Die Vorteile liegen auf 
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der Hand: Das Programm ist sehr kurz (eine Bildschirmsei- 
te) und zugleich recht komfortabel. Seine Benutzung berei- 
tet also weder bei der Eingabe noch bei der Anwendung 
groBen Aufwand. 

Das Programm laBt sich theoretisch auf jedem Commo- 
dore-Computer verwenden, einzige Voraussetzung ist na- 
tiirlich ein externes Speichermedium, sprich: Datasette 
oder Floppy. 

Die vorliegende Version ist fur den Gebrauch mit dem 
C64 und Diskettenstation vorgesehen, die Anleitung zum 
Umschreiben auf Kassettenbetrieb und Hinweise fur Be- 
nutzer anderer Computer folgen weiter unten. 

Das Programm ist im Vergleich zur beschriebenen Klad- 
de recht sicher. Absolut unknackbar ist es zwar nicht, aber 
es gehort Intelligenzstatt Fingerspitzengefuhl dazu, aus ei- 
ner polyalphabetisch verschliisselten und zu scheinbar be- 
ziehungslosen Zahlenfolgen umgewandelten Buchstaben- 
kombination ein lesbares Satzgefiige (sprich: Text) zu ma- 
chen. AuBerdem steht es jedem frei, seine eigene Chiffrier- 
methode zu entwickeln. 

Doch kommen wirzum Programm selbst. Der Aufbau ist 
denkbar einfach: Gleich nach dem Start wird aus Sicher- 
heitsgrunden (fur Ihren Text) die RUN/STOP-RESTORE- 
Funktion ausgeschaltet. In dem jetzt erscheinenden Mini- 
Menu miissen Sie sich entscheiden, ob Sie einen Text ein- 
geben und codieren Oder ob Sie ihn decodieren und lesen 
wollen. Dann werden Sie daran erinnert, eine Diskette (be- 
ziehungsweise Kassette) ins Laufwerk zu legen. 

Sobald das alles erledigt ist, mussen Sie Ihre personli- 
chen Codezahlen eingeben, mit denen der Text »bearbei- 
tet« werden soil. Fur diese Codezahlen ist keine Begren- 



5 PRINT" CCTRL-N , CLR , 2DOWN , 3SPACE>£LEKTR0NI 

SCHES J^GEBUCH" <009> 

10 POKE 808. 254: PRINT ■<2DOWN,3SPACE>ttENUE: 
" : INPUT "CD0WN.3SPACE31 =CODIEREN. 2=DECO 
DIEREN"',V <045> 

12 PRINT "CDOWN.SSPACEJfilTTE SISKETTE EINLE 

nENICDOHN)" <105> 

15 PRINT TAB(26) , TT.MM.JJJJC2UPJ":INPUT"<:D 

OWN,18SPACE>£ATUM ";D$ <191> 

IB PRINT" (DOWN, 3SPACE}££>DEZAHLEN X,Y,Z"'-IN 
PUT"CUOUN,3SPACE>Dl)RCH &OMMA GETRENNT " 
iA.B.C <066> 

20 DIM T<839).T$(839):X=0:IF W = 2 THEN 70 <127> 
25 PRINT"CCI.R,DOWN,3SPACE)XEXTEINGABE (MAX 
. 839 SEICHENJ" : PRINT "C3SPACEV*' = £ND 
E":PRINT"<:DOWN>>"; <12B> 

30 GET T$(X):IF T$(X)=""THEN 30 <202> 

35 IF T$(X>="*"OR X=839 THEN 50 <096> 

40 PRINT T$(X); :X=X+1 =GOTO 30 <184> 

50 OPEN 1 ,8.2,D$+" ,S,U":PRINTttl .X:FOR 1=0 

TO X-1:B=B+CA*C) :PRINT»1 , ASC(T$( I ) )+C+B <218> 
60 NEXT I: CLOSE l'-GOTO 99 <143> 

70 PRINT "<:CLR,DOWN:»";: OPEN 1 ,8. 2 ,D$+" .S,R 
":INPUT«l,X:FOR 1=0 TO X-l :B=B+ ( A*C) i IN 
PUT«1,T<I> <019> 

80 T(I)=(T(I)-B)-C:IF T(I)<0 OR T(I)>255 T 
HEN CLOSE 1 : PRINT "<:DOWN>£ALSCHE £INGABE 
" :GOTO 99 <047> 

90 PRINT CHR$(T(I) ) ; :NEXT I '-CLOSE 1 <080> 

99 CLR=POKE 808,237 : END: REM -PTS.1985- <004> 

B 64' er 

Listing 22. »Eiektronisches Tagebuch«. Niemand hat 
Zutritt zu Ihren privaten Aufzeichnungenl 



zung vorgesehen, da der Computer jedoch mit ihnen rech- 
nen muB, empfiehlt es sich, ein manierliches MaB beizube- 
halten. (Mit Zahlen im dreistelligen Bereich sollte es keine 
Probleme geben.) 

Jetzt teilt sich der Weg. Haben Sie vorhin im Minimenii 
eine 1 (fur »codieren«) getippt, so konnen Sie jetzt Ihren Text 
eingeben. Dimensioniert ist ein Feld von 839 Zeichen, also 



gerade soviet, daB der Anweisungstext noch auf dem Bild- 
schirm sichtbar bleibt und auch spater, beim Decodieren, 
nichts vom Bildschirm nach oben »wegrutscht«. Wenn Sie 
ubrigens Textteile mit »INST/DEL« loschen, so werden alle 
eingegebenen Zeichen, also sowohl die urspriinglichen 
Buchstaben als auch jedes »INST/DEL« mitgezahlt und 
dann mitverschlusselt. Damit lassen sich beim spateren 
Decodieren recht reizvolle Effekte erzielen. Probieren Sie's 
doch einfach mal aus! 

Selbstverstandlich konnen Sie die Texteingabe auch 
schon vor Erreichen des 839. Zeichens abschlieBen: Sie 
brauchen nur die Sterntaste (»*«) zu driicken. Wenn Sie 
den Stern in Ihren Texten verwenden wollen, setzen Sie an 
der entsprechenden Programmstelle (Zeile 35) einfach nur 
ein anderes ENDE-Zeichen ein. 

Sobald die Eingabe beendet ist, schreibt der Computer 
zunachst die Anzahl der Zeichen in die Datei. Dann errech- 
net er Buchstabe fur Buchstabe nach einem bestimmten, 
sich standig systematisch verandernden Prinzip (Sie fin- 
den es in Zeile 50) eine bestimmte Zahl und speichert diese 
ebenfalls auf der Diskette (oder auf der Kassette). 

AnschlieBend, und hier vereinigen sich die beiden Pro- 
grammzweige wieder (Zeile 99), werden durch »CLR« alle 
Variablen, also der Text und Ihre Codezahlen, geloscht. 
Nun wird die Blockierung von RUN/STOP und RESTORE 
aufgehoben und das Programm beendet. 

Der zweite Zweig, das Decodieren, beginnt in Zeile 70. 
Hier wird genau umgekehrt verfahren wie im ersten Teil: 
Erst wird die Anzahl der zu decodierenden Zahlen gelesen, 
dann kommen die Zahlen selbst an die Reihe. Stuck fur 
Stuck werden sie aus der Datei geholt, entschliisselt, in 
Buchstaben umgewandelt und ausgegeben. 

Befindet sich ein errechneter ASCII-Code jedoch nicht im 
vorgesehenen Bereich (0 bis 255), sprich: waren die einge- 
gebenen Codezahlen falsch, wird das Programm mit ent- 
sprechender Fehlermeldung abgebrochen (Zeile 80). 

Es kann auch vorkommen, daB Sie einen unleserlichen 
Zeichensalat auf den Bildschirm bekommen. Auch dann 
waren die Codes falsch, jedoch hielt sich die Abweichung 
so sehr in Grenzen, daB es rechnerisch nicht einwandfrei 
uberpriifbar war. Beachten Sie auch, daB Sie fiir jeden Tag 
nur einen Eintrag in Ihr »Tagebuch« vornehmen durfen. 

Benutzer anderer Computer als dem C 64 mussen den 
POKE gegen RUN/STOP-RESTORE (in den Zeilen 10 und 
99) gegebenenfalls andern oder ganz weglassen. 

(Peter T Schmidt/sk) 



Sprites suchen 



1 V=532-48:P0KEV+l,128:P0KEV,128:P0KEV+23,255: 
POKEV+29 , 255 : P0KEV+21, 255 

2 PRINT "J CLR) ";A 

3 GETA$:IFA$=""THEN3 

-4 IFA$= "( CRSR-RechtsJ " 

THENA=A+1 : IFA=256THENA=255 

5 IFA$= "( CRSR-nach unten) " 
THENA=A-1:IFA=-1 THENA=0 

6 IFA$="M"THENPOKEV+28,255 

7 IFA$="N"THENPOKEV+28,0 

8 P0KE2040,A:GOT02 

Das obige Programm »Sprite-View« muB abgetippt und 
gespeichert werden. Nach dem Start erscheint ein weiBes 
Sprite auf dem Bildschirm und in der linken oberen Ecke 
steht eine Zahl. Dies ist die Blockzahl des Sprites. Multipli- 
ziert man die Blockzahl mit 64, so erhalt man die Start- 
adresse des Sprites. Mit der Taste <Cursor-rechts> er- 
hoht man die Blockzahl urn 1, mit <Cursor-hinunter> er- 
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niedrigtmansieuml.Mit <M> schaltet man den Multico- 

lormodus des Sprites ein, mit <N> wieder aus. So kann 

man zwischen 256 Sprites blattern. 

Programm-Erlauterung: 

Zeile 1: Initialisierung Sprite 

Zeile 2: druckt Blockzahl auf Bildschirm 

Zeile 3: warte auf Taste 

Zeile 4: wenn Taste = Cursor rechts, dann Blockzahl +1, 

wenn Blockzahl = 256, dann Blockzahl = 255 
Zeile 5: wenn Taste = Cursor runter, dann Blockzahl -1, 

wenn Blockzahl = -1, dann Blockzahl 
Zeile 6: wenn Taste = M, dann Multicolor ein 
Zeile 7: Wenn Taste = N, dann Multicolor aus 
Zeile 8: Blockzahl POKEn, Sprung nach 2 

(Christoph Brochhaus/sk) 

Whs tun bei »out of memory«? 

Hatten Sie auch schon mal wahrend der Arbeit mit dem 
C 64 plotzlich aus heiterem Himmel einen »out of memory 
error-? Abgesehen davon, daB Sie wirkiich ein auBerst lan- 
ges Programm im Speicher haben konnten, taucht diese 
Meldung auch nach dem Laden von vielen Maschinenpro- 
grammen auf. Die Fehlermeldung kommt meistens dann, 
wenn Sie nach dem Laden entweder ein Basic-Programm 
mit RUN starten, Oder aber ein weiteres Programm laden 
mochten. 

Warum taucht dieser Fehler auf? Wenn Sie zum Beispiel 
eine Variable mit einem Wert belegen (A=10), dann legt der 
C 64 diese Zahl 10 direkt hinter dem aktuellen (Basic-)Pro- 
gramm im Speicher ab. Dazu muB er aber wissen, wo das 
Programm aufhort. Zu diesem Zweck gibt es einen soge- 
nannten »Zeiger«, der die letzte vom Programm belegte 



Adresse angibt. Der Zeiger wird aktualisiert, wenn Sie das 
Programm in seiner Lange verandern, also eine Zeile hin- 
zuschreiben oder loschen. Der Zeiger wird aber auch ge- 
setzt, wenn Sie ein Programm von Diskette laden. 

Maschinenprogramme werden vom Programmierer mei- 
stens in Speicherbereiche gelegt, die von Basic-Program- 
men aus normalerweise nicht iiberschrieben werden. Die- 
se Bereiche haben sehr hohe Adressen, auf die der eben 
beschriebene Programmende-Zeiger nach dem Laden ge- 
setzt wird. Wenn Sie jetzt einen Befehl eingeben, der eine 
Variable definiert, erkennt der C64, daB hinter dem Pro- 
grammende-Zeiger bereits ein Speicherbereich liegt, der 
von einem Basic-Programm nicht benutzt werden darf. 

Ein Beispiel: Basic-Programme haben im allgemeinen 
den Speicherbereich von Adresse 2049 bis Adresse 40959 
zur Verfugung. Maschinenprogramme verwenden jedoch 
haufig den etwas hoher liegenden Bereich zwischen Adres- 
se 49152 und Adresse 53247. Wenn ein Programm in die- 
sen hohen Bereich geladen, also der Zeiger zum Beispiel 
auf Adresse 51234 gesetzt wird, kommt es beim spateren 
Belegen einer Variablen zum »out of memory error«. 

Auch beim Laden von Programmen wird eine Variable 
belegt: Der C64 merkt sich den Namen des zu ladenden 
Programms am Ende des Basic-Speichers. Vorher wird je- 
doch anhand des Programmende-Zeigers uberpriift, ob 
dafur uberhaupt noch Platz ist. In unserem Beispiel mit der 
Adresse 51234 ist dies nicht der Fall. Also kommt es auch 
beim Nachladen von Programmen zum »out of memory er- 
ror«. 

Doch was tun? Geben Sie einfach N EW ein. Keine Angst: 
Dadurch wird das Maschinenprogramm nicht geloscht. Le- 
diglich der Programmende-Zeiger wird auf Adresse 2051 
gesetzt, also festgeiegt, daB sich kein Basic-Programm 
mehr im Speicher befindet. (Michael Thomas/sk) 



Sicher ist sicher 



Das kleine Programm »TIMESAVE« ist fur den 
Basic-Programmierer eine uneriaBliche Hilfe. Es 
speichert Ihr Programm nach Ablaut einer gewis- 
sen Zeit selbstandig auf Diskette. 

Eine goldene Regel beim Programmieren und Abtippen 
heiBt: Programm vor dem Start speichern. Jedem ist es 
schon einmal passiert: Nach RUN war der C64 im 
Nirwana verschwunden und nur durch Aus-/Einschalten 



oder Reset wieder auf de n Boden der Tatsachen zuriickzu- 
holen. Dann heiBt es: Alles noch mal eingeben. Der Sicher- 
heitskopierer »TIMESAVE« nimmt dem Programmierer die- 
se Sorge ab. 

Denn dieses Programm speichert in frei wahlbaren, re- 
gelmaBigen Abstanden das Basic-Programm - sogar aus 
laufenden Basic-Programmen heraus - auf Diskette. Da 
das Programm IRQ und den NMI-Vektor benutzt, wird aber 
nicht aus laufenden Maschinenprogrammen gespeichert, 
die diese Vektoren verandern. 
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»TIMESAVE« (Listing 1) stent bei $C000 im Speicher und 
belegt somit keinen Basic-Speicherplatz. Nach dem Laden 
mit 

LOAD "TIMESAVE",8,1 

muB NEW eingegeben werden. Mit SYS 49152 starlet man 
dann das Programm. Zuerst gibt man den Filenamen ein, 
unter dem die Sicherheitskopien des Basic-Speichers auf 
Diskette abgelegt werden sollen. Dabei ist zu beachten, 
daB der Filename 15 Zeichen lang sein muB. Es werden da- 
bei auch Leerzeichen in Filenamen akzeptiert. Die ersten 
Zeichen sollten jedoch Buchstaben oder Zahlen sein . Nach 
dieser Eingabe kommt die Meldung: 

*TIMESAVE IST INSTALLIERT« 

Variabler Zeitabstand 



Nun stellt man den die gewunschte Zeit zwischen zwei Si- 
cherheitskopien ein. Dies geschieht mit POKE 49446.X (0 
( X ( =255). Die Variable X gibt den Zeitabstand in Minuten 



an, andert man diese Speicherstelle nicht, so speichert 
»TIMESAVE« das Programm alle 15 Minuten. 

Speichern im 15-Minuten-Takt 



Wenn Sie auBerhalb dieser Zeiten Ihr Programm speichern 
wollen, steht Ihnen dazu die RESTORE-Taste zur Verfu- 
gung. Mit der Tastenkombination (CTRL RESTORE) klinkt 
man die Routine aus dem Interrupt-System aus. Ein Neu- 
start erfolgt mit SYS 49152. 

(Thomas Olschewski/U. Beenen) 



Kurziibersicht ' 


(Neu)-Slart 


SYS49152 


X-Minutenabstand 


POKE 49446.X 


Sofort Speichern 


(RESTORE) 


Ausklinken 


(CTRL RESTORE) 


Filename 


Immer 15 Zeichen 



Fur alle Programmierer: 
vier Utilities mit Pfiff 



Jetzt konnen Sie Programme vergleichen und 
erfahren dabei genau, wie sich diese unterschei- 
den. Mit inversen REM-Zeilen lassen sich Basic- 
Programme noch besser strukturieren. Strings 
werden extrem schnell sortiert und zu guter Letzt 
haben Sie 40 Byte des Speichers standig im Blick. 

Wer achtet nicht bei der Entwicklung von eigenen 
Programmen auf eine gute Struktur? SchlieBlich 
will man auch nach einem Monat noch den Uber- 
blick behalten. Ein wesentliches Element dabei ist die 
Dokumentation mit REM-Zeilen. 

Ubersicht durth inverse REM-Zeilen 



REM-Zeilen machen Listings ubersichtlicher. Ist jedoch der 
Kommentartext zusatzlich invertiert, erleichtert dies das 
Auffinden bestimmter Programmteile. 

Mit dem Programm »lnvers REM« (Listing 1) werden 
samtliche Kommentartexte bei einem REM-Befehl inver- 
tiert, das heiBt »revers« dargestellt. Dazu wird das erste 
Zeichen nach dem REM-Befehl mit dem Revers-Zeichen 
(CHR$-Code 18) uberschrieben. Nach dem REM-Befehl 
sollte also mindestens ein Leerzeichen stehen, damit kein 
Informationstext verlorengeht. 

Sind die REM-Zeilen einmal konvertiert worden, kann 
man das Basic-Programm abspeichern. Die Kommentar- 
zeilen werden dann immer hervorgehoben dargestellt. 

Geben Sie Listing 1 mit dem MSE ein. »lnvers REM« wird 
absolut geladen, das heiBt mit »LOAD"Name",8,1«. 
Danach muB »NEW« eingegeben werden. Sie konnen nun 
Ihr eigenes Basic-Programm eingeben oder von Diskette 
laden. Nach »SYS 49152« und (RETURN) werden alle 
REM-Zeilen konvertiert und damit invers. Jetzt wird das so 
geanderte Programm gespeichert. 



Noch eines sei gesagt. Da modifizierte Betriebssysteme, 
wie zum Beispiel »Speeddos Plus«, eine veranderte List- 
Routine besitzen, werden die REM-Kommentare nicht 
invertiert ausgegeben. 



Speicher-Spion 



Das Programm »Showmen.irq« (Listing 2) zeigt Ihnen stan- 
dig einen beliebigen Speicherbereich mit 40 Byte Lange in 
der ersten Bildschirmzeile (Bild 1). 

Dieses interruptgesteuerte Programm eignet sich her- 
vorragend zur Fehlersuche, da man sehr schnell feststellen 
kann, ob und wie sich ein Speicherbereich andert. Dazu 
werden in der ersten Bildschirmzeile die Bildschirmcodes 
des ausgewahlten Speicherbereichs dargestellt. Sie kon- 
nen jetzt nur noch auf die restlichen 24 Zeilen des Bild- 
schirms zugreifen. 

-ftli.li.TCtBliUC4tl9E tH -=^-=i, r-H>liTCttHIUC 



SVS49152 

ADRESSE: 
READY. 



ceee 



Bild 1. Die Kopfzeile unseres Programms "Showmen. irq« 
mit Einblick in den Speicher. Hier wurden die 40 Byte ab 
Adresse SC000 gewahlt. Durch die standige Kontrolle las- 
sen sich Anderungen schnell erkennen. 

Geben Sie Listing 2 mit dem MSE ein. Geladen wird es 
absolut mit »LOAD"Showmem.irq",8,1«. AnschlieBend 
muB noch »NEW« eingegeben werden. 

Sie starten diesen Speicher-Spion mit »SYS 49152«. Das 
Programm gibt dann einige Kommentarzeilen aus und for- 
dert zur Eingabe der Anfangsadresse auf. Ab dieser 
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Adresse werden die folgenden 40 Byte auf dem Bildschirm 
dargestellt. Die Eingabe der Adresse muB hexadezimal in 
vierstelliger Form erfolgen. Wird dieses Format nicht einge- 
halten, muB man die Eingaben wiederholen. AnschlieBend 
befindet man sich wieder im Direktmodus und kann in der 
ersten Bildschirmzeile die ausgewahlten Speicherinhalte 
betrachten. Mit (RUN/STOP RESTORE) wird die Routine 
beendet. 

Extrem schnelles String-Sortieren 



String-Sortieren ist eine komplizierte und langsame Arbeit 
fur den C64, aber nicht mit »Sort String«. Diese Routine 
(Listing 3) hat die hervorragende Sortiergeschwindigkeit 
von 100 Strings in zirka 1 Sekunde und 1000 Strings in zirka 
25 Sekunden. 

Eine solche Geschwindigkeit kann nur durch ein Maschi- 
nenprogramm erreicht werden. Der Trick liegt darin, daB 
nur die Element-Pointer vertauscht werden. Die Strings 
selbst bleiben jedoch unberiihrt im Speicher. Dadurch ent- 
rant auch die zeitaufwendige "Garbage Collections 

Das Maschinenprogramm ist als Basic-Lader, den man 
mit »GOSUB 50000« aufruft, programmiert. Zuvor muB 
aber noch die Speichergrenze auf $9d9f (dez. 40351) her- 
abgesetzt und der CLR-Befehl ausgefiihrt werden. Dies 
alles geschieht durch: 
1 POKE 56,157 : POKE 55.159 : CLR : G0SUB 50000 

Nun konnen Sie Ihr String-Array dimensionieren und 
bearbeiten. Beachten Sie aber dabei, daB nur eindimensio- 
nale String-Arrays sortiert werden. Bevor Sie die Sortier- 
routine aufrufen, mussen einige Vorbereitungen erfolgen. 

Dem Programm muB der Variablenname mitgeteilt wer- 
den: 

POKE -40352, ASC (l.Buchstabe des Varlablennamen) 
POKE 40353, ASC(2.Buchstabe des Varlablennamen) 

Bestehtder Variablennamen nurauseinem Buchstaben, 
dann wird in die zweite Speicherstelle der Wert 128 
geschrieben: 
POKE 40353,128 

Nun muB dem Programm die Elementanzahl mitgeteilt 
werden. Das High-Byte wird in der Adresse 40355 und das 
Low-Byte wird in der Adresse 40354 abgelegt: 
POKE 40354, Elementanzahl AND 255 
POKE 40355, INT (Eleraentanzahl/256) 

Die Maschinenroutine wird nun durch SYS 40371 aufge- 
rufen. Danach sollte der Inhalt der Speicherstelle 40356 
ausgelesen werden, denndieser Wert zeigteinen eventuel- 
len Fehler an. Bei dem Wert 1 wurde das Array nicht gefun- 
den. Eine 2 zeigt an, daB das Array nicht eindimensional ist. 
Jeder andere Wert gibt zu erkennen, daB das String-Array 
sortiert wurde. 

Geben Sie Listing 3 mit dem Checksummer ein. Listing 
4 ist ein Demoprogramm, das 20 zufallige Strings mit die- 
ser Routine sortiert. Es kann entweder in Listing 3 anstelle 
derZeile 100 eingefiigt werden, Oder Sie laden undstarten 
Listing 4, nachdem die Sortierroutiene von Listing 3 gene- 
riert wurde. Beachtenswert ist bei dem Demo, daB der Sor- 
tiervorgang erst nach dem Tastendruck (Zeile 1045) einge- 
leitet wird. Lassen Sie sich iiberraschen von der Sortierge- 
schwindigkeit. 

Programme verajeichen mit Komfort 

Haben Sie sich auch schon daruber geargert, daB man mit 
dem VALIDATE-Befehl zwar erfahrt, ob zwei Programme 
gleich sind oder nicht; Sie erfahren aber nicht, wo sich 
diese uberall unterscheiden und wie. Das wird jetzt anders. 



Das Programm "Compare Files« (Listing 5) vergleicht 2 
Files auf der Diskette. Zuerst fordert das Programm zur Ein- 
gabe des ersten Filenamen auf. Es wird nun versucht, das 
File auf der Diskette zu f inden und zu laden. Findet das Pro- 
gramm dieses File nicht, so gibt es eine Meldung auf den 
Bildschirm aus und fordert eine neue Eingabe. Dies wird so 
lange wiederholt, bis das erste File geladen wurde. Jetzt 
muB man den zweiten Filenamen eingeben; das geschieht 
wie beim ersten. 

Nach dem Laden vergleicht das Programm die beiden 
Dateien. Nicht iibereinstimmende Bytes werden mit -Off- 
set" angezeigt. Ein Beispiel: 
Offset: $004d File 1: $41 a File 2: $00 . 

In diesem Beispiel hat das 79. Byte ($4d) des ersten Files 
den Inhalt $41, das 79. Byte im zweiten File dagegen den 
Inhalt $00. »a« und ».« sind die ASCII-Zeichen der Werte $41 
und $00. Eine Ausgabe von »$..« bedeutet, daB dieses Byte 
bei diesem File nicht mehr vorhanden ist (dieses File ist 
also kiirzer). 

Die Ausgaben der Offset-Tabelle konnen Sie mit (CTRL) 
verlangsamen. (RUN/STOP) halt die Ausgabe an, mit (SPA- 
CE) setzt man die Ausgaben wieder fort. Am Ende des Ver- 
gleichs wird die Anzahl der unterschiedlichen Bytes ausge- 
geben. 

Wenn der Vergleich abgeschlossen ist, wird man vor die 
Wahl gestellt, ob der Vergleich wiederholt werden soil. Man 
antwortet mit den Tasten (J) fur ja oder (N) fur nein. Bei nein 
wird das Programm beendet. 

Geben Sie Listing 5 mit dem MSE ein. "Compare Files« 
ladt man absolut. Vor dem Start mussen Sie noch »NEW« 
eingeben. Mit der Eingabe von »SYS 49152« starlet man 
das Programm. 

Das Programm eignet sich beispielsweise auch hervor- 
ragend zum Auffinden der Unterschiede zwischen ver- 
schiedenen Kernel-Versionen, wenn diese softwaremaBig 
vorliegen. (Andreas Nagler/Thomas Lipp) 



Listing 1. -Invers 
REM« invertiert 


Name 


i rivers rem 




cOOO c056 




cOOO 


a2 03 aO 05 


20 


42 cO dO 


a5 




samtliche Kom- 


c0O8 


lb ca fO 42 


20 


46 cO 20 


84 




mentartexte nach 
dem REM-Befehl. 


cOlO 
c018 
c020 


42 cO fO f5 
aa 20 46 cO 
f 8 20 42 cO 


8a 
oa 
c8 


18 69 05 
eO 04 bO 
8f fO 06 


c6 
al 
ba 




Bitte mit dem 


c028 


20 46 cO 4c 


04 


cO 20 46 


78 
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c030 
c038 


cO ad 44 cO 
12 99 00 Ob 


ad 

20 


3b cO a9 
46 cO 4c 


f9 
48 




eingeben. 


c040 


04 cO b9 00 


08 


60 c8 fO 


9b 






C048 


01 60 ee 44 


eO 


60 a9 08 


83 






o050 


8d 44 cO 60 


60 


60 ff 00 


44 





Listing 2. "Show- 
mem. irq« zeigt 


Name : 


showmen, irq 






cOOO c099 


cOOO : 


7B 


nfl 


31 8d 


14 


3 


nfl 


ea 


21 


standig einen 


c0O8 : 


8d 


15 


03 58 


a9 


39 


aO 


cO 


54 


beliebigen Spei- 


cOlO : 


20 


le 


ab 20 


52 


cO 


8e 


2d 


ee 


cherbereich von 


c018 : 
c020 : 


cO 
14 


8d 
03 


2c cO 
a9 cO 


/8 
Rd 


aa 

If. 


29 

03 


8d 
58 


57 

76 


40 Byte Lange in 


c028 : 


60 


aO 


00 b9 


00 


10 


99 


00 


n 


einer Kopfzeile. 


c030 : 
c038 : 


04 
ea 


c8 
Od 


cO 27 
41 44 


dO 
52 


4S 


4c 
53 


31 
53 


fe , 
o5 


Bitte mit dem 


C040 : 


45 


3a 


20 00 


20 


of 


ff 


c.a 


bf 


MSE (Seite 159) 
eingeben. 


c048 : 


Od 


dO 


06 4c 


44 


oO 


20 


cf 


33 


c050 : 


ff 


60 


20 5a 


cO 


aa 


20 


5a 


69 


c058 : 


cO 


60 


a'.i 00 


Bd 


90 


cO 


20 


53 




c060 : 


44 


cO 


c9 20 


dO 


Oh 


20 


41 


e9 




c068 : 


cO 


4c 


62 cO 


n9 


20 


dO 


Oe 


fc 




c070 : 


60 


20 


85 cO 


Oa 


Oa 


Oa 


Oa 


87 




c078 : 


8d 


90 


cO 20 


44 


oO 


20 


85 


57 




c080 : 


cO 


Od 


90 cO 


60 


c9 


3a 


08 


50 




c088 ! 


29 


Of 


28 90 


02 


69 


08 


60 


al 




C090 : 


00 


16 


cl bd 


88 


c7 


20 


16 


37 




c098 : 


cl 


tt 


00 ff 


00 


tt 


00 


ff 


59 



154 
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TIPS & TRICKS 



1 POKE 56, 157: POKE 55, 159: CLR:GOSUB 50000 <104> 

100 END <102> 

49990 REM»**»»*****#*»**#***#*»*»**#»*» <003> 

50000 FOR F=40371 TO F+429:READ ft: POKE F,A 

:NEXT <100> 

50008 RETURN <025> 

50009 DATA 173,160,157,41,127 <113> 

50010 DATA 141,160,157,173,161 <142> 
50020 DATA 157,9,128,141,161 <245> 
50030 DATA 157,169,0,141,164 <213> 
50040 DATA 157,165,47,133,180 <083> 
50050 DATA 165,48,133,181,160 <220> 
50060 DATA 0,177,180,205,160 < 1 18> 
50070 DATA 157,208,8,200,177 <113> 
50080 DATA 180,205,161,157,240 <151> 
50090 DATA 42,160,2,177,180 <221> 
50100 DATA 141,165,157,200,177 <054> 
50110 DATA 180,141,166,157,24 <202> 
50120 DATA 165,180,109,165,157 <066> 
50130 DATA 133,180,165,181,109 <166> 
50140 DATA 166,157,133,181,197 <042> 
50150 DATA 50,144,207,240,205 <169> 
50160 DATA 169,1,141,164,157 <204> 
50170 DATA 76,224,158,160,4 <149> 
50180 DATA 177,180,201,1,240 <166> 
50190 DATA 8,169,2,141,164 <234> 
50200 DATA 157,76,224,158,24 <165> 
50210 DATA 165,180,105,7,133 <001> 
50220 DATA 180,165,181,105,0 <104> 
50230 DATA 133,181,173,162,157 <237> 
50240 DATA 141,177,157,173,163 <197> 
50250 DATA 157,141,178,157,173 <231> 
50260 DATA 178,157,208,12,173 <092> 
50270 DATA 177,157,240,4,201 <165> 
50280 DATA 1,208,3,76,224 <116> 
50290 DATA 158,78,178,157,110 <108> 
50300 DATA 177,157,56,173,162 <134> 
50310 DATA 157,237,177,157,141 <030> 
50320 DATA 175,157,173,163,157 <210> 
50330 DATA 237,178,157,141,176 <066> 
50340 DATA 157,162,0,138,141 <034> 
50350 DATA 168,157,141,169,157 <221> 
50360 DATA 173,177,157,141,170 <086> 
50370 DATA 157,173,178,157,141 <246> 
50380 DATA 171,157,238,168,157 <001> 
50390 DATA 208,3,238,169,157 <245> 
50400 DATA 173,169,157,205,176 <198> 
50410 DATA 157,240,4,176,85 <140> 
50420 DATA 144,10,173,168,157 <020> 
50430 DATA 205,175,157,240,2 <126> 
50440 DATA 176,73,238,170,157 <076> 
50450 DATA 208,3,238,171,157 <111> 
50460 DATA 160,3,165,180,133 <091> 
50470 DATA 184,133,186,165,181 <052> 
50480 DATA 133,185,133,187,24 <207> 
50490 DATA 165,184,109,168,157 <198> 
50500 DATA 133,184,165,185,109 <044> 
50510 DATA 169,157,133,185,24 <219> 
50520 DATA 165,186,109,170,157 <217> 
50530 DATA 133,186,165,187,109 <082> 
50540 DATA 171,157,133,187,136 <186> 
50550 DATA 208,223,32,225,158 <121> 
50560 DATA 173,167,157,240,163 <238> 
50570 DATA 48,161,32,80,159 <131> 



50580 


DATA 


50590 


DATA 


50600 


DATA 


50610 


DATA 


50620 


DATA 


50630 


DATA 


50640 


DATA 


50650 


DATA 


50660 


DATA 


50670 


DATA 


50680 


DATA 


50690 


DATA 


50700 


DATA 


50710 


DATA 


50720 


DATA 


50730 


DATA 


50740 


DATA 


50750 


DATA 


50760 


DATA 


50770 


DATA 


50780 


DATA 


50790 


DATA 


50800 


DATA 


50810 


DATA 


50820 


DATA 


50830 


DATA 


50840 


DATA 


50850 


DATA 



162, 1,76,115,158 
138,208,129,76,52 
158,96,160,0,140 
167,157,177,184,141 
172, 157,177,186,141 
173, 157,200, 152,205 
172,157,240,2,176 
15,205,173,157,240 
25,144,23,169,1 
141, 167,157,76,79 
159,205,173, 157,240 
2,176,64,169,255 
141, 167,157,76,79 
159, 140,165,157,160 
1,177,184,133,182 
200, 177,184,133,183 
172, 165,157,136,177 
182, 141,174,157,140 
165,157,160,1,177 
186, 133,182,200,177 
186, 133,183,172,165 
157, 177,182,200,205 
174,157,208,3,76 
240,158,144,180,76 
15,159,96,160,2 
177, 184,72,177,186 
145, 184,104,145,186 
136,16,243,96,0 



<236> 
<218> 
<209> 
<218> 
<088> 
<119> 
<186> 
<027> 
<216> 
<011> 
<052> 
<116> 
<043> 
<021> 
<100> 
<071> 
<154> 
<094> 
<035> 
<067> 
<167> 
<171> 
<052> 
<064> 
<169> 
<189> 
<109> 
<006> 



Listing 3. »Sort String« sortiert Strings extrem schnell. 
Bitte mit dem Checksummer (Seite 159) eingeben. 



1000 N=20:DIM A*(N> : PRINT" <CLR,2D0WN>UNS0R 
TIERTE STRINGS WERDEN GENERIERT" 

1010 FOR 1=1 TO N:A*="":FOR J=l TO 20:B*= 
CHR* < I NT ( R ND ( ) »26+65 ) ) : A*= A*+B* 

1020 NEXT: A*(I)=A*: NEXT 

1030 PRINT"<CLR>UNSORTIERT: " : PR I NT " IfuVUWu 1 
tJTJU":FOR 1 = 1 TO N: PRINT A*(I):NEXT 

1040 PRINT" <DOWN>SORTIEREN: TASTE DRUECKEN 



1045 GET AS: IF A*=""THEN 1045 

1050 POKE 40352,65: REM 1 . BUCHST. D. VAR 

1060 POKE 40353, 128: REM 2.STELLE LEER 

1070 POKE 40355, INT (N/256) : REM N 

1080 POKE 40354, N-INT (N/256) »256: REM N 

1090 SYS 40371: REM 9DB3 

1100 FE=PEEK (40356) : REM FEHLERFLAG 

1110 IF FE=1 THEN PRINT"FEHLER - ARRAY NIC 

HT GEFUNDEN":END 
1120 IF FE=2 THEN PRINT"FEHLER - ARRAY NIC 

HT EINDIMENSIONAL" 
1140 PRINT" {CLR>SORTIERT: ": PRINT" uIAMAjW 

:FOR 1=1 TO N: PRINT A* ( I ): NEXT: END 
1150 FOR 1=1 TO N: PRINT A* ( I ) : NEXT: END 



<174> 

<002> 
<202> 

<017> 

<209> 
<213> 
<224> 
<068> 
<003> 
<073> 
<028> 
<079> 

<239> 

<194> 

<193> 

<020> 



Listing 4. »Demo Sort String.., bitte mit dem Check- 
summer (Seite 159) eingeben. 



Naae 


compare files 




cOOO c571 


c080 
c088 
c090 


00 
00 
00 


00 00 
00 00 
00 00 


00 
00 
00 


00 
00 
00 


00 
00 
00 


00 
00 
00 


00 
00 
00 


81 

89 
91 


cllO : a 9 78 aO c3 20 le ab ad 93 
cllB : 9f cO ae aO cO 20 Oc cO 96 
cl20 : a9 50 aO c3 20 le ab aO 75 


cOOO 


a9 


37 85 


01 


a9 


00 


aa 


8a 


ac 


c008 


02 


4c a9 


cO 


48 


8a 


20 


12 


30 


c098 


00 


00 00 


00 


00 


01 


08 


00 


ol 


cl28 : 00 20 cf ff 99 7f cO c8 56 


cOlO 


cO 


68 48 


4a 


4a 


4a 


4a 


20 


cO 


cOaO 


00 


00 00 


00 


00 


00 


00 


00 


al 


cl30 : c9 Od dO f5 88 8c 5b cO 4e 


c018 


2a 


cO aa 


6B 


29 


Of 


20 


2a 


3a 


c0a8 


00 


a9 00 


85 


c6 


20 


yo 


ff 


dd 


cl38 : a9 7f 8d 60 cO a9 cO 8d 88 


cO20 


cO 


48 8a 


20 


d2 


ff 


68 


4c 


12 


cObO 


20 


13 c3 


ay 


22 


aO 


c3 


20 


f6 


cl40 : 61 cO ad 9f cO 8d 5c cO CO 


c028 


d2 


ff 18 


By 


f6 


yu 


02 


69 


fc 


c0b8 


le 


ab aO 


00 


20 


Of 


ff 


99 


88 


cl48 : ad aO cO 8d 5d cO 20 34 ec 


c030 


06 


69 3a 


60 


a9 


UB 


a2 


08 


fb 


cOcO 


62 


cO c8 


c y 


Od 


dO 


f5 


88 


2e 


cl50 : cO 90 Oa a9 39 aO c3 20 f8 


c038 


aO 


00 20 


ba 


ff 


ad 


bb 


cO 


94 


c0c8 


8c 


5b cO 


a9 


62 


8d 


60 


cO 


fd 


cl58 : le ab 4c 20 cl ad 5e cO e7 


cO-IO 


ae 


60 cO 


ac 


61 


cO 


20 


bd 


fc 


cOdO 


a9 


cO 8d 


61 


cO 


a y 


01 


8d 


el 


cl60 : 8d al cO ad 5f cO 8d a2 lb 


c048 


ff 


a9 00 


ae 


5c 


cO 


ac 


5d 


2b 


c0d8 


5c 


cO 8d 


ya 


cO 


a9 


08 


8d 


40 


cl68 : cO a9 67 aO c3 20 le ab f8 


c050 


cO 


20 d5 


ff 


8e 


hf. 


r-0 


8c 


Be 


cOeO 


5d 


cO 8d 


9e 


cO 


20 


34 


cO 


34 




c058 


5f 


cO 60 


Ob 


01 


08 


03 


00 


ed 


c0e8 


90 


Oa a9 


3y 


aO 


q3 


20 


le 


f4 


Listing 5. "Compare Files-, ver- 


c060 


62 


cO 53 


4f 


52 


54 


20 


53 


dO 


cOfO 


ab 


4c b3 


cO 


ad 


5e 


cO 


8d 


b2 


gleicht zwei Files und zeigt nicht 
ubereinstimmende Bytes an. Bitte 


c068 
c070 


54 

00 


52 49 

00 00 


4o 

00 


47 

no 


Ud 

on 


00 
00 


UO 
00 


de 
71 


c0f8 
clOO 


9f 
a» 


cO ad 
67 aO 


bt 

r»3 


CO 

20 


Bd 
le 


aO 
ab 


cO 
ad 


cb 
fa 


c078 


00 


00 00 


00 


00 


00 


00 


00 


79 


cl08 


9d 


cO ae 


9e 


cO 


20 


Oc 


cO 


43 


mit dem MSE (Seite 159) eingeben. 
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cl70 


ad 


9f 


cO 


ae 


aO 


cO 


20 


Oc 


9b 


c2dO 


cO 


fO 


Oa a9 


68 


aO 


c5 


ZO 


a3 


c430 


45 


5Z 


20 


61 


55 


53 


44 


52 


78 


C178 


cO 


a9 


78 


aO 


c3 


20 


le 


ab 


4c 


c2d8 


le 


ab 


4c e4 


c2 


aO 


00 


bl 


10 


c438 


55 


43 


4b 


Od 


41 


4e 


47 


45 


d2 


cl80 


ad 


al 


cO 


ae 


a2 


cO 


20 


Oc 


cc 


c2eO 


fe 


20 


12 cO 


a9 


20 


20 


d2 


4d 


c440 


48 


41 


4c 


54 


45 


4e 


20 


57 


be 


cl88 


cO 


a9 


Od 


20 


d2 


ff 


20 


d2 


b7 


c2e8 


ff 


ad 


a4 cO 


dO 


Oa 


aO 


00 


df 


c448 


45 


52 


44 


45 


4e 


2e 


Od 


62 


bf 


cl90 


ff 


20 


d2 


ff 


a9 


00 


8d 


a7 


74 


c2f0 


bl 


fe 


20 fe 


c2 


4c 


fd 


c2 


14 


c450 


45 


49 


4d 


20 


57 


45 


49 


54 


ff 


cl98 


cO 


8d 


a8 


cO 


ad 


9d 


cO 


85 


37 


c2f8 


a9 


2e 


20 d2 


ff 


60 


48 


29 


91 


c458 


45 


52 


45 


52 


20 


64 


52 


55 


7b 


claO 


fo 


ad 


9e 


cO 


85 


fd 


ad 


9f 


71 


c300 


7f 


c9 


20 90 


08 


c9 


71 


bO 


ac 


c460 


43 


4b 


20 


41 


55 


46 


20 


44 


Oa 


cla8 


cO 


8S 


fe 


ad 


aO 


cO 


85 


ff 


c6 


c308 


04 


68 


4c d2 


ff 


68 


a9 


2e 


f4 


c468 


49 


45 


20 


73 


74 


6f 


70 


2d 


a9 


clbO 


a9 


00 


8d 


a5 


cO 


8d 


a6 


cO 


06 


c310 


4c 


dZ 


ff a9 


7f 


aO 


c3 


20 


47 


c470 


74 


41 


53 


54 


45 


Od 


00 


53 


48 


clb8 


8d 


a3 


eO 


8d 


a4 


cO 


aO 


00 


cb 


c318 


le 


ab 


a9 77 


aO 


c4 


20 


le 


52 


c478 


54 


4f 


50 


50 


54 


20 


44 


41 


6c 


clcO 


bl 


fa 


dl 


fe 


dO 


08 


ad 


a3 


8f 


c320 


ab 


60 


Od 66 


49 


4c 


45 


4e 


b4 


c480 


53 


20 


70 


52 


4f 


47 


52 


41 


45 


clc8 


cO 


Od 


a« 


cO 


fO 


Id 


ZO 


81 


cb 


c328 


41 


4d 


45 20 


44 


45 


53 


20 


61 


c488 


4d 


4d 


20 


42 


45 


49 


20 


44 


74 


cldO 


c2 


ae 


a7 


cO 


e8 


8e 


a7 


cO 


Oe 


c330 


31 


2e 


66 49 


4c 


45 


53 


3a 


ec 


c490 


45 


52 


20 


4e 


41 


45 


43 


48 


ac 


cldB 


dO 


03 


ae 


a8 


cO 


20 


el 


ff 


8f 


c338 


00 


Od 


91 66 


49 


4c 


45 


20 


3c 


c498 


53 


54 


45 


4e 


Od 


61 


55 


53 


08 


cleO 


dO 


09 


a9 


00 


85 


c6 


ZO 


eA 


78 


c340 


4e 


49 


43 48 


54 


20 


47 


45 


fb 


c4a0 


47 


41 


42 


45 


2e 


20 


6a 


45 


d9 


cle8 


ff 


to 


fb 


e6 


fc 


aS 


fc 


dO 


cd 


c348 


46 


55 


4e 44 


45 


4e 


2e 


00 


d4 


c4a8 


44 


45 


20 


41 


4c 


44 


45 


52 


80 


clfO 


02 


e6 


fd 


e6 


fe 


a5 


fe 


dO 


7c 


c350 


Od 


66 


49 4c 


45 


4e 


41 


4d 


d3 


c4b0 


45 


20 


74 


41 


53 


54 


45 


20 


78 


clf8 


02 


e6 


ff 


ee 


aS 


oO 


ad 


aS 


ad 


e358 


45 


20 


44 45 


53 


20 


32 


2e 


c2 


c4b8 


53 


45 


54 


5a 


54 


20 


44 


49 


f8 


c200 


oO 


do 


03 


ee 


a6 


cO 


aS 


fd 


ca 


c360 


66 


49 


4c 45 


53 


3a 


00 


Od 


48 


c4c0 


45 


ZO 


20 


20 


20 


61 


55 


53 


2b 


c208 


cd 


aO 


oO 


dO 


Oa 


aS 


fc 


cd 


cd 


c368 


66 


49 


4c 45 


20 


47 


45 


48 


10 


c4c8 


47 


41 


42 


45 


20 


46 


4f 


52 


ff 


c210 


9f 


cO 


dO 


03 


ce 


a3 


cO 


aS 


fc 


c370 


54 


20 


56 4f 


4e 


20 


Z4 


00 


ca 


c4d0 


54 


2e 


Od 


00 


Od 


Od 


65 


4e 


ea 


c218 


ff 


cd 


a 2 


cO 


do 


Oa 


aS 


fe 


bO 


c378 


20 


42 


49 53 


20 


24 


00 


93 


cO 


c4d8 


44 


45 


20 


44 


45 


53 


20 


70 


aO 


c220 


cd 


al 


cO 


dO 


03 


ce 


al 


cO 


c3 


c380 


64 


49 


45 53 


45 


53 


20 


70 


95 


c4e0 


52 


4f 


47 


52 


41 


4d 


4d 


45 


34 


c228 


ad 


a3 


cO 


fO 


91 


ad 


a4 


cO 


90 


c388 


52 


4f 


47 52 


41 


4d 


4d 


ZO 


92 


c4e8 


53 


00 


Od 


Od 


73 


4f 


4c 


4c 


9c 


c230 


fO 


8c 


a9 


34 


aO 


o5 


20 


le 


4c 


c390 


56 


45 


52 47 


4c 


45 


49 


43 


al 


c4f0 


20 


44 


45 


52 


20 


76 


45 


52 


3d 


c238 


ab 


ad 


a7 


cO 


ae 


a8 


oO 


20 


2f 


c398 


48 


54 


20 32 


20 


70 


7Z 


67 


77 


c4f8 


47 


4a 


45 


49 


43 


48 


20 


44 


5f 


c240 


Oc 


cO 


a9 


20 


20 


d2 


ff 


20 


f4 


c3a0 


2d 


66 


49 4c 


45 


53 


ZO 


20 


8c 


c500 


49 


45 


53 


45 


52 


20 


42 


45 


23 


c248 


d2 


ff 


ad 


a8 


cO 


ae 


a7 


cO 


3c 


c3a8 


4d 


49 


54 45 


49 


4e 


41 


4e 


00 


c508 


49 


44 


45 


4e 


20 


66 


49 


4c 


81 


c250 


20 


cd bd 


a9 


aa 


aO 


c4 


20 


02 


c3bO 


44 


45 


52 2e 


Od 


62 


45 


49 


7d 


c510 


45 


53 


20 


20 


4e 


4f 


43 


48 


08 


c258 


le 


ab 


a9 


00 


85 


c6 


20 


e4 


8f 


c3b8 


20 


61 


42 57 


45 


49 


43 


48 


41 


c518 


45 


49 


4e 


4d 


41 


4c 


20 


47 


c5 


c260 


ff 


fO 


fb 


c9 


4a 


fO 


07 


c9 


eb 


c3c0 


55 


4e 


47 45 


4e 


ZO 


67 


45 


85 


c520 


45 


4d 


41 


43 


48 


54 


20 


57 


lb 


c268 


4e 


fO 


Oe 


4o 


5e 


c2 


a9 


Od 


f8 


c3c8 


52 


44 


45 4e 


20 


44 


49 


45 


2b 


c528 


45 


52 


44 


45 


4e 


20 


28 


4a 


6b 


c270 


20 


d2 


ff 


20 


d2 


ff 


4c 


94 


85 


c3d0 


20 


6f 


46 46 


53 


45 


54 


Od 


cd 


c530 


2f 


4e 


29 


00 


Od 


61 


4e 


5a 


9b 


c278 


cl 


a9 


d4 


aO 


c4 


4c 


le 


ab 


d5 


c3d8 


61 


44 


52 45 


53 


53 


45 


20 


be 


c538 


41 


48 


4c 


20 


44 


45 


52 


20 


ac 


c280 


60 


a9 


49 


aO 


oS 


20 


le 


ab 


48 


c3e0 


5a 


55 


-Id 20 


70 


52 


4f 


47 


a2 


c540 


66 


45 


48 


4c 


45 


52 


3a 


20 


f5 


e288 


ae 


a6 


oO 


ad 


a5 


cO 


20 


Oc 


68 


c3e8 


52 


41 


4d 4d 


53 


54 


41 


52 


59 


(■5-18 


00 


Od 


4f 


46 


46 


53 


45 


54 


28 


c290 


cO 


a9 


54 


aO 


cS 


20 


le 


ab 


7b 


c3f0 


54 


20 


53 4f 


57 


49 


45 


20 


28 


c550 


3a 


ZO 


24 


00 


20 


46 


49 


4c 


95 


c298 


ad 


a3 


eO 


fO 


Oa 


a 9 


68 


aO 


36 


c3f8 


44 


49 


45 Od 


42 


45 


49 


44 


dO 


c558 


45 


31 


3a 


20 


24 


00 


20 


46 


18 


c2a0 


c5 


20 


le 


ab 


4c 


ae 


c2 


aO 


f9 


c400 


45 


4e 


20 69 


4e 


48 


41 


4c 


66 


c560 


49 


4c 


45 


32 


3a 


20 


24 


00 


9c 


c2a8 


00 


bl 


fc 


20 


12 


cO 


a9 


20 


d2 


c408 


54 


45 


20 41 


55 


53 


47 


45 


c7 


c568 


2e 


2e 


00 


14 


15 


16 


17 


18 


bf 


c2b0 


20 


d2 


ff 


ad 


a3 


cO 


dO 


Oa 


86 


c410 


47 


45 


42 45 


4e 


2e 


Od 


6d 


98 


C570 


00 


00 


ff 


00 


ff 


00 


ff 


00 


70 


c2b8 


aO 


00 


bl 


fo 


20 


fe 


c2 


4c 


02 


c418 


49 


54 


20 44 


45 


52 


ZO 


73 


6a 






















c2e0 


c7 


c2 


a8 


2a 


20 


dZ 


ff 


a9 


04 


c420 


74 


8f 


70 2d 


74 


41 


53 


54 


55 






















c2c8 


5e 


aO 


o5 


20 


le 


ab 


ad 


a4 


2b 


c428 


45 


20 


4b 41 


4e 


4e 


20 


44 


d9 


Listing 5. 


(SchluB) 













Die Spekherzellen bis 1 023, 
nach Funktionen geoidnet 



Bandoperationen 




146 


$92 


Zeilkonslante beim Lesen vom Band 


147 


$93 


Flagge fur LOAD Oder VERIFY 


150 


J9o 


Arbeilsspeicher fur Band-Leseroutinen 


153 


$99 


Nummer des Eingabegerates 


155 


$9B 


Fehl8rkontrolle bei Bandoperationen 


156 


$9C 


Flagge fur korrektes Byte vom Band 


158-159 


$9E-$9F 


Zwischenspeicher bei Kassettenoperationen 


165 


$A5 


Zahler fur Band-Synchronisierung 


167 


$A7 


Zwischenspeicher fur Kassettenroutinen 


168 


$A8 


Bitzahler bei Band-Ein-/Ausgabe 


170 


$AA 


Zwischenspeicher fur Kassettenroutinen 


171 


$AB 


Quersummenprufung und Zahler fur Band-Header 


172-173 


SAC-SAD 


Zeiger auf die Anfangsadresse fur Ein-/Ausgabe 


174-175 


$AE-$AF 


Zeiger auf die Endadresse fur Ein-/Ausgabe 


176-177 


$B0-$B1 


Zeitkonstante beim Lesen vom Band 


178-179 


$B2-$B3 


Zeiger auf den Kassettenpuffer 


181 


$B5 


Blockangabe bei Kassettenoperationen 


182 


$B6 


Ausgabe-Zwischenspeicher 


183 


$B7 


Lange des File-Namens 


185 


SB9 


Sekundar-Adresse 


186 


$BA 


Gerate-Nummer 


187-188 


$BB-$BC 


Zeiger auf Adresse des derzeitigen File-Namens 


189 


$BD 


Zwischenspeicher fur Zeiche n 


190 


$BE 


BlockzShler fur Kassetten-Ein-/Ausgabe 


191 


$BF 


Zwischenspeicher fur LOAD-Operationen vom Band 


192 


$C0 


Sperre des Motors der Datasette 


193-194 


$C1-$C2 


Anfangsadresse fur Ein-/Ausgabe-Operationen 


195-196 


$C3-$C4 


Zeiger auf den Anfang des Programms hinter dem Tape 
Header 


256-318 


$100-$13E 


Arbeilsspeicher fur Fehler bei der Eingabe vom Band 


Blldschlrm-Cursor 




9 


$9 


Spaltenposition des Cursors vor dem letzten TAB- Oder 



200 



$C8 



201-202 $C9-$CA 



204 


$CC 


205 


$CD 


206 


$CE 


207 


$CF 


209-210 


$D1-$D2 


211 


$D3 


214 


$D6 


647 


$287 


Bildschirm-Farbe 


243-244 


$F3-$F4 


646 


$286 


647 


$287 


Bildschirm-Zelchen 


199 


$C7 


206 


$CE 


212 


$D4 


215 


$D7 


216 


$D8 


Bildschirm-Zellen 


200 


$C8 


201-202 


$C9-$CA 


209-210 


$D1-$D2 



SPC-Befehl 

Zeiger auf das Ende der eingegebenen logischen Zeile 

Zeiger auf Zeilen- und Spaltenposition des letzten Zel- 
chenseiner Zeile 
Schalter fur Cursorblinken 
Zahler fur Blinkfrequenz des Cursors 
Bildschirmcode des Zeichens unter dem Cursor 
Flagge fur Blinkzustand des Cursors 
Zeiger auf den Anfang der Bildschirmzeile, auf welcher 
der Cursor gerade steht 

Position des Cursors innerhalb einer logischen Zeile 
Nummer der echten Zeile, in der sich der Cursor gera- 
de bef indet 
Zeichenfarbe unter dem Cursor 

Position des Cursors im Farbspeicher 
AktueNe Farbe der Zeichen (Vordergrundfarbe) 
Zeichenfarbe unter dem Cursor 

Flagge fur reverse Darstellung der Zeichen 

Bildschirmcode des Zeichens unter dem Cursor 

Flagge fur GansefuB-Modus 

Zwischenspeicher fur den ASCII-Codewert der zuletzt 

gedruckten Taste 

Flagge fur Insert-Modus 

Zeiger auf das Ende der eingegebenen logischen Zeile 

Zeiger auf Zeilen- und Spaltenposition des letzten Zei- 
chens einer Zeile 

Zeiger auf den Anfang der Bildschirmzeile, auf welcher 
der Cursor gerade steht 



156 



H'li'l-HiliHii 



33S? 



C64 



TABELLEN 



211 


$D3 


213 


SD5 


214 


$D6 


217-242 


$D9-$F2 


658 


$292 


DATA 




Datel 




152 


$98 


153 


$99 


154 


$9A 


183 


$B7 


184 


$B8 


185 


SB9 


186 


$BA 


187-188 


$BB-$BC 


601-610 


$259-$262 


611-620 


$263-$26C 


621-630 


$26D-$276 


DIM 




11 


$B 


12 


$C 


Eingabe-Puffer 


7 


$7 


8 


$8 


11 


SB 



Position des Cursors innerhalb einer logischen Zeile 

Lange einer Bildschirmzeile 

Nummer der echten Zeile, aul der sich der Cursor gera- 

de befindet 

Llnk-Tabellen der Bildschirm-Zeilen 

Flagge tOr Scrollen 

(siehe READ) 

Anzahl der oftenen Dateien 

Nummer des Eingabegerates 

Nummer des Ausgabegerates 

Lange des derzeitigen Datei-Namens 

Nummer der derzeitigen Datei 

Derzeitige SekundSr-Adresse 

Derzeitige Gerate-Nummer 

Zeiger auf Adresse des derzeitigen Datei-Namens 

Tabelle der Datei-Nummern 

Tabelle der Gerate-Nummern 

Tabelle der Sekundar-Adressen 



Anzahl der Dimensionen von Feldern (Arrays) 
Flagge tOr Basic-Routinen, die ein Feld suchen, 
beziehungsweise aufbauen 

Suchzeichen zur PrOfung von Basic-Texteingabe 
Suchzeichen speziell (Or Befehlsende und GSnsefuSe 
Flagge fur den Eingabe-Puffer 



512-600 $200-$258 Eingabe-Puffer von Basic 



Elnschalten/Reset (bee 
0-2 $0-$2 



3-4 



$3-$4 



5-6 


$5-$6 


19 


$13 


22 


$16 


43-44 
45-46 


$2B-$2C 

S2D-S2E 


51-52 


$33-$34 


55-56 


$37-$38 


122-123 

139-143 

153 

154 

160-162 

178-179 

195-196 


$7A-$7B 

S8B-S8F 
$99 
$9A 
SA0-SA2 

SB2-SB3 
$C3-$C4 


256-511 

641-642 

643-644 

646 

648 

655-656 

784-786 

788-819 


$100-$1FF 

S281-S282 

$283-$284 

$286 i 

$288 

$28F-$290 

$310-$312 

$314-$333 


END 
57-58 
59-60 
61-62 


$39-$3A 
$3B-$3C 
$3D-$3E 


Felder (Arrays) 

11 $B i 

12 $C I 

1 


16 


$10 \ 


47-48 


$2F-$30 i 


49-50 


I 

$31-$32 ; 


FN 

16 


1 

$10 I 


78-79 


$4E-$4F I 


FOR-NEXT 

47-48 $2F-$30 ; 

! 



influBte Adressen) 
Sprungbefehl und wahlbare Sprungadresse beim 
USR-Befehl (nur VC 20) 

Vektor auf die Routine zur Umwandlung einer Gleit- 
kommazahl in eine ganze Zahl mit Vorzeichen 
Vektor auf die Routine zur Umwandlung einer ganzen 
Zahl in eine Gleitkommazahl 
Flagge zur Kennzeichnung des laufenden Ein-/ 
Ausgabegerates 

Zeiger auf freien Speicherplatz irn String Descriptor 
Stack 

Zeiger auf Anfang der Basic-Programme Im Speicher 
Zeiger auf Anfang der Variablen im Speicher (nur bei 
Reset) 

Zeiger auf die untere Grenze des Speicherbereichs 
fur den Text der Zeichenketten-Variablen 
Zeiger auf das Ende des fur Basic-Programme verfOg- 
baren Spelchers 
Tell der CHRGET-Routine 
Wert der RND-Funktion als Gleitkommazahl 
Nummer des Eingaba-Gerates 
Nummer des Ausgabe-Gerates 
Interne Uhr fur Tl und Tl$ (nur beim Einschalten) 
Zeiger auf den Kassetten-Puffer 
Zeiger auf den Anfang des Programms hinter dem Ta- 
pe Header 

Stapelspeicher (Stack) 

Zeiger auf den Anfang des Programmspeichers 
Zeiger auf das Ende des Programmspeichers 
Aktuelle Farbe der Zeichen (Vordergrundfarbe) 
Beginn des Bildschirmspeichers 
Vektor auf die Routine der Tastencode-Tabellen 
nur C64, identisch mit 0-3 beim VC 20 
Indirekte Sprungvektoren auf Routinen des Betriebs- 
systems 

Nummer der laufenden Basic-Programmzeile 
Zeilennummer der letzten Programmunterbrechung 
Zeiger auf die Adresse, ab welcher der Text der lau- 
fenden Basic-Zeile abgespeichert ist 

Anzahl der Dimensionen von Feldern (Arrays) 

Flagge fur Basic-Routinen, die ein Feld suchen, 

beziehungsweise aufbauen 

Flagge zur Anzeige eines Variablenfeldes Oder einer 

selbstdefinierten Funktion 

Zeiger auf die Anfangsadresse des Speicherbereiches 

fOr Felder (Arrays) 

Zeiger auf die Endadresse des Speicherbereichs (Or 

Felder (Arrays) 

Flagge zur Anzeige eines Variablenfeldes Oder einer 
selbstdefinierten Funktion 

Zeiger auf Adresse, ab welcher der Wert der Variablen 
einer selbstdefinierten Funktion gespeichert ist 

Zeiger auf die Anfangsadresse des Speicherbereichs 
fur Felder (Arrays) 



57-58 


$39-$3A 


73-74 


S49-S4A 


FRE 




49-50 


$31-$32 


51-52 


$33-$34 


Garbage Collection 


15 


$F 


49-50 


$31-$32 


51-52 


$33-$34 


83 


$53 


GET 




17 


$11 


18 


$13 


67-68 


$43-$44 


GET* 




19 


$13 


153 


$99 


Gleitkomi 


na 


3-4 


$3-$4 


5-6 


$5-$6 


97-102 


$61-$66 


104 


$68 


105-110 


$69-$6E 


111 


$6F 


112 


$70 


255 


$FF 


256-266 


$100-$10A 


778-779 


$30A-$30B 


GOTO 




20-21 


$14-$15 


57-58 


$39-$3A 


INPUT 




17 


$11 


67-68 


$43-$44 


INPUT* 




19 


$13 


153 


$99 


INST 




212 


$D4 


216 


$D8 


Interrupt mit BREAK 


57-58 


$39-$3A 


170 


SAA 


663 


$297 


790-791 


$316-$317 


Interrupt mit IRQ 


671-672 


$29F-$2A0 


788-789 


$314-$315 


Interrupt mit NMI 


792-793 


$318-$319 


Kassettenpuffer 


166 


$A6 


178-179 


SB2-SB3 


828-1019 


$33C-$3FB 


LIST 




16 


$F 


20-21 


$14-$15 


LOAD/VERIFY 


10 


$A 


147 


$93 


172-173 


$AC-$AD 


174-175 


$AE-$AF 


183 


$B7 


185 


SBS 


187-188 


$BB-$BC 



Nummer der laufenden Basic-Programmzeile 
Zwischenspeicher fur Variable einer FOR-NEXT- 
Schleife 

Zeiger auf die Endadresse des Speicherbereichs fOr 
Felder (Arrays) 

Zeiger au( die untere Grenze des Speicherbereichs 
fur den Text der Zeichenketten-Variablen 

Flagge bei LIST, Garbage Collection und Text- 

umwandlung 

Zeiger auf die Endadresse des Speicherbereichs fOr 

Felder (Arrays) 

Zeiger auf die untere Grenze des Speicherbereichs 

fur den Text der Zeichenketten-Variablen 

Flagge (Or Garbage Collection 

Flagge (Or INPUT, GET oder READ 
Flagge zur Kennzeichnung des laufenden Ein-/ 
Ausgabegerates 

Zeiger auf die Adresse, aus welcher die Befehle IN- 
PUT, GET und READ die Zeichen/Zahlen holen 

Flagge zur Kennzeichnung des laufenden Ein-/ 

Ausgabegerates 

Nummer des Eingabegerates 

Vektor auf die Routine zur Umwandlung einer Gleit- 
kommazahl in eine ganze Zahl mit Vorzeichen 
Vektor auf die Routine zur Umwandlung einer ganzen 
Zahl in eine Gleitkommazahl 
Gleitkomma-Akkumulator Nr. 1 
Uberlauf-Speicher des Gleitkomma-Akkumulators Nr.1 

Gleitkomma-Akkumulator Nr. 2 
Flagge fOr Vorzeichenvergleich der Gleitkomma- 
Akkumulatoren 1 und 2 

Rundungsspelcher des Gleitkomma-Akkumulators 
Nr.1 

Zwischenspeicher von Gleitkommazahlen in ASCll- 
Werte 

Arbeitsspeicher fOr Umwandlung von Gleitkommazah- 
len in ASCII-Werte 

Indirekter Sprungvektor auf die Basic-Routine, die ei- 
nen numerischen Ausdruck in eine Gleitkommazahl 
umwandelt 

Zeilennummer fOr LIST, GOTO, GOSUB und ON 
Nummer der laufenden Basic-Programmzeile 

Flagge fOr INPUT, GET Oder READ 
Zeiger auf die Adresse, aus welcher die Befehle IN- 
PUT, GET und READ die Zeichen/Zahlen holen 

Flagge zur Kennzeichnung des laufenden Ein-/ 

Ausgabegerates 

Nummer des Eingabegerates 

Flagge fur GansefuB-Modus 
Flagge fOr INSERT-Modus 

Nummer der laufenden Basic-Programmzeile 

Zwischenspeicher fur Kassettenroutinen 

RS232-Status-Reglster 

Vektor auf die BREAK-lnterrupt-Routine 

Zwischenspeicher fur den IRO-Vektor wahrend 

Kassetten-Ein-/Ausgabe 

Vektor auf die IRQ-lnterrupt-Routine 

Vektor auf die NMI-lnterrupt-Routine 

Zahler der bearbelteten Bytes im Kassettenpuffer 
Zeiger auf den Kassettenpuffer 
Kassettenpuffer 

Flagge bei LIST, Garbage Collection und Text- 

umwandlung 

Zeilennummer fOr LIST, GOTO, GOSUB und ON 

Flagge fOr LOAD Oder VERIFY 

Flagge fOr LOAD Oder VERIFY 

Zeiger auf die Anfangsadresse fOr Ein-/Ausgabe 

Zeiger auf die Endadresse fOr Ein-/Ausgabe 

Lange des File-Namens 

Sekundar-Adresse 

Zeiger auf Adresse des derzeitigen File-Namens 



£fcJ^Lf* 



SONDERHEFT 24 



157 



TABELLEN 



C64 



195-196 $C3-$C4 

816-817 S330-S331 

NEXT (siehe FOR) 
READ DATA 

17 

63-64 

65-66 



Zeiger auf den Anfang des Programms hinter dem Ta- 
pe Header 

Indirekter Sprungvektor auf die LOAD-Routine des 
Betriebssystems 



$11 

$3F-$40 

$41-$42 



Flagge fur INPUT, GET Oder READ 
Zeilennummer des gerade laufenden DATA-Befehls 
Zeiger auf die Adresse, ab der die laufenden DATA- 
Angaben gespeichert sind 

67-68 $43-$44 Zeiger auf die Adresse, aus welcher die Befehle IN- 

PUT, GET und READ die Zeichen/Zahlen holen 

75-76 S4B-S4C Zwischenspeicher fur Zeiger bei READ und bei 

mathematischen Operationen 

RESET (siehe Einschalten) 

RND 

Wert der RND-Funktion als Gleltkommazahl 



Zwischenspeicher fur Eingabe Ober die 

RS232-Schnitlstelle 

Bitzahler ftir RS232-Eingabe 

RS232-Flagge fur Startbit-Prtifung 

RS232-Eingabespeicher 

Parityprufung 

RS232-Anzeige fur nachstes Bit 

Ausgabe-Zwischenspeicher fur RS23Z 

Zwischenspeicher fur RS232-Parity-Pr0fung 

Zeiger auf den Anfang des RS232-Eingabepuffers 

Zeiger auf den Anfang des RS232-Ausgabepuffers 

RS232-Steuerregister 

RS232-Befehlsregister 

RS232 frei wahlbare Baudrate 

RS232-Statusregister 

RS232-Anzahl der zu ubertragenden Bits 

Zeit, die bei RS232 zum Ubertragen eines Bits ge- 

braucht wird 

Index auf das Ende des RS232-Eingabepuffers 

Index auf den Anfang des RS232-Eingabepuffers 

Index auf den Anfang des RS232-Ausgabepuffers 

Index auf das Ende des RS232-Ausgabepuffers 

Zeiger auf die Anfangsadresse fur Ein-/Ausgabe 
Zeiger auf die Endadresse fCir Ein-/Ausgabe 
Indirekter Sprungvektor auf die SAVE-Routine 

Flagge fur Floppy/Drucker-Ausgabe 

Zeichen im Ausgabepuffer 

Zwischenspeicher 

Zeiger auf die Anfangsadresse fur Ein-/Ausgabe 

Zeiger auf die Endadresse fur Ein-/Ausgabe 

Anfangsadresse fur EinVAusgabe-Operationen 

Flagge fur Vorzeichen des Ergebnisses bei SIN und 
TAN 

Zeiger auf den Anfang der Basic-Programme im 

Speicher 

Zeiger auf die Anfangsadresse des Speicherberelchs 

fur Variable 



139-143 


S8B-S8F 


RS232-Schnlttstelle 


167 


$A7 


168 


SA8 


169 


$A9 


170 


$AA 


171 


SAB 


181 


$B5 


182 


$B6 


189 


$BD 


247-248 


SF7-SF8 


249-250 


$F9-$FA 


659 


$293 


660 


$294 


661-662 


$295-$296 


663 


$297 


664 


$298 


665-666 


$299-$29A 


667 


$29B 


668 


$29C 


669 


$29D 


670 


$29E 


SAVE 




172-173 


$AC-$AD 


174-175 


$AE-$AF 


818-819 


$332-$333 


Serlelle Schnlttstelle 


148 


$94 


149 


$94 


163-164 


$A3-$A4 


172-173 


$AC-$AD 


174-175 


$AE-$AF 


193-194 


$C1-$C2 


SIN 




18 


$12 


Spelcherbelegung 



43-44 



45-46 



$2B-$2C 
$2D-$2E 



47-48 


$2F-$30 


Zeiger auf die Anfangsadresse des Speicherbereichs 
fur Felder (Arrays) 


49-50 


$31-$32 


Zeiger auf die Endadresse +1 des Speicherbereichs 
fur Felder (Arrays) 


51-52 


$33-$34 


Zeiger auf die untere Grenze des Speicherbereichs 
fur den Text der String-Variablen 


53-54 


$35-$36 


Zeiger auf die Adresse des zuletzt eingegebenen 
Strings 


55-56 


$37-$38 


Zeiger auf das Ende des fur Basic-Programme 
verfOgbaren Speichers 


641-642 


$281-$282 


Zeiger auf den Anfang des Programmspeichers 


643-644 


$283-$284 


Zeiger auf das Ende des Programmspeichers 


648 


$288 


Beginn des Bildschirmspeichers 


Speicher 


zur frelen Verfiigung 


146-150 


$92-$96 


nur wenn Datasette nicht benutzt wird 


163-177 


$A3-$B1 


nur wenn Datasette Oder RS232-Schnittstelle nicht be- 
nutzt wird 


247-250 


$F7-SFA 


nur wenn RS232-Schnittstelle nicht benutzt wird 


251-254 


$FB-$FE 




659-670 


$293-$29E 


nur wenn RS232-Schnittstelle nicht benutzt wird 


671-672 


$29F-S2A0 


nur wenn Datasette nicht benutzt wird 


673-678 


$2A1-$2A6 


nur bairn VC 20 


679-767 


$2A7-$2FF 




784-787 


$310-$313 


nur bairn VC 20 


820-827 


$334-$33B 




828-1019 


$33C-$3FB 


nur wenn Datasette nicht benutzt wird 


1020-1023 $3FC-$3FF 




ST(atus) 






144 


$90 


Status-Variable ST 


663 


$297 


RS232-Statusregister 


Stapelspeicher (Stack) 




25-33 


$19-$21 


Stack fur vorlauiige Zeichenketten 


319-511 


$13F-$1FF 


Speicherbereich des Mikroprozessor-Stapels 


STOP 






57-58 


S39-$3A 


Nummer der laufenden Baslc-Programmzeile 


59-60 


$3B-$3C 


Zeilennummer der letzten Programmunterbrechung 


145 


$91 


Zwischenspeicher fur Abfrage der STOP-Taste 


808-809 


$328-$329 


Indirekter Sprungvektor auf die STOP-Routine des Be- 
triebssystems 


STRINGS 






22 


$16 


Zeiger auf freien Speicherplatz im String Descriptor 
Stack 


23-24 


$17-$18 


Zeiger auf die Adresse der letzten Zeichenkette im 
Temporary String Stack 


25-33 


$19-$21 


Descriptor Stack fur vorlaufige Zeichenketten 


51-52 


$33-$34 


Zeiger auf die untere Grenze des Speicherbereichs 
fOr den Text der String-Variablen 


53-54 


$35-$36 


Zeiger auf die Adresse des zuletzt eingegebenen 
Strings 


80-82 


$50-$52 


Zeiger auf einen vorlSufigen Speicherplatz einer 


SYS 

780 




Zeichenkette, die gerade bearbeitet wird 


$30C 


Speicher fur den Akkumulator 


781 


$30D 


Speicher fur das X-Register 


782 


$30E 


Speicher fur das Y-Register 


783 
TAN 

18 


$30F 


Speicher fur das Status-(P)-Register 


$12 


Flagge fOr Vorzeichen des Ergebnisses bei SIN und 






TAN 
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Chedfsummer 
V3 und MSE 

Diese beiden Programme sind unentbehrlich 
beim Abtippen unserer Listings. Sie helfen, 
Tippfehler vor allem bei Maschinenprogram- 
men zu vermeiden und sparen eine Menge Zeit. 

Nobody is perfect. Jeder Computer-Fan, egal ob bluti- 
ger Anfanger Oder ausgefuchster Profi, macht beim 
Abtippen von Programmen Tippfehler. Diese Fehler 
spaterzu finden, kann ein langwieriges Unterfangen sein. 
Deshalb haben wir fur Sie die Programme »Checksum- 
mer V3« und »MSE« (MaschinenSpracheEditor) entwickelt. 
Der Checksummer ist fur Basic-Programme und der MSE 
fur Maschinensprache-Listings zustandig. 

Der Checksummer 



Zuerst einmal miissen Sie das Checksummer-Programm 
(siehe Listing 1) abtippen. Dabei sollten Sie auBerst sorgfal- 
tig vorgehen, vor allem bei den Zahlen in den DATA-Zeilen 
20 bis 30. Wenn Sie trotzdem noch einen Tippfehler 
gemacht haben, meldet sich das Programm spater mit 
einem entsprechenden Hinweis. Wenn Sie fertig sind, spei- 
chern Sie das Programm auf Diskette Oder Kassette. 
Jetzt geht es los: 

1. Starten Sie den Checksummer durch die Eingabe von 
»RUN« und das Drucken der RETURN-Taste. 

2. Wenn die Meldung "Checksummer aktiviert...« auf dem 
Bildschirm erscheint, haben Sie keinen Tippfehler 
gemacht und der Checksummer ist nun eingeschaltet. 

3. Zum Loschen des Basic-Programms geben Sie bitte 
»NEW« ein. Keine Angst, der Checksummer selbst wird 
dadurch nicht geloscht. 

4. Nun konnen wir den Checksummer testen. Geben Sie 
bitte folgende Zeile ein und drucken Sie die RETURN-Taste: 
1 REM 

In der linken oberen Bildschirmecke sehen Sie nun die 
Priifsumme iiber die eben eingegebene Basic-Zeile. Sie 
muB <63> lauten. Dem Checksummer ist es iibrigens 
egal, ob Sie »1 REM- Oder »1REM« eintippen. Nur innerhalb 
von Anfiihrungszeichen ist die richtige Anzahl an Leerzei- 
chen wichtig. Diese Prufsummen erscheinen (sofern Sie 
den Checksummer eingeschaltet haben) immerdann, wenn 
Sie eine Basic-Zeile eintippen und dann die RETURN-Taste 
drucken. In der 64'er finden Sie die Prufsumme immer am 
Ende jeder Programmzeile. 



10 PEINT "CHECKSUMMER FUER C 64" 

11 PRINT: PRINT "EINEN MOMENT, BITTE ..." 

12 FOR 1=828 TO 864.-READ A:POKE I,A:PS=PS+ 
A: NEXT I 

13 IF PS05765 THEN PRINT'TIPPFEHLER IN DE 
N ZEILEN 20 BIS 22": END 

14 SYS 828:PS=0:FOR 1=58464 TO 58583:READ 
A: POKE I,A:PS=PS+A:NEXT I 

15 IF PS016147 THEN PRINT "TIPPFEHLER IN D 
EN ZEILEN 22 BIS 30": END 

16 POKE 1,53: POKE 42289 , 96 : POKE 42290,228 

17 PRINT "CHECKSUMMER AKTIVIERT." 

18 PRINT:PRINT" AUSSCHALTEN : POKE1 ■ 55 ODE 
R"SPC< 27 ) " <RUN/STOP+RESTORE> " 

19 PRINT: PRINT" ANSCHALTEN : POKE1.53" 

20 DATA 169,0,133,254,162,1,169,93,3,133,2 
55,160,0,177,254 

21 DATA 145.254.136,208,249,230,255,165,25 
5,221.95,3,208,238,202 

22 DATA 16,230,96.160.224,192.0.160,2,169, 
0.170,133,254,177 

23 DATA 95,240.40,201,32.208.3,200,208.245 
.133.255.138.41.7 

24 DATA 170.240,14,72,165,255.24,42,105.0, 
202.208,249.133,255 

25 DATA 104,170,232,165,255,24,101.254.133 
,254.76,111,228,192,4 

26 DATA 48,219,198.214,165,214,72.162,3.16 
9,32,157, 1,4,189 

27 DATA 212.228.32,210,255,208.12.0,92.72. 
32.201,255,170,104 

28 DATA 144,1,138,96.202,16,228,166.254.16 
9.0.32,205.189.169 

29 DATA 62.32.210.255,104.133.214.32,108,2 
29,169,141,32,210,255 

30 DATA 76.128,164,9,60.18.19 
6 64'er 

Listing 1. Der »Checksummer 64 V3« fur Basic-Listings 



5 PRINT CHR*C14> <242> 

IB PRINT" <CLR>" <254> 

2B pr i nt " B aaaaaaHMMHHMttMMaaMHBHMW * <i3a> 

3B PRINT" <4DOWN,2SPACE>JEST<SPACE,BLUE,6SP 

ACEV <B22> 

4B pr int •■ vmviiviriviwirimitmvivtvgttvt" <iaa> 

6 64'er 

Bild 1. Die Bedeutung der Steuerzeichen 
wird im nachfolgenden Text erklart 

In Zeile 10 miissen Sie nach den Anfiihrungszeichen die 
Tasten < SHIFT CLR/HOME> drucken und nicht die 
Klammern mit dem Wort CLR eingeben. In Zeile 20 
drucken Sie nach den Anfiihrungszeichen die CBM- 
Taste und den Buchstaben < Q > , gefolgt von mehreren 
SHIFT- und Stern-Tasten und zum SchluB die CBM- 
Taste und den Buchstaben <W>. In Zeile 30 ist es vier- 
mal die CURSOR-abwarts-Taste, gefolgt von zweimali- 
ger Leertaste, dann <SHIFTT> und normal EST, zum 
SchluB noch einmal die Leertaste, die Farbtaste Blau 
<CTRL 7> und sechsmal die Leertaste. Zeile 40 
besteht lediglich aus mehreren Grafikzeichen, die mit 
der CBM-Taste und <B> erzeugt werden. 



CTRL stehl fur Control-Taste, so bedeutet {CTRL 


+ A. . daB Sie die 


Control-Taste und die Taste -A« drucken miissen. 


Im folgenden steht: 


| DOWN] 


Taste neben rechtem Shift, 


(SPACE) 


Leertaste 


(RVSON] 


Control-Taste & 9 




Cursor unten 


(SHIFT-Space] 


Shift-Taste & Leertaste 


(RVOFF) 


Control-Taste & 


(UP) 


Shift-Taste & Taste neben 


(F1|bis(F8| 


Funktionstasten 


(ORANGE) 


Commodore-Taste & 1 




rechtem Shift; Cursor hoch 


(RETURN] 


Return-Taste 


IBROWN] 


Commodore-Taste & 2 


fCLR] 


Shift-Taste & 2. Taste 


(BLACK] 


Control-Taste & 1 


(LIG.RED] 


Commodore-Taste & 3 




ganz rechts oben 


(WHITE] 


Control-Taste & 2 


(GREY 1) 


Commodore-Taste & 4 


(INSTj 


Shift-Taste & Taste 


{RED] 


Control-Taste & 3 


(GREY 2] 


Commodore-Taste & 5 




ganz rechts oben 


(CYAN) 


Control-Taste & 4 


(LIG.GREEN) 


Commodore-Taste & 6 


(HOME] 


2. Taste von ganz rechts oben 


(PURPLE] 


Control-Taste & 5 


(LIG.BLUE) 


Commodore-Taste & 7 


(DEL] 


Taste ganz rechts oben 


(GREEN) 


Control-Taste & 6 


(GREY 3) 


Commodore-Taste & 8 


[RIGHT] 


Taste ganz rechts unten 


(BLUE] 


Control-Taste & 7 


Tabelle 1. 




(LEFT) 


Shift-Taste & Taste unten rechts 


(YELLOW] 


Control-Taste & 8 


Die Steuerfoefehle in den Listings 
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Diese Zahlen diirfen Sie NICHT mit abtippen. 

Als Beispiel sehen Sie Bild 1. Am rechten Rand jeder 
Spalte sehen Sie die Prufsummen in eckigen Klammern. 

Damit sind wir beim zweiten wichtigen Punkt: Sehen Sie 
sich die Zeile 240 von Listing 2 genauer an. Nach dem ersten 
Anfiihrungszeichen nach dem PRINT-Befehl sehen Sie eine 
geschweifte Klammer ( ]. Immer, wenn Sie in einem unserer 
Listings diese Klammern sehen, durfen Sie das, was inner- 
halb der Klammern steht, nicht eintippen. Sie miissen die 
entsprechende Taste drucken. Beispiel: 
10 PRINT "(CLRj" 



bedeutet: Nach dem Anfiihrungszeichen die »Bildschirm- 
I6schen«-Taste drucken (< SHIFT CLR/HOME>). In Ta- 
belle 1 sehen Sie eine Zusammenfassung aller moglichen 
Steuertasten mit dem entsprechenden Klartext. 

Weiterhin sehen Sie in Bild 1 (Bedeutung der Steuerzei- 
chen) in Zeile 30 ein unterstrichenes »T« nach der Klammer. 
Das bedeutet, daB Sie ein »T« zusammen mit der SHIFT- 
Taste drucken mussen, also < SHIFTT >. Wenn ein Zeichen 
»uberstrichen« ist, mussen Sie dieses zusammen mit der 
CBM-Taste eingeben. Die CBM-Taste befindet sich ganz 
links unten auf der Tastatur und hat die Aufschrift »C=«. 



1061 REM DIESES FROGRAMM ERZEUGT PEN 

110 REM MSE VI. 1 AUF DISKETTE. 

120 REM BESITZER EINER DATASETTE 

130 REM MUESSEN DIE '8' AM ENDE VON 

140 REM ZEILE 343 IN EINE '1' AENDERN! 

150 REM 

230 IF PEEK(44)<>32 THEN PRINT "CCUOSIE HA 

BEN VERGESSEN, DIE POKES EINZUGE- BEN! 

'• : END 
240 PRINT "CCLR3"; :DIM H(75):FOR 1-0 TO 9 
250 H< 48+1 >=I:H< 65+1) =1+10; NEXT =Z=1000 

260 FOR 1=2048 TO 3755 STEP 20 : PRINT "CHOME 
3ICH LESE ZEILE: "Z 

261 FOR N=0 TO 19:READ A$=IF LEN(A$)<>2 TH 
EN 900 

262 IF PEEK(63)+PEEK<64>*256oZ THEN 800 
270 H= ASC( LEFTS (AS.D) ■■ L=ASC( RIGHTS (A$ . 1 > ) 
280 D=H(H)*16+H(L) :S=S+D:POKE I+N.D 

290 NEXT: READ V:IF SoV THEN 900 

300 S=0:Z=Z+1 :NEXT-.R=PEEK(2111) :H=PEEK<210 
6) 

301 POKE 53280, R: POKE 53281, H: POKE 646, R:P 
RINT"CCLR}DIE DATA-ZEILEN SIND FEHLERF 
REI ! " 

302 PRINT 'SIE KOENNEN NUN DIE FARBEN DES M 
SE" 

303 PRINT "EINSTELLEN . " : PRINT" C2DOWN , SPACE , 
RVSONJDRUECKEN SIE <1>, <2> ODER <9> 

304 PRINT" {DOWN. 2SPACE><1> - RAHMEN-/SCHRI 
FTFARBE 

305 PRINT" C2SPACE}<2> - HINTERGRUNDFARBE 

306 PRINT"CDOWN,2SPACE}<9> - FARBEN UEBERN 
EHMEN 

307 PRINT" C2DOWN5FARBE <1> : "R: PRINT" FARBE 

<2>:"H 

308 GET A: IF A=0 THEN 308 

309 IF A=l THEN R=(R+1)AND 15 

310 IF A=2 THEN H=(H+1)AND 15 

311 IF A=9 THEN 340 

312 GOTO 301 

340 POKE 2106, H: POKE 2111. R 

342 POKE 631,19:POKE 632,13:POKE 198,2 

343 PRINT"CCLR>SAVE"CHR$(34) "MSE VI . 1 "CHRS 
(34)", 8 

344 POKE 43.1: POKE 44,8:P0KE 45.172:P0KE 4 
6. 14: END 

800 PRINT "CCLR.RVSON>SIE HABEN ZEILE'Z'CLE 

FT.SPACEJVERGESSEN: " : A=PEEK( 646 >AND 15 
810 POKE 646, PEEK! 53281 )AND 15 :PRINT"LIST" 

Z-2"-"Z+2:POKE 646. A 
820 GOTO 920 
900 PRINT "CCLR.RVSONJSIE HABEN EINEN TIPPF 

EHLER GEMACHT:":A=PEEK(646)AND 15 
910 POKE 646, PEEK( 53281 )AND 15 i PRINT"LIST" 

Z:POKE 646, A 
920 POKE 631.19:POKE 632,17:POKE 633,13:P0 

KE 198, 3: END 

1000 DATA 00.0B,08.0A,00,9E,32.30,36,31 ,00 
,00.00,A2.08,A9.36,85.A4,A9, 1247 

1001 DATA 08,85,A5,A9,00,85,A6,A9,B0,85.A7 
, A0 , 00 , Bl , A4 , 9 1 . A6 , C8 ■ D0 , F9 , 2888 

1002 DATA E6,A5,E6,A7,CA,D0,F2,A9,36.85,01 
. 4C , 00 , B0 , 20 , Dl , Bl , A9 , 00 , 8D , 2781 

1003 DATA 21 ,D0.A9,0F,8D.20,D0,8D,86,02,A0 
.B3,A9,74.20,FF,B1,A0,B3,A9, 2679 

1004 DATA B9,20,FF,B1,A0,00,20,CF,FF,99,01 
. 02 ■ C8 ■ C9 , 0D , D0 , F5 , 88 ■ F0 , D2 , 2912 

1005 DATA C0.11 ,90,02. A0, 10, 8C . 00, 02,20, EA 
,B1,A0.B3,A9.CF.20.FF.B1.20, 2327 

1006 DATA 8E,B4.85,FC,85.62.20,8E,B4,85,FB 
■ 85 , 6 1 ■ 20 , A7 , B4 , D0 , 20 ■ A0 , B3 , 2864 

1007 DATA A9,E5,20,FF,B1,20,8E,B4,85,60,20 



<210> 




<039> 


1008 


<178> 




<145> 


1009 


<176> 




<212> 


1010 




1011 


<050> 




<042> 


1012 


<136> 






1013 


<253> 






1014 


<062> 




<011> 


1015 


<199> 




<165> 


1016 


<139> 






1017 


<126> 






1018 


<080> 


1019 


<209> 


1020 


<205> 


1021 


<013> 


1022 


<233> 






1023 


<158> 






1024 


<066> 




<210> 


1025 


<098> 




<086> 


1026 


<217> 




<034> 


1027 


<153> 




<135> 


1028 


<091> 


1029 


<140> 


1030 


<124> 


1031 


<224> 


1032 


<082> 






1033 


<154> 






1034 


<173> 






1035 


<126> 






1036 


<119> 






1037 


<054> 






1038 


<096> 






1039 


<089> 






1040 


<217> 






1041 


<045> 






1042 


<199> 






1043 



, 8E , B4 , 85 , 5F ■ 20 , A7 , B4 , D0 , 0A , 2624 
DATA A5.61 ,C5 , 5F, A5 , 62 , E5 , 60 , 90 , 06 

, 43 , B3 , 4C ■ 3A ■ B0 ■ A9 . AA , A0 , 00 , 2379 
DATA EA , EA , E6 , FB , D0 . 02 , E6 , FC , 20 , 3F 

. 90 , EF ■ 4C , FB , B4 , A2 . 02 , 86 , 58 ■ 3190 
DATA A9,A6,A0,9D,20,F2,B1 .20.E4.FF 

,FB,C9,30,90,0C.C9,47.B0,08, 2970 
DATA C9 , 3A . 90 , 0B , C9 , 41 , B0 ■ 07 , C9 , 1 4 

,0F,4C,0B,B1 ,20,D2,FF,A6,58, 2322 
DATA 95 . F7 , C6 , 58 , D0 , D2 , 60 , AE , 8D , 02 

. 26 , C9 , 0C . D0 . 03 , 4C . 0B , B6 , C9 , 2685 
DATA 13 , D0 , 03 ■ 4C , 8B , B5 , C9 , 0D , D0 , 03 

. BA , B4 , C9 , 1 , D0 , 03 , 4C , 68 , B5 , 2282 
DATA C9.0E,D0,06,20,5F,B4,4C,64,B1 

.92,B0,A5,F9,20,02,B1,0A,0A, 2132 
DATA 0A , 0A , 85 , F9 , A5 , F8 , 20 , 02 , Bl , 05 

.60.C9,3A,90,02,69,08,29,0F, 1950 
DATA 60 , A6 . 59 , E0 , 08 , 90 , IF ■ A6 , 58 , E0 

.B0,06,20,D2,FF,4C,8E,B0,C6, 2509 
DATA 59,A0,14,A9,92,20,F2,B1 ,CA,D0 

,84.57,68,68,4C8B,B1 ,A6,D3, 2891 
DATA E0 , 08 , B0 , 03 , 4C ■ 92 , B0 , 20 , D2 , FF 

.58,E0,02,90,09,C6,59,20,D2, 2468 
DATA FF ■ C6 , 58 , D0 , F9 , 4C , 8E . B0 , 48 . 4A 

,4A,4A,20,59,B1 . 68, 29 , 0F.C9 , 2419 
DATA 0A , 90 , 02 , 6 9 , 06 , 69 , 30 ■ 4C , D2 . FF 

,FC9A,20,D1,B1 ,20,48,B2,20, 2261 
DATA EA , Bl , 20 , 9F , B2 ■ A5 , FC , 20 , 4E , Bl 

,FB,20,4E,B1,20,ED,B1,A9,3A, 2860 
DATA A0,20,20,F2.B1 . A9 , 00 ,85 , 59 , 20 

■B0,20,ED,B1 ,A4, 59,20, EF.B0. 2530 
DATA 91 ,FB,C8,84.59,C0,08,90,EC,20 

, B2 , A9 , 1 2 , 20 , D2 . FF , 20 ■ 8E , B0 , 2657 
DATA 20 ■ EF , B0 , C 5 , FF . F0 , 0D , 20 , 43 , B3 

. 14, A0, 14.20. F2.B1 ,4C,A2,B1 , 2665 
DATA A9 . 92 . 20 , D2 . FF , 20 , 33 , B2 , 20 , E0 

. 20 , 3F , B2 , 90 , 9F , 4C , 8B , B5 , A9 . 2648 
DATA 93 , 20 ■ D2 , FF , A2 , 00 , A9 , 03 , 9D , 00 

, 9D , 00 , D9 , 9D , 00 . DA , 9D , 00 , DB , 2476 
DATA E8 , D0 , EF , 6 , A9 , 0D , 2C ■ A9 , 20 , 4C 

,FF,20,D2,FF,98,4C,D2.FF,20, 2965 
DATA E4 , FF , F0 , FB , 60 , 84 , 5D , 85 , 5C , A0 

, Bl , 5C , F0 , 06 , 20 , D2 , FF , C8 , D0 , 3100 
DATA F6 , 60 , A5 , FB , 85 , 5A , A0 , 00 , 84 , 5B 

. FB , 18 , 65 , 5A , 85 , 5A , 90 , 02 , E6 . 2606 
DATA 5B . 06 , 5 A , 2 6 , 5B , C8 , C0 , 08 , 90 , EC 

. 5A , 65 , 5B ■ 85 , FF , 60 , 18 . A5 , FB , 2467 
DATA 69 , 08 ■ 85 , FB ■ 90 , 02 , E6 , FC , 60 , A5 

,C5,5F.A5.FC.E5,60,60,A0,B3. 3106 
DATA A9 , FB , 20 , FF , Bl , A0 , 01 , B9 ■ 00 , 02 

. D2 . FF , CC , 00 , 02 , C8 , 90 , F4 , A9 . 2692 
DATA 1 4 , ED , 00 , 02 , AA , 20 , ED ■ B 1 , CA , D0 

.A5,62,20,4E,B1 . A5 ■ 61 , 20, 4E, 2457 
DATA B1,20.ED,B1,A5,60,20,4E,B1,A5 

, 20 , 4E . Bl , EA , EA , EA , EA , EA , EA , 3122 
DATA EA , EA , 24 , 5E , 1 , 01 , 60 , A9 ■ 1 2 , 20 

, FF , A2 , 28 , 20 ■ ED , Bl , CA . D0 , FA , 2703 
DATA A9,92,4CD2,FF,A5,D6,C9,16,B0 

,60,A9,A0,85,A4,A9,78,85,A6, 2945 
DATA A9 , 04 , 85 , A5 , 85 , A7 , A2 , 13 . A0 , 27 

.A4.91.A6.88.10.F9.CA.F0.19, 2671 
DATA 18 , A5 . A4 , 6 9 . 28 . 85 , A4 , 90 , 02 . E6 

. 18 . A5 . A6 . 6 9 , 28 , 85 , A6 . 90 , E0 , 2503 
DATA E6 . A7 , 4C , B6 , B2 . A9 . 91 , 4C , D2 , FF 

. 0F . 8D . 18 . D4 . A9 , 00 . 8D . 05 , D4 , 2776 
DATA A9,F7,8D.06,D4.A9,11 .8D.04.D4 

.32.8D.01.D4.A9 . 00.8D .00.D4. 2413 
DATA A0 . 80 . 20 , 9 . B3 , A9 , 1 , 8D . 04 . D4 

. A2 . FF . CA . D0 . FD , 88 , D0 , F8 . 60 . 2914 
DATA A9 , 0F , 8D , 1 8 , D4 , A9 . 2D . 8D , 05 , D4 

. A5 , 8D . 06 , D4 . A9 , 21 , 8D , 04 . D4 . 2385 
DATA A9.07.8D.01 ,D4 , A9 . 05 , 6D , 00 , D4 



,20 



,B2 



,F0 



<091> 
<167> 
<041> 
<231> 



.D0 



<121> 



,F0 



.4C 



,4C 

.F9 



<057> 
<225> 
<208> 
<092> 



.02 



<188> 



.FA 
.A6 
.4A 
,A2 



<197> 



<049> 



<035> 



,A5 



<073> 
<148> 



8E 



<233> 



,10 
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, FF . 20 , 09 . B3 . A9 , 20 , 8D . 04 , D4 , 

1044 DATA A9,00.8D,01.D4.8D.00,D4, 
. F0 , FF , 8A , 48 , 98 , 48 , 18 , A0 . 06 , 

1045 DATA A2,18,20,F0.FF,A0,B4.A9, 
, Bl , 20 , 1 2 . B3 , 20 . E4 , FF , F0 , FB , 

1046 DATA A2.1D.A9,14.20,D2,FF,CA. 
, A8 , 68 , AA , 1 8 . 4C . F0 , FF , 0D . 0D , 

1047 DATA 0D, 20, 20, 20, 20, 20, 20,20, 
, 43 , 48 , 49 , 4E , 45 , 4E , 53 , 50 , 52 , 

1048 DATA 41, 43, 48, 45, 20, 2D, 20, 45, 
, 4F , 52 , 20 , 0D , 0D , 20 , 20 , 20 , 20 , 

1049 DATA 20,20.20,20,56,4F,4E,20 
>41,4E,4E,20,26,20,44,2E,57, 

1050 DATA 45,49,4E,45,43.4B.00,0D, 
, 20. 20, 50, 52, 4F, 47, 52, 41 , 4D , 

1051 DATA 4D,4E,41,4D,45,20,3A,20. 
,20,20,20,53,54,41,52,54,41 , 

1052 DATA 44, 52, 45. 53, 53, 45.20.3A, 
, 0D , 0D , 20 ■ 20 , 20 . 45 , 4E , 44 , 41 , 

1053 DATA 44,52,45,53,53,45,20,20, 
, 24 , 00 , 92 , 01 , 01 , 50 . 52 , 4F , 47 , 

1054 DATA 52,41,4D,4D,20,3A,20,00, 
, 2A , 2A , 2A , 20 . 46 , 41 , 4C , 53 , 43 , 

1055 DATA 48, 45, 20, 45, 49, 4E, 47, 41, 
, 2A , 2A , 2A , 20 , 20 , 92 , 00 , 0D , 0D , 

1056 DATA 2A,2A,2A,20,45,4E,44,45, 
,2A, 00. 13, 01 ,20,20,12,44,92. 

1057 DATA 49. 53, 4B, 20. 4F, 44. 45, 52, 
. 92 , 41 , 50 , 45 , 0D , 00 , 13 , 20 , 20 , 

1058 DATA 49,2F,4F,20,2D,20,46,45, 
,52,00,20,D1,B1,20,48,B2 ,A0, 

1059 DATA B3,A9,CF,20,FF,B1 ,20,8E, 
,20,8E,B4,85,FB.C5,61,A5,FC, 

1060 DATA E5,62,90,23,A5,FB,C5.5F, 
,60,B0,19,20,A7,B4,D0,14,60. 

1061 DATA 20,A7.B4,F0,0C,85,F9,20, 
, 05 , 85 , F8 , 4C , EF , B0 , 68 , 68 ■ 20 , 

1062 DATA 43,B3,4C,5F,B4,20,CF,FF, 
■09,20,D1,B1,20.48,B2,4C,0B, 

1063 DATA B6,C9,0D,60,A9,00,85.5E, 
.20,EA,B1 ,20,0D,B5,24,5E,30, 

1064 DATA 05,20,E4,FF,F0,FB,20,E1 
,20.9F,B2.24,5E,10,09,20,4E, 

1065 DATA B5,20,0D,B5.20,60.B5,20 
, 3F , B2 , 90 , D7 , A0 , B4 , A9 , 28 , 20 , 

1066 DATA FF,B1.20,E4,FF,C9,0D,D0 
, 85 , 5E , A5 , 61 , 85 , FB , A5 . 62 , 85 , 

1067 DATA FC,20,E0,B2,4C,64,B1 ,A5 
,B1,A5,FB,85,FF,20,4E,B1 ,A9, 

1068 DATA 20,A0,3A,20,F2,B1.A0,00 
,B1.FB,20,4E,B1.C8,C0,08,90, 

1069 DATA F3,20,ED,B1,24,5E,30,03 
,A9.20,20,D2,FF,20,10,B2.A5, 

1070 DATA FF, 20, 4E, Bl ,A9, 92,20, D2 
, Bl , A9 , FF , 85 . B8 , 85 , B9 , A9 , 04 , 

1071 DATA 85,BA.20,C0.FF,A2,FF,4C 
, CC , FF , A9 . FF . 4C , C3 , FF , 20 , 5F , 

1072 DATA B4,A9,80,85,5E,20,4E,B5 
, A2 , 24 , A9 , 2D , 20 , D2 , FF , CA , D0 , 

1073 DATA FA,20,EA,B1,20,EA,B1,20 
■C1,B4,20,B8,B5,A6,5F,A4,60, 

1074 DATA A9,61.20,D8,FF,B0,0A,20 
, BF . D0 , 03 , 4C , FB , B4 , A9 , 01 . 20 . 

1075 DATA C3,FF,20,68,B6.A0,B4,A9 
,B1 ,20,F9,B1,4C,FB,B4,20,68, 

1076 DATA B6,A9,37,A0.B4,20,FF.B1 
, A2 , 08 , C9 , 44 , F0 , 06 , A2 , 01 , C9 . 

1077 DATA 54,D0,F1,A9,01 ,A8,20,BA 
, E0 , 01 , F0 , 1 A , A9 , 40 , 8D , 20 , 02 , 

1078 DATA A9,3A,8D,21.02,B9.01,02 
, C8 , CC , 00 , 02 , 90 , F4 , C8 , C8 , D0 ■ 

1079 DATA 0C,B9,01 , 02 , 99 , 20 , 02 ,C8 
, D0 , F4 , 98 , A2 , 20 , A0 , 02 , 4C , BD , 

1080 DATA FF,20,B8,B5,A5,BA,C9,08 
,B9,86,57,A9.01 , 20 ,C3 , FF, A9 . 

1081 DATA 60,85,B9,20,C0,FF,B0,28 
,B4,FF,A5,B9,20,96,FF,20,A5, 

1082 DATA FF,85,61,A5,90.4A.4A,B0 
,FF.85.62,20.AB,FF,A5,57,85, 

1083 DATA B9,A9,00,20,D5,FF,90,03 
, 86 . 5F , 84 . 60 , A5 . BA . C9 , 01 , D0 , 

1084 DATA 0A, AD, 3D, 03, 85, 61, AD, 3E 
, 4C , FB . B4 , A9 , 13 , 20 , 1)2 . FF , A2 , 

1085 DATA 1C,20,ED,B1,CA.D0.FA,60 
, 00 , 00 ■ 00 , 00 ■ 00 , 00 , 00 . 00 , 00 , 
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Listing 2. Der MSE-Lader 



Der MSE 



Der MSE dient zur Eingabe von Maschinensprache-Pro- 
grammen. Als erstes miissen Sie den sogenannten 
»MSE-I_ader« (Listing 2) abtippen. Dieser erzeugt erst das 
eigentliche MSE-Programm auf Diskette Oder Kassette. 
Wichtig: Vor dem Eintippen des MSE-Laders miissen 
Sie unbedingt ein paar Befehle eingeben (ohne 
Basic-Zeilennummer): POKE 44,32 : POKE 8192,0 : NEW 

Jetzt konnen Sie beginnen, das Listing 2 abzutippen. Der 
MSE-Lader erkennt zwar, wenn Sie beim Eintippen der DA- 
TA-Zeilen einen Fehler gemacht haben, aber wenn Sie 
ganz sicher gehen mochten, sollten Sie den Checksummer 
vor dem Eintippen aktivieren. Die Priifsummen. fur den 
MSE-Lader finden Sie am Ende der jeweiligen Pro- 
grammzeilen. 

Wenn Sie das Listing 2 nicht auf einmal abtippen moch- 
ten, mussen Sie vor jedem neuen Laden des Programms 
unbedingt die oben genannte POKE-Zeile eingeben! 

Wenn Sie alles richtig gemacht haben und das Pro- 
gramm fehlerfrei abgetippt wurde, speichert es sich nach 
dem Starten selbst auf Diskette Oder Kassette unter dem 
Namen »MSE V1.0«. Dieses fertige MSE-Programm laden 
Sie dann bei Bedarf wie ein normales Basic-Programm und 
starten es mit »RUN«. 
So arbeitet man mit dem MSE 

Als erstes mochte der MSE den Namen des zu bearbei- 
tenden Programms wissen. Dieser steht in der ersten Zeile 
unserer MSE-Listings. Dann mussen Sie die Start- und 
Endadresse des Programms eingeben. Dies sind die letz- 
ten beiden vierstelligen Hexadezimalzahlen in der ersten 
Zeile unserer Listings. 

Wenn Sie ein Programm von Diskette Oder Kassette 
laden wollen, um an einer bestimmten Stelle weiterzutip- 
pen oder noch eine Korrektur vorzunehmen, geben Sie auf 
die Frage nach der Startadresse ein »L« ein. Danach miis- 
sen Sie <D> oder <T> drucken,jenachdem,obSievon 
Diskette oder Kassette (»tape«) laden mochten. Wenn das 
Programm unter diesem Namen nicht auf der Diskette vor- 
handen ist oder ein sonstiger Ladefehler vorlag, meldet 
sich der MSE mit »l/0-ERROR«. In diesem Fall driicken Sie 

< RUN/STOP RESTORE > und geben einfach noch einmal 
»RUN« ein. 

Beim Abtippen geben Sie nach und nach die abgedruck- 
ten Buchstaben und Zahlen des jeweiligen Listings ohne 
die Freiraume dazwischen ein. Wenn Sie in einer Zeile 
einen Tippfehler gemacht haben, meldet sich der MSE 
sofort mit einem Brummton und der Meldung »EINGABE- 
FEHLER«. Nach einem Druck auf die RETURN-Taste kon- 
nen Sie mit der DEL-Taste den Fehler korrigieren. Wenn Sie 
das gewiinschte Programm vollstandig eingegeben 
haben, speichert es der MSE automatisch auf Diskette 
oder Kassette. 

Bei langeren Listings ist es unwahrscheinlich, daB Sie 
das komplette Programm auf einmal eingeben. Sie konnen 
Ihre bisherige Tipparbeit jederzeit durch <CTRL S> auf 
Diskette oder Kassette speichern und Ihr Werk spater fort- 
setzen. Sie sollten sich dann allerdings im Heft markieren, 
wie weit Sie beim Abtippen gekommen sind! Spater geben 
Sie dann nach dem Laden des ersten Programmteils 

< CTRL N > ein und auf die dann folgende Frage nach der 
Startadresse die Zeilennummer (Adresse), bei der Sie auf- 
gehort haben zu tippen. 

<CTRL M> erlaubt Ihnen jederzeit, Ihr Werk listen zu 
lassen. Durch <SPACE> konnen Sie weiterlisten lassen 
und durch < RUN/STOP > das Listen abbrechen. 

Wenn Sie einen Drucker besitzen, konnen Sie das Pro- 
gramm auch mit <CTRLP> ausdrucken. Mit <CTRLL> 
wird das Programm noch einmal neu in Ihren C 64 geladen. 
(F. Lonczewski/N. Mann/D. Weineck/tr) 
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Tel. (0831) 14413. 

Schweiz: 

3001 Bern, Neuengasse 43, Von-Werdt-Possoge, Buchhondlung Francke AG, Tel. (03l| 
22 17 1 7 • 3011 Bern, Markrgosse 25, Buchhandlung Scherz, Tel. (031) 2268 37 • 5000 
Aarau, Bahnhofstrasse 41, Buchhandlung Meissner, Tel. (064) 247151 • 6300 Zug, 
Neugasse 12, Bucher Balmer, Tel. (042) 21 41 41 • 8002 Zurich, Bleicherweg 56, Buch- 
handlung Enge, Tel. (01) 201 2078 • 8022 Zurich, Pelikanstrosse 10, Buchhandlung Orell 
Fossli. Tel. (01) 2 1 1 80 1 1 • 8033 Zurich, Universitatsstrasse 1 1, Freihofer AG, Wissen- 
schoftliche Buchhandlung, Tel. (01) 3634282 • 9001 St.Gallen, Webergosse 5, Buch- 
handlung am Rosslitor, Tel. (071) 228726. 

Osterreich: 

1010 Wien, Wollzeile 11, Morowa8.Co,Tel. (0222)947641 ■ 1020 Wien, Heinerfstra- 
Be 3, Computer Buch Shop Karl Fegerl, Tel. (0222) 245368 • 1040 Wien, Korlsplatz 
13, lehrmiftelzentrum, Tel. (0222) 567801 • 1120 Wien, Schonbrunner StraBe 261, Bu- 
cherzentrum, Tel. (0222) 8331 96 • 2700 Wiener Neustodt, Neue Weltgosse, Walter 
Hofstodter, Tel. (02622) 2 1550 • 3302 Amstetten, Hauptplatz 30, KirchenstraBe 3, Jo- 
honn Reisinger, Tel. (07472) 2576-0 • 3500Krems, Obere landstraBe 8, Helmut Loiner, 
Tel. (02732) 28 18 • 4020 linz, londstra&e 34, R. Pirngruber, Tel. (0732) 272834 • 
4840 Vocklobruck, Stodtplatz 28, Buchhandlung Schachtner, Tel. (07672) 3467 ■ 
5020 Salzburg, St.-Jullen-StroBe 2, R. Regelsberg, Tel. (0662) 735 73 • 6010 Innsbruck, 
Mario-Theresien-StroBe 15. Tyrolio, Tel. (05222) 24944 • 6010 Innsbruck, Museum- 
stroBe 4, Wagner'sche Universitatsbuchhondlung, Tel. (05222) 223 16 • 8010 Groz, 
Stemplergosse 3, Buchhandlung leykam, Tel. (0316) 76676-0 • 8010 Groz, Sacher- 
straBe 6, Jos. A. Kienreich, Tel. (03 16) 76441 • 8010 Groz, RadetzkystraBe 7, Volks- 
buchhandlung, Tel. (03 16) 79388. 
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Zeif schriflen ■ Bucher 

Softwore ■ Schulung 

Markt&Technik Verlog AG, Buchverlog, Hans-Pinsel-StraBe 2, 8013 Haar bei Munche 
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EINSTECKEN UND VOLL LOSLEGEN. 
AMIGA 500 ORIGINALZUBEHOR. 




Wenn Sie ohne Fehlstarts sofort loslegen wollen, 
verwenden Sie nur Original-Peripherie von Commodore. 
Damit Iduft Ihr Amiga 500 zur Hochstform auf 
Einstecken - und schon geht die Post ab. Denn da paftt 
jedes Teil zum anderen. 
Commodore - Marklfuhrer bei Mikrocomputern. 




Commodore 



COMMODORE AMIGA 500 - 
FUR ALLE, DIE IMMER VORNE SIND 




"xi'j 



Die Sensation ist perfekt. Commodore prasentiert mit dem AMIGA 500 die neue / 'It'/fiff't 

Computergeneration der neunziger Jahre. Einfachste Bedienung mit Maus. 

Super in Text, Grafik, Animation sowie Sprache und Musik. 

Ein Computer, der alle Ideen realisiert, von denen 

man bisher nur zu traumen wagte. 

Von Commodore - Marktfuhrer bei Mikrocomputem. 
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Commodore 



